Lecture fichier Xml

Salut à tous,

Je souhaiterai lire un fichier xml avec une macro VBA.

Exemple du fichier XML

Code:

---

1 2 3 4 5 6 7 8

<?xml version="1.0" encoding="ISO-8859-1"?> <Fichier date="19/10/2011"> <Row Id="1"> <Column Name="Code" Value="Valeur1" /> <Column Name="Libelle" Value="Valeur2" /> <Column Name="Valeur" Value="Valeur3" /> </Row> </Fichier>

---

Le but de la macro est de récupérer pour l'id = 1, la valeur 1 2 et 3.

Merci pour votre aide

Intéresse toi à la bibliothèque Microsoft XML , rajoute à ton projet la référence à "Microsoft XML. v...."

et essai ce premier exemple qui met le résultat dans la fenêtre exécution (CTLR +G )

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

Option Explicit Sub LecTureXML() Dim oXML As New MSXML2.DOMDocument Dim stFicXML As String stFicXML = "D:\tmp\Monxml.xml" oXML.async = False Dim oNodeRow As IXMLDOMElement Dim oNode As IXMLDOMElement   Dim oAttribut As IXMLDOMAttribute If oXML.Load(stFicXML) Then Set oNodeRow = oXML.selectSingleNode("/Fichier/Row[@Id='1']") 'Ce positionne sur le noeud 1..   For Each oNode In oNodeRow.childNodes For Each oAttribut In oNode.Attributes Debug.Print oAttribut.Name & " = " & oAttribut.Value & "/"; Next Debug.Print Next Else MsgBox "Erreur ouverture fichier xml :" & Dir(stFicXML)   End If   End Sub

---

pour avoir un code plus adapté il faudrait en savoir plus sur ton XML .. celui-ci possède-t-il toujours le même format, le même nombre de noeud ...?