Extraire des données dans XML en ciblant des ID?

Version imprimable

Hello tout le monde!

Patrick m'avait enseigné comment extraire une donnée dans un code source html avec l'aide du fameux "Split(Split(Code, "<donnee>")(1), "</donnee>")(0)" 8-)

Maintenant mon problème a changé car je génère un code source XML avec plusieurs dizaines de données à récupérer selon une ID :weird: Le contenu du XML ressemble à cela:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
- <references>
  - <reference>
         <referenceid>ID placé dans une cellule EXCEL</referencetid>
  - <headline>
          <![CDATA[donnéeX]]>
    </headline>
  - <caption>
         <![CDATA[donneeY]]>
    </caption>
  - <topic>
         <![CDATA[donneeZ]]>
    </topic>
  - <nombre>
         <total>2</total>
         <A>0</A>
         <B>1</B>
         <C>1</C>
    </nombre>
  - <donnees>
        - <global>
           - <donnee1>
                <amount>donné souhaitait</amount>
                <amount2>XERO</amount2>
             </donnee1>
           - <donnee2>
                <amount>donnés souhaitait</amount>
                <amount2>XERO</amount2>
             </donnee2>
             <type>PLUS</type>
         </global>
       - <B>
            - <donnee1>
                <amount>443644</amount>
                <amount2>XERO</amount2>
             </donnee1>
           - <donnee2>
                <amount>124444</amount>
                <amount2>XERO</amount2>
             </donnee2>
             <type>MOINS</type>
       - </B>
       - <C>
            - <donnee1>
                <amount>5464534</amount>
                <amount2>XERO</amount2>
             </donnee1>
           - <donnee2>
                <amount>3455433</amount>
                <amount2>XERO</amount2>
             </donnee2>
             <type>PLUS</type>
       - </C>
  - </donnees>  
- </references>
 
'...plusieurs dizaines d'ID et de données

Donc mon but serait de récupérer les données utiles dans " references/donnees/global" en dessous de chaque ID et de les rapatrier dans des cellules a côté de mes ID placées dans la colonne (A:A). A noter que l'ordre des ID dans le XML n'apparait pas dans l'ordre de mes ID sur la colonne.

Voila un code "simplifié", c'est la seconde partie qui m'intéresse car elle n'est malheureusement qu'imaginaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'pas de problèmes pour la partie génération et extraction du code source xml
 
listeID = concatener(A1:A50;""-"")
 
url = "http://www.site.com" & listeID
 
code = PostCodeSource (url)
 
 
'Voilà ce que j'imaginerai, pour le ciblage et la sélection de mes données utiles pour chaque ID
 
For Each C In ThisWorkbook.Worksheets("Feuill1").Range("A1:A50")
 
Ciblage = FindID(Code) "<referenceid>(C)</referenceid>" 
 
C.Offset(0, 1) = Ciblage(Split(Split(Code, "references/donnees/global/donnée1/amount")(1), "</amout>")(0)) 'inscrit la donnée utile qu'il y a en dessous de l'ID
C.Offset(0, 2) = Ciblage(Split(Split(Code, "references/donnees/global/donnée2/amount")(1), "</amout>")(0)) 'inscrit la donnée utile qu'il y a en dessous de l'ID
 
Next C

Merci à tous ! ;)

03/10/2014, 14h30
Nico Chg

Bonjour,

Est ce que l’arborescence de ton fichier XML est fixe, ou alors le nombre de nœuds varie ?
03/10/2014, 16h17
Dan.exe

Bonjour ! :)

Le nombre d'ID peut varier

Le nombre de lignes qu'il y a entre <id>...</id> et <donnee>...</donnee> peut varier, de même que les lignes qui sont en dessous de la donnée et de la prochaine ID

J'espère avoir répondu à la question

Merci de t'intéresser à mon problème 8-)
03/10/2014, 16h35
Nico Chg
Oui et non. :mouarf:

En réalité, lorsque tu va parcourir un fichier XML en VBA, tu va te balader de nœuds en nœuds. Donc c'était de connaître le nombre de noeuds entre la base et les données.
Code:

