Récupérer valeur balise dans fichier XML

1 pièce(s) jointe(s)

Bonjour,

J'ai un fichier XML sur lequel je souhaiterai récupérer une valeur dans une variable.
Le fichier est en pièce jointe.
Je souhaiterai récupérer la valeur de ID dans la balise HardwareID.

Pouvez vous m'aider svp ?

Merci beaucoup !

Salut

Comment accéder aux valeurs d'un noeud par le nom de balise ?
Je pense que cela répond à ta question.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Dim xmlDoc, xmlAttrib, StrID
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false" ' permet de charger entièrement le document en mémoire avant le traitement
xmlDoc.Load ("C:\Users\francis\Downloads\sephwid.xml")
Set xmlAttrib = xmlDoc.getElementsByTagName("HardwareID")
StrID = xmlAttrib(0).Attributes(0).nodeValue
MsgBox StrID
Set xmlAttrib = Nothing
Set xmlDoc = Nothing

J'aurai préféré te proposer un GET("ID"), mais je ne sais pas faire.

Motif de l'édit:
A la place des lignes 9 et 10

Code:

1
2
3
4
5
6
StrID = xmlAttrib(0).getAttribute("ID")
MsgBox StrID
StrID = xmlAttrib(0).getAttribute("LastUsedTime")
MsgBox StrID
StrID = xmlAttrib(0).getAttribute("CreationTime")
MsgBox StrID

Merci de ta réponse !