Répondre à la discussion
Page 1 sur 2 1 DernièreDernière
Affichage des résultats 1 à 30 sur 39

transfert de données excel vers une autre page excel



  1. #1
    Baccara2

    transfert de données excel vers une autre page excel

    Bonjour,

    J'ai lu le forum concernant les MACROS mais je n'arrive pas à comprendre encore bien les choses...

    Je dois reprendre des donner d'un fichier excel Nom du fichier Lili et à l'intérieur je dois prendre certaine cellules mais pas toutes et je souhaite le faire automatique vers un autre fichier excel Lala mais les cellules prise de Lili ne seront pas à la même place.

    Afin d'avoir quelques données et non une liste qui prend tous le côté Nord ^^

    Avez-vous une solution ? cela fait déjà 2 jours que je me casse la tête dessus .... je commence un peut a perdre espoir...

    Ce que j'ai compris déjà c'est que mes fichiers doivent être dans le même format d'excel 97-2003 sinon cela ne fonctionne pas et moi j'ai un excel de 2010 mais je peux les enregistrer en 97-2003.

    Merci de votre aide !!!

    -----


  2. Publicité
  3. #2
    calimero03

    Re : transfère donner excel vers une autre page excel

    Bonjour,

    Expliquez nous la façon dont vous avez procédé, et si vous avez fait une macro montrez nous le code utilisé

  4. #3
    Baccara2

    Re : transfère donner excel vers une autre page excel

    Bonjour,

    Voici la macro que j'ai utilisé

    Code:
    Dim xlapp As New Excel.Application ' déclarer Public si dans un module
    Dim xlbook As New Excel.Workbook
    Dim xlsheet As New Excel.Worksheet
    
    Sub CopierDonnees()
    
    Dim Repertoire
    
        'definiton du fichier d'origine
        'Repertoire = Sheets(donnees).Cells(2, 2).Value &
        Repertoire = "Documents\Maintenance\Analyse des couts de maintenance 0615.xls"
        Set xlbook = xlapp.Workbooks.Open(Repertoire)
        
    
    Set xlsheet = xlbook.Sheets("0615_nord")
          
    With Sheets("analyse des coûts maintenance")
    
        .Cells(7, 3).Value = xlsheet.Cells(2053, 13).Value
        
        
    End With
    
       ' Sauve le fichier
        xlbook.Save
        xlbook.Close Repertoire
        xlapp.Quit
             
            '   .
    
    End Sub
    Dernière modification par JPL ; 06/08/2015 à 15h56. Motif: Ajout de la balise Code (#) pour garder l'indentation

  5. #4
    cherbe

    Re : transfère donner excel vers une autre page excel

    Citation Envoyé par Baccara2 Voir le message
    Bonjour,
    Voici la macro que j'ai utilisé
    bonjour
    Il faudrait nous dire sur quel(s) critère(s) la macro va sélectionner les données à copier
    Ensuite, XL2010 lit tout les formats antérieurs à 2010.

  6. #5
    calimero03

    Re : transfère donner excel vers une autre page excel

    De plus la commande Set xlbook = xlapp.Workbooks.Open(Repertoir e) ne fonctionne pas quand je test mais il y a beaucoup plus simple pour ouvrir un document, il faut simplement utiliser la commande Workbooks.Open (Repertoire) ce qui t'évite d'avoir à déclarer un objet Xlapp

  7. A voir en vidéo sur Futura
  8. #6
    Baccara2

    Re : transfère donner excel vers une autre page excel

    C'est quoi un objet Xlapp ?
    Les critères de la macro, enfin il va juste prendre des résultats d'une page excel pour une autre page.

  9. Publicité
  10. #7
    cherbe

    Re : transfère donner excel vers une autre page excel

    Citation Envoyé par Baccara2 Voir le message
    C'est quoi un objet Xlapp ?.
    Google est ton ami : "VBA XLAPP" !
    Citation Envoyé par Baccara2 Voir le message
    Les critères de la macro, enfin il va juste prendre des résultats d'une page excel pour une autre page.
    Dans la question initiale, il n'était pas précisé si la macro devait sélectionner les données en fonction de critères de recherche ou si elle devait se positionner à un endroit précis.

  11. #8
    Baccara2

    Re : transfère donner excel vers une autre page excel

    Si je viens posé des questions ici ce n'est pas pour avoir des explication plus complexe que sur internet ça je sais le faire moi même, je viens ici pour des explications simples et claires !

    Elles ont des positionnements précises rien en change sauf le noms de l'autre fichier qui peut éventuellement changer.

  12. #9
    calimero03

    Re : transfère donner excel vers une autre page excel

    Pour tenter de faire avancer les choses, cette commande .Cells(7, 3).Value = xlsheet.Cells(2053, 13).Value me semble mystérieuse, j'en comprends le principe mais pas l'interet dans ce cas. Autant se simplifier la vie en faisant un copié/collé. Ca donnerait un truc du genre :


    'Sélection de la cellule à copier
    Range("A2").Select

    'Mise dans le press papier de la valeur de la cellule
    Selection.Copy

    'sélection de l'onglet ou l'on veut coller la valeur (A adapter pour utiliser un autre document)
    Sheets("analyse des coûts maintenance").Select

    'Sélection de la cellule ou coller la valeur
    Range("A2").Select

    'Collage de la valeur
    ActiveSheet.Paste
    Dernière modification par calimero03 ; 17/08/2015 à 12h26.

  13. #10
    Baccara2

    Re : transfère donner excel vers une autre page excel

    D'accord, merci pour ton aide !

  14. #11
    matthieu2

    Re : transfère donner excel vers une autre page excel

    Bonjour,

    Citation Envoyé par Baccara2 Voir le message

    Code:
        Repertoire = "Documents\Maintenance\Analyse des couts de maintenance 0615.xls"
    Petit doute sur le chemin d'accès à ton Répertoire: il devrait commencer par un truc du genre "C:\" nan?

  15. #12
    Baccara2

    Re : transfère donner excel vers une autre page excel

    Bonjour,

    Oui oui ça commence bien par C:/ c'est juste que je ne l'ai pas mis sur le forum ^^

  16. Publicité
  17. #13
    calimero03

    Re : transfère donner excel vers une autre page excel

    Tiens nous informé sur l'évolution de ta programmation. Si on peu encore aider, n'hésite pas

  18. #14
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Je ne comprend pas pas je n'avais aucun souci avec ma MACRO, maintenant elle me dit qu'elle ne fonctionne pas, je vous la met en entière c'elle qui ne fonctionne pas est souligner normalement:

    Private Sub Workbook_Open()
    Dim Fiche
    Dim Repertoire

    'choisir le fichier source
    Usf1.Show


    Fiche = Usf1.TextBox1.Value & ".xls"

    'ouvrir le fichier caché
    Repertoire = "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance/" & Fiche
    Set xlbook = xlapp.Workbooks.Open(Repertoir e)


    Set xlsheet = xlbook.Sheets("0815_Nord")

    With Sheets("analyse")

    .Cells(7, 3).Value = xlsheet.Cells(2191, 13).Value
    .Cells(7, 4).Value = xlsheet.Cells(2200, 13).Value
    .Cells(7, 5).Value = xlsheet.Cells(2200, 14).Value
    .Cells(7, 6).Value = xlsheet.Cells(2200, 17).Value
    .Cells(7, 7).Value = xlsheet.Cells(2202, 13).Value
    .Cells(7, 8).Value = xlsheet.Cells(2202, 14).Value
    .Cells(7, 9).Value = xlsheet.Cells(2202, 17).Value
    .Cells(7, 10).Value = xlsheet.Cells(2212, 13).Value

    .Cells(28, 3).Value = xlsheet.Cells(2720, 13).Value
    .Cells(28, 4).Value = xlsheet.Cells(2729, 13).Value
    .Cells(28, 5).Value = xlsheet.Cells(2729, 14).Value
    .Cells(28, 6).Value = xlsheet.Cells(2729, 17).Value
    .Cells(28, 7).Value = xlsheet.Cells(2731, 13).Value
    .Cells(28, 8).Value = xlsheet.Cells(2731, 14).Value
    .Cells(28, 9).Value = xlsheet.Cells(2731, 17).Value
    .Cells(28, 10).Value = xlsheet.Cells(2741, 13).Value
    .Cells(28, 11).Value = xlsheet.Cells(2741, 14).Value

    End With

    ' Sauve le fichier
    xlbook.Save
    xlbook.Close Repertoire
    xlapp.Quit

    End Sub

  19. #15
    matthieu2

    Re : transfert de données excel vers une autre page excel

    Bonjour,

    L'onglet qui fait référence n'a pas changé de nom? C'est toujours: 0815 Nord?

  20. #16
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Si elle change chaque moi par exemple le mois dernier c'était ("07_Nord")

  21. #17
    matthieu2

    Re : transfert de données excel vers une autre page excel

    Re,

    Alors c'est normal... Le programme ne trouve pas l'onglet correspondant. Dans ton code, sur la ligne soulignée, change le nom de l'onglet par le nouveau nom et ça devrait fonctionner.

  22. #18
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Comment ça ?

    Je retire le nom 0815_Nord ?car j'aimerai que tous les mois je puisse transféré sans problème chaque donné sans changer les nom car il faut que je puisse allé vers les nouveaux comme revenir sur les anciens

  23. Publicité
  24. #19
    matthieu2

    Re : transfert de données excel vers une autre page excel

    Re,

    Soit ton onglet 0815_Nord existe toujours et ton programme marchera mais uniquement sur cet onglet.

    Soit tu as changé le nom de ton onglet et donc le programme ne marchera pas car il va bêtement chercher l'onglet 0815_Nord (qui n'existe plus).

    Soit tu as gardé l'onglet 0815_Nord et tu as un autre onglet et tu veux que ton programme marche sur ton nouvel onglet alors il faut adapter ton code en changeant le:
    Code:
    Set xlsheet = xlbook.Sheets("0815_Nord")
    Par:
    Code:
    Set xlsheet = xlbook.Sheets("NOM DE TON NOUVEL ONGLET")
    Si doit changer le nom chaque mois alors tu devrais améliorer ton code pour qu'il le prenne automatiquement sans que tu es à changer ton programme. Par exemple, si tu ajoutes un onglet tous les mois à la fin de ton classeur, il est facile de faire prendre le dernier onglet de ton classeur au programme sans passer par le nom de l'onglet.

  25. #20
    Baccara2

    Re : transfert de données excel vers une autre page excel

    La actuellement c'est cet onglet que je souhaite ouvrir mais qui ne fonctionne pas :/

    Sinon je vois un peut ce que tu souhaites expliqué mais est ce que sa ne serais pas une "variable" a faire pour mes onglets ?

  26. #21
    matthieu2

    Re : transfert de données excel vers une autre page excel

    Si ton nouvel onglet est (toujours) placé à la fin, tu peux utiliser la fonction Sheets.Count

  27. #22
    Baccara2

    Re : transfert de données excel vers une autre page excel

    A la place de quoi ?

  28. #23
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Maintenant quand je rentre le nom du fichier que je souhaite il me note : ("K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance\Analyse des couts de maintenance 0715 et 0815.xls" est introuvable. vérifier l'orthographe ou essayez un autre chemin d'accès.)

    Après il me note Microsoft Excel attend la fin de l'exécution d'une action OLE d'une autre application.

    Alors je ne sais pas ce qu'il y a de faux car j'ai repris ce qu'il y avait de noter directement dans ma page en copier coller pour ne pas me tromper dans l'écriture.

  29. #24
    matthieu2

    Re : transfert de données excel vers une autre page excel

    Bonjour,

    Es tu sûr de l'orthographe? Si oui alors check l'extension de ton fichier. Si le classeur contient une macro alors c'est .xlsm et non .xls

    Le fichier est-il bien présent dans le dossier?

  30. Publicité
  31. #25
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Bonjour,

    Oui je suis sur de l'orthographe.

    Je fais attention à bien tous reprendre comme il faut.

  32. #26
    cherbe

    Re : transfert de données excel vers une autre page excel

    Citation Envoyé par Baccara2 Voir le message
    Maintenant quand je rentre le nom du fichier que je souhaite il me note : ("K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance\Analyse des couts de maintenance 0715 et 0815.xls" est introuvable. vérifier l'orthographe ou essayez un autre chemin d'accès.)
    Bonjour
    Tu as des accents dans les noms de dossiers. C'est autorisé sous Windows (mais déconseillé) et je ne suis pas certains que VBA les interprète correctement.
    Avant l'ouverture de fichier, mets une instruction :
    Code:
    chdir("K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance")
    et fais une exécution pas à pas. Tu verras si c'est ça qui plante.

  33. #27
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Maintenant j'ai mis ceci en tête :

    'choisir le fichier source
    Usf1.Show


    Fiche = Usf1.TextBox1.Value & ".xls"

    'ouvrir le fichier caché
    Repertoire = "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche
    Set xlbook = xlapp.Workbooks.Open(Repertoir e)


    Set xlsheet = xlbook.Sheets("0815_Nord")


    Quand je valide ça me met Erreur d'exécution '1004':
    Erreur définie par l'application ou par l'objet.
    Dernière modification par Baccara2 ; 01/10/2015 à 09h29.

  34. #28
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Avec le :
    Repertoire = chdir "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche

    Quand je fais pas à pas ça me note Erreur de syntaxe

  35. #29
    cherbe

    Re : transfert de données excel vers une autre page excel

    Citation Envoyé par Baccara2 Voir le message
    Avec le :
    Repertoire = chdir "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche
    Quand je fais pas à pas ça me note Erreur de syntaxe
    chdir veut dire "change directory"
    Il ne faut pas mettre le nom du fichier puisque ce n'est pas un dossier ;
    Il ne faut pas non plus mettre l'instruction dans une variable, ça n'a pas de sens.
    Ensuite, c'est quoi le slash après "cumulées", une erreur de frappe dans le message ?

  36. #30
    Baccara2

    Re : transfert de données excel vers une autre page excel

    Le slash on m'a dit de le mettre pour fermer le répertoire pour bien le définir.

    Repertoire = "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche
    Set xlbook = xlapp.worbooks.Open(Repertoire )

    La phrase en rouge c'est c'elle ci qui ne fonctionne pas et je ne sais pas pourquoi.
    Je n'ai pas mis le nom du fichier je me suis arrêté au document et après j'ai le nom du fichier que je met dans ma case "d’accueil" pour rechercher le fichier en question et après il faut que je trouve la bonne feuille car il y en a plusieurs mais chaque mois le nom change par rapport au nom du mois par exemple :

    Set xlsheet = xlbook.Sheets("0815_Nord")
    Le 0815 change ce mois si ce sera 0915 et le mois prochain 0915 etc

Page 1 sur 2 1 DernièreDernière

Discussions similaires

  1. Transfert Automatique de cellules Excel vers Excel
    Par deadog182 dans le forum Logiciel - Software - Open Source
    Réponses: 25
    Dernier message: 22/01/2018, 20h55
  2. Transfert de données d'un micro contrôleur vers un fichier Excel
    Par gillou026 dans le forum Électronique
    Réponses: 4
    Dernier message: 04/06/2011, 07h43
  3. Entrer des données sur une page web via excel
    Par phil124 dans le forum Logiciel - Software - Open Source
    Réponses: 5
    Dernier message: 12/10/2010, 13h09
  4. base de données excel vers publisher
    Par noemiem dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 31/07/2008, 14h08
  5. Problème conversion fichiers excel PC vers excel MAC
    Par Pallmall37 dans le forum Logiciel - Software - Open Source
    Réponses: 4
    Dernier message: 14/11/2007, 21h31