1 2 3 4 5 <node1> <node2> <node3/> </node2 </node1>
ici ton arborescence fait 3noeuds. C'est ce que je voulais savoir. Si l'arborescence est fixe, ou si l'arborescence varie d'un ID à l'autre.

:mrgreen:

Je comprends mieux ta question après avoir recopier le XML, j'ai changé mon premier message

Donc pour être plus précis, je veux les données 1 et 2 qu'il y a entre les amount dans references/donnees/global et pour répondre (peut être) à ta question, je pense qu'il varie car quand <nombre><A></A> est à zéro, il n’y a pas <A></A> entre <donnees></donnees>

Merci

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
- <references>
  - <reference>
         <referenceid>ID placé dans une cellule EXCEL</referencetid>
  - <headline>
          <![CDATA[donnéeX]]>
    </headline>
  - <caption>
         <![CDATA[donneeY]]>
    </caption>
  - <topic>
         <![CDATA[donneeZ]]>
    </topic>
  - <nombre>
         <total>2</total>
         <A>0</A>
         <B>1</B>
         <C>1</C>
    </nombre>
  - <donnees>
        - <global>
           - <donnee1>
                <amount>donné souhaitait</amount>
                <amount2>XERO</amount2>
             </donnee1>
           - <donnee2>
                <amount>donnés souhaitait</amount>
                <amount2>XERO</amount2>
             </donnee2>
             <type>PLUS</type>
         </global>
       - <B>
            - <donnee1>
                <amount>443644</amount>
                <amount2>XERO</amount2>
             </donnee1>
           - <donnee2>
                <amount>124444</amount>
                <amount2>XERO</amount2>
             </donnee2>
             <type>MOINS</type>
       - </B>
       - <C>
            - <donnee1>
                <amount>5464534</amount>
                <amount2>XERO</amount2>
             </donnee1>
           - <donnee2>
                <amount>3455433</amount>
                <amount2>XERO</amount2>
             </donnee2>
             <type>PLUS</type>
       - </C>
  - </donnees>  
- </references>

06/10/2014, 10h33
Nico Chg

1 pièce(s) jointe(s)
Bonjour,

J'ai encore un peu de mal à saisir ce que tu veux récupérer, parceque je vois des données écris un peu partout :mrgreen:

je vais te donner quelques billes pour lire/écrire du XML dans ce cas. Nécessite la référence
Pièce jointe 158021
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 <nodeX> <node2> <nodeA/> </node2> <node3> <nodeB/> </node3> </nodeX> <nodeY> <node4> <nodeC/> </node4 </nodeY>
Code:

1 2 3 4 5 6 7 Dim oXML As MSXML2.DOMDocument Dim oNode As MSXML2.IXMLDOMNode Dim oSubNode As MSXML2.IXMLDOMNode Set oXML = New MSXML2.DOMDocument oXML.async = False oXML.Load "path/file.xml"
Ici, tu ouvre ton document XML (sans surprise, j'imagine)

Code:

For Each oNode In oXML.DocumentElement.ChildNodes

Avec ça tu peux parcourir les noeuds liée à la racine. Dans ton exemple, il n'y a que "Référence". Dans mon exemple, je vais parcourir le noeuds X et le noeuds Y.

Code:

For Each oSubNode In oNode.ChildNodes

Ici, je parcours tous les sous noeuds du noeuds oNode. donc les noeuds 2, 3 et 4.

Je peux spécifier un peu
Code:

1 2 3 For Each oNode In oXML.DocumentElement.ChildNodes If oNode.BaseName = "nodeX" then For Each oSubNode In oNode.ChildNodes
La je verrais que les noeuds 2 et 3.

Après je suis désolé, mais mes connaissances en XML/VBA sont assez limités :mrgreen:
06/10/2014, 10h39
Marc-L

Bonjour, bonjour !

De toute manière, entre la FAQ et les tutoriels sur le XML à disposition sur ce site, le demandeur s'en sortira …
06/10/2014, 15h21
Dan.exe

MErci Nico, je vais voir ce que je peux faire avec tes indications. Les données que je veux sont mentionnées sous "donnée souhaitait" dans les noeuds "references/donnees/global/donnée1/amount" et "references/donnees/global/donnée1/amount".