run-script error '1004'

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:

---

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

---

merci de m'aider ;)

Bonsoir.

Tu peux essayer

Code:

---

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:

---

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

ç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:

---

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

---