Discussion :

[NejNej]

Bonjour à tous!

J'ai donc besoin de lire un xml!

J'ai pondu ce bout de code :

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
 
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.

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NejNej]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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