Problème de lecture d'un XML

Bonjour à tous!

J'ai donc besoin de lire un xml!

J'ai pondu ce bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Xml2Session(leFichier As String)   Dim Index As Integer Dim LeDoc As New DOMDocument60 Dim leRoot As IXMLDOMElement Dim unNode As IXMLDOMNode Dim unNodeFils As IXMLDOMNode   Index = 0   LeDoc.Load leFichier Set leRoot = LeDoc.documentElement   For Each unNode In leRoot.childNodes

---

Mon problème vient du fait que la propriété documentElement vaut Nothing.

Je ne vois pas comment palier le problème si quelqu'un à une idée, une piste merci d'avance.

modifie ton code voir si le chargement du fichier se passe bien

Code:

---

1 2 3 4 5 6 7 8 9

If LeDoc.Load (leFichier) then Set leRoot = LeDoc.documentElement For Each unNode In leRoot.childNodes .... else Msgbox "Erreur sur lecture : >" & Lefichier & "<" end if

---

Merci de ta réponse bbil.

Le problème vient de l'encodage de certain fichier, utf-8 ça passe bien mais pas ANSI.

Moi j'ai réalisé le test comme cela pour le moment :

Code:

---

1 2 3 4 5 6 7

Set leRoot = LeDoc.documentElement   If leRoot Is Nothing Then MsgBox ("Fichier non lisible, vérifiez qu'il est encodé en utf-8") Else For Each unNode In leRoot.childNodes

---