Bonjour,

Après avoir écumé la toile et après un petit millier d'essais infructueux, je me tourne vers les pros.
Donc voilà mon souci ! Je cherche à extraire les données contenues dans chaque balises <value> en fonction du l'attribut du nœud <Data>. Mon code lui, extrait toutes les <values> de <Data>
J’espère avoir était assez clair
Merci d'avance

LE XML
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
<?xml version='1.0' encoding='UTF-8'?>
<kml xmlns='http://www.opengis.net/kml/2.2'>
	<Document>
		<name>1x semaine Lundi.xlsx</name>
		<Placemark>
			<name>038552</name>
			<description><![CDATA[Description_1]]></description>
			<styleUrl>#icon-959-62AF44</styleUrl>
			<ExtendedData>
				<Data name='Nom Client'>
					<value>Non_Client_1</value>
				</Data>
				<Data name='Lieu Exploitation'>
					<value>Lieu_Exploit_1</value>
				</Data>
				<Data name='Adresse'>
					<value>Adresse_1</value>
				</Data>
				<Data name='Code Postal'>
					<value>CP_1</value>
				</Data>
				<Data name='Ville'>
					<value>Ville_1</value>
				</Data>
				<Data name='Longitude WG284'>
					<value>Long_1</value>
				</Data>
				<Data name='Latitute WG284'>
					<value>Long_2</value>
				</Data>
				<Data name='Service'>
					<value>Service_1</value>
				</Data>
			</ExtendedData>
			<address>Adresse_1</address>
		</Placemark>
<Placemark>
			<name>038552</name>
			<description><![CDATA[Description_2]]></description>
			<styleUrl>#icon-959-62AF44</styleUrl>
			<ExtendedData>
				<Data name='Nom Client'>
					<value>Non_Client_2</value>
				</Data>
				<Data name='Lieu Exploitation'>
					<value>Lieu_Exploit_2</value>
				</Data>
				<Data name='Adresse'>
					<value>Adresse_2</value>
				</Data>
				<Data name='Code Postal'>
					<value>CP_2</value>
				</Data>
				<Data name='Ville'>
					<value>Ville_2</value>
				</Data>
				<Data name='Longitude WG284'>
					<value>Long_2</value>
				</Data>
				<Data name='Latitute WG284'>
					<value>Long_2</value>
				</Data>
				<Data name='Service'>
					<value>Service_2</value>
				</Data>
			</ExtendedData>
			<address>Adresse_2</address>
		</Placemark>
 
	</Document>
</kml>
Et Le VBA
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
 
Sub LectureXml()
 
Dim oXML As MSXML2.DOMDocument
Dim oNode As MSXML2.IXMLDOMNode
 
Set oXML = New MSXML2.DOMDocument
oXML.async = False
oXML.Load "R:\@_Agences\Begles\THIERRY\PTV\Mes Tests\Test_Macro\Lundi_dCom.xml"
 
 
For Each oNode In oXML.SelectNodes("//Data")
Debug.Print oNode.Text
   Next
 
End Sub