Discussion :

[ibtissamr]

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 :

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

1
2
3
 
 
objExcel.run "XLStoXML"

[tsuji]

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

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

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

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

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

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

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

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

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

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

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

Voilà !