Discussion :

[wrm8787]

Bonjour, j'ai un petit code à partir de mon fichier fichier1.xls qui ouvre fichier2.xml . Ensuite je dois sélectionner une ligne du fichier2.xml et la recopier dans fichier1.xls.

J'ai enregistrer une macro pour le faire. Ça marche en faisant call macro, mais si je copie-colle le code intégral de la macro dans mon programme, ça plante...
J'ai cherché sur le support microsoft, mais il n'y a rien d'utile par là

ça plante à la ligne en gras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks("fichier2.xml").Activate
Range("A2").Select

merci de m'aider

[pgz]

Bonsoir.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Application.Workbooks("NomClasseur2")
    .Activate
    .Worksheets("NomFeuille").Range("A2").Select
End with

Mais il n'y a pas besoin de sélectionner pour copier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Workbooks("NomClasseur2").Worksheets("NomFeuille").Range("A2").Copy

Devrait aller aussi bien.
Et si tu n'as besoin que de la valeur, même pas besoin de copier...

Bon courage,

PGZ

[wrm8787]

ça marche!! merci pgz!

un fichier xml n'a pas de feuille, j'ai donc modifier un peu votre code et voici la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks(Datafile).ActiveSheet.Range("A2").Copy
Workbooks(thisWB_nagemi).Sheets(NomFeuille).Cells(1, 1).PasteSpecial