Bonjour à tous,

J’essaie de développer un petit script VBS qui me lirait un fichier XML et en extrairait certains éléments.
Je m’explique. Mon fichier XML ressemble à ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
<ITEM ID="RT789" SUPPORT="5"><OWNER>TEX</OWNER><GROUP>BILLING</GROUP><TEST>Unknown</TEST><CODE>5</CODE><CODEGROUP>45</CODEGROUP></ITEM>
<ITEM ID="YN524" SUPPORT="8"><OWNER>OHI</OWNER><GROUP>BILLING</GROUP><TEST>Unknown</TEST><CODE>20</CODE><CODEGROUP>12</CODEGROUP></ITEM>
<ITEM ID="WQ102" SUPPORT="9"><OWNER>REP</OWNER><GROUP>MANAG</GROUP><TEST>Unknown</TEST><CODE>32</CODE><CODEGROUP>87</CODEGROUP></ITEM>
...
Pour chaque ITEM, je souhaite récupérer l’ID, le CODE et le CODEGROUP et afficher les résultats dans une MessageBox. Par rapport à mon exemple, je voudrais récupérer donc les valeurs suivantes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ID=RT789 CODE=5 CODEGROUP=45
ID=YN524 CODE=20 CODEGROUP=12
ID=WQ102 CODE=32 CODEGROUP=87

J’ai tenté de lancer le code suivant qui ne m'affiche absolument rien. Quelqu’un aurait-il une idée de comment récupérer ces infos ?
Code : 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
Option Explicit
 
Dim xmlDoc, xmlAttrib, StrID, StrCode, StrGroup, nodeParent
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false" ' permet de charger entièrement le document en mémoire avant le traitement
xmlDoc.Load ("C:\TEMP\Fichier.xml")
 
For Each nodeParent In xmlDoc.selectNodes("/ITEM") 
    StrID = nodeParent.selectSingleNode("ID").text
    StrCode = nodeParent.selectSingleNode("CODE").text
    StrGroup = nodeParent.selectSingleNode("CODEGROUP").text
    MsgBox "ID=" & StrID & " CODE=" & StrCode & " CODEGROUP=" & StrGroup
Next
 
Set xmlAttrib = Nothing
Set xmlDoc = Nothing

Merci d’avance pour votre aide.