Bonjour,
je sèche sur un problème surment très simple à résoudre, mais j'ai beau chercher sur les forums, je trouve rien qui me débloque;
Je cherche à accéder aux données "ADRESSE" (cf ci dessous). J'explique, j'arrive à acéder aux info à la racine et ainsi qu'aux données comme "REMARQUE" pour l'utilisateur, mais dès que je veux descendre d'un crant je sèche.
voici un exemple d'XML que j'ai sité
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
<DONNEES Date_creation="14/11/04">
    <UTILISATEUR NOM="PISSARO Camille">
<RUE1>Rue Victor Hugo</RUE1>
<RUE2/>
<CODE_POSTAL>95300</CODE_POSTAL>
<VILLE>Pontoise</VILLE>
<PAYS>France</PAYS>
    <REMARQUE>
azezaezaeze
</REMARQUE>
    <MELS>
<ADRESSE Num="1">c.pissaro@pontoise.org</ADRESSE>
<ADRESSE Num="2">camille.pissaro@impressioniste.pict</ADRESSE>
</MELS>
</UTILISATEUR>
    <UTILISATEUR NOM="COURBET Gustave">
<RUE1>Hôtel Hébert</RUE1>
<RUE2>Place Robert Fernier</RUE2>
<CODE_POSTAL>25290</CODE_POSTAL>
<VILLE>Ornans</VILLE>
<PAYS>France</PAYS>
    <REMARQUE>
zaezaezea
</REMARQUE>
    <MELS>
<ADRESSE Num="1">g.courbet@free.fr</ADRESSE>
<ADRESSE Num="2">gustave.courbet@patres.sky</ADRESSE>
</MELS>
</UTILISATEUR>
    <UTILISATEUR NOM="GEROME Jean-Léon">
<RUE1>Musée Georges Garret</RUE1>
RUE2>1 bis, rue des Ursulines</RUE2>
<CODE_POSTAL>70000</CODE_POSTAL>
<VILLE>Vesoul</VILLE>
<PAYS>France</PAYS>
    <REMARQUE>
zzaazezaezea
</REMARQUE>
    <MELS>
<ADRESSE Num="1">jl.gerome@wanadoo.fr</ADRESSE>
</MELS>
</UTILISATEUR>
</DONNEES>
voici ce que j'ai essayé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim xText As IXMLDOMElement
Dim xObjects As IXMLDOMElement
Dim xTruc As IXMLDOMElement
Set xObjects = xmlDoc.selectSingleNode("Objects")
 
For Each xTruc In xmlDoc.getElementsByTagName("MELS")
If DEBOG = 1 Then Text1 = Text1 & "Objects " & vbCrLf & "---" & vbCrLf
Next
 
For Each xTruc In xObjects.getElementsByTagName("ADRESSE") ''Bloque ici!!!
If DEBOG = 1 Then Text1 = Text1 & "Text " & vbCrLf & "---" & vbCrLf
Next
merci d'avance