Bonjour à tous,
Dans un projet, je dois remplir un entrepôt de données avec des fichiers xml.
Je me suis documenté avec le tuto suivant :
http://access.developpez.com/faq/?page=Fichier#lirexml
J'ai trouvé ce code pour lire un fichier xml :
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
| Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
Dim i As Long
For i = 0 To root_node.childNodes.length - 1
If root_node.childNodes.Item(i).nodeType <> 3 Then Debug.Print root_node.childNodes.Item(i).baseName
BrowseChildNodes root_node.childNodes(i)
Next
End Sub
Private Sub BrowseXMLDocument(ByVal filename As String)
Dim xmlDoc As DOMDocument, root As IXMLDOMElement
Set xmlDoc = New DOMDocument
xmlDoc.async = False
xmlDoc.Load filename
Set root = xmlDoc.documentElement
If Not root Is Nothing Then
Debug.Print root.baseName
BrowseChildNodes root
End If
End Sub |
Mais il y a quelquechose que je ne comprends pas dedans.
Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
Le paramètre root_node est un objet "IXMLDOMNode"
Quand on appelle la procédure : la variable "root" est un objet "IXMLDOMElement".
Est-ce normal que root soit différent de root_node ? Quelqu'un peut-il m'expliquer svp ?
Merci par avance de vos réponses
Ps : Je débute sur VBA Access, il se peut que je ne comprenne pas tout
Partager