Générer un fichier Xml via VBA

Version imprimable

Bonjour,

Je dois générer un fichier Xml via une macro VBA. Le problème est que je n'ai jamais fait cela et je n'ai aucune idée de comment commencer malgré de multiples recherches sur internet (XMLDOM ...non compris :/ )
J'ai déjà un fichier xml existant, je dois reprendre la même structure pour en générer un nouveau.

Voici une partie de mon fichier xml que j'ai récupéré.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 <?xml version="1.0" encoding="ISO-8859-1" standalone="true"?> -<DATAPACKET Version="2.0"> -<METADATA> -<FIELDS> <FIELD fieldtype="i4" attrname="NUMERO"/> <FIELD fieldtype="string" attrname="CODE" WIDTH="4"/> <FIELD fieldtype="i4" attrname="NB"/> <FIELD fieldtype="string" attrname="INFO" WIDTH="80"/> <FIELD fieldtype="string" attrname="DISPOSITION" WIDTH="3"/> </FIELDS> <PARAMS/> </METADATA> -<ROWDATA> <ROW DISPOSITION="011" NB="1" CODE="P8" NUMERO="2"/> <ROW DISPOSITION="011" NB="1" CODE="P1" NUMERO="1"/> <ROW DISPOSITION="015" NB="1" CODE="P3" NUMERO="3"/>
Je ne sais pas comment commencer, est ce que quelqu'un s'y connait et pourrait me donner un exemple ? svp

Bien cordialement les développeurs ;)

20/11/2015, 15h11
SfJ5Rpw8

Bonjour,

tiens : http://vb.developpez.com/faq/vbs?pag...u-document-XML

c'est du VBScript mais facilement transposable en VBA...

Merci !
Désolé pour le retard, j'étais de séjour à l'étranger. Merci pour ton retour en tout cas !

Je viens de regarder le tuto.
J'ai cependant encore un pb :

Je souhaiterais supprimer la balise ROW lorsque CODE = P8.
Voici ce que j'ai écrit :
Code:

1 2 3 4 5 6 7 8 9 xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.Async = "false" xmlDoc.Load("C:\Users\Joris\Desktop\Test.xml") For Each oElement In From element In xmlDoc.<DATAPACKET>.<ROWDATA>.<ROW> Where element.@CODE = "P8" ROW.Remove() Next xmlDoc = Nothing
Malheureusement il y a un problème au niveau de la boucle. Je crois qu'il n'aime pas le "xmlDoc.".
As-tu une idée ? stp

Merci,

Bonjour,

D'où sors-tu cette syntaxe:

Code:

1
2
        For Each oElement In From element In xmlDoc.<DATAPACKET>.<ROWDATA>.<ROW>
                 Where element.@CODE = "P8"

13/12/2015, 20h16
clementmarcotte

Bonjour,

Je ne sais pas si c'est vraiment ça, mais cela m'inspire une sorte de "déjà vu"; du genre une requête LINQ dans VB.net.