Utilisation de SelectSingleNode
Je bloque sur un problème de gestion d'arbre XML, plus précisémment pour retrouver un noeud précis avec SelectSingleNode.
J'utilise en Référence Microsoft XML v6
L'arbre est le suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
<?xml version="1.0" encoding="UTF-8"?>
<structure>
<parameters/>
<schemasources>
<namespaces/>
<schemasources>
<xsdschemasource>
<xmltablesupport/>
<textstateicons/>
</xsdschemasource>
</schemasources>
</schemasources>
<modules/>
<globalstyles>
<rule>
<media>
<media value="all"/>
</media>
</rule>
</globalstyles>
</structure> |
Avec ce code le résultat est toujours Nothing et pourtant le noeud existe bien.
Code:
1
2
3
4
5
6
7
8
9
| Dim LO_XmlSPS As New DOMDocument
Dim LO_Noeud As IXMLDOMNode
LO_XmlSPS.Load (ThisWorkbook.Path + "\ModelesXSLT\StyleLettre.xml")
Set LO_Noeud = LO_XmlSPS.selectSingleNode("//Structure")
If LO_Noeud Is Nothing Then
MsgBox ("noeud non trouvé")
Else
MsgBox (LO_Noeud.Text)
End If |
