Discussion :

[thomas93]

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

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

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

[SfJ5Rpw8]

Bonjour,

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

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

[thomas93]

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 :

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

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,

[AlainTech]

Bonjour,

D'où sors-tu cette syntaxe:

Code :

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

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

?

[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.