récupérer le retour d'un macro lancé par vbs

Bonjour

Merci d'avace pour votre aide.

J'ai un scripts vbs qui lance la macro d'un fichier excel.

la macro génére un fichier xml

mon problème est que je ne sais pas comment récupérer le fichier xml (pour le renommer et le mettre dans un chemin spécifique plutard)

XLStoXML est le nom de la macro (si je lance la macro manuellement ça donne une fenêtre qui propose ou mettre le fichier)

Code:

---

1 2 3

objExcel.run "XLStoXML"

---

Oui, faudrait-il montrer la structure générale ce qu'il est dedans le macro?

En tout cas, supposons vous avez quelque chose de ce genre...

Code:

---

1 2 3 4 5 6 7

Sub XLStoXML Dim xDoc as MSXML2.XMLDocument60 xDoc=new MSXML2.XMLDocument60 '....créer le xml document... 'xDoc.Save "xyz.xml" 'etc... End Sub

---

Maintenant, changez le code pour qu'il ait ces petits changement.

Code:

---

1 2 3 4 5 6 7 8

Function XLStoXML Dim xDoc as MSXML2.XMLDocument60 xDoc=new MSXML2.XMLDocument60 '....créer le xml document... 'xDoc.Save "xyz.xml" 'etc... XLStoXML=xDoc.xml End Function

---

Comme ça le retour est une châine de texte du xml sérialisé. Et vous le retrouvez comme ça dans le script vbs.

Code:

---

1 2	dim sxml sxml=objExcel.run("XLStoXML")

---

On peut d'ailleurs tout à fait capable de retrouver le retour comme msxml2.domdocument aussi, et on fait différemment le retour de la fonction XLStoXML.

Code:

---

1 2 3 4 5 6 7 8

Function XLStoXML Dim xDoc as MSXML2.XMLDocument60 xDoc=new MSXML2.XMLDocument60 '....créer le xml document... 'xDoc.Save "xyz.xml" 'etc... Set XLStoXML=xDoc End Function

---

Et dans le script vbs, on fait simplement comme ça.

Code:

---

1 2	dim oxml set oxml=objExcel.run("XLStoXML")

---

Voilà !