Tester une condition dans un XML avec VBA

Version imprimable

Bonjour,

Voilà je bloque ... j'ai une fonction qui est sensée lire un fichier KML pour lequel le nœud "coordinates" n'est pas toujours présent. Alors je comptais tester le nom du nœud est sauter une ligne s'il n'existe pas ! Mais voilà ça semble et doit être tout "con" mais bon, mon script ne fonctionne pas correctement oui ils affiche les valeurs, mais il ne saute pas la ligne lorsque qu'il n'y en à pas. Je pense en outre que le "For Each" n'est peut être pas très adapté.
Si un âme charitable a une solution je suis preneur.

Code:

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
Function Coordinates(file As String)
 
    Set XMLDoc = CreateObject("Microsoft.XMLDOM")
    XMLDoc.async = False
    XMLDoc.Load "R:\PTV\Mes Tests\Test_Macro\" & file
    ' ------------------------ Service ----------------------------
    xpath = "//Placemark"
    Dim xxpath As String: xxpath = "Point/coordinates"
 
    Dim nodeName As String
    Dim str_oSubNode As String
 
    Sheets("F2").Cells(1, 5) = "Coordonnées MAPS"
        ligne = 2
        colone = 5
 
    For Each oNode In XMLDoc.SelectNodes(xpath)
 
 
        For Each oSubNode In oNode.SelectNodes(xxpath)
        	str_oSubNode = oSubNode.nodeName
 
        	If str_oSubNode = "coordinates" Then
        		Debug.Print "match nodeName : " & oSubNode.nodeName
            		Sheets("F2").Cells(ligne, colone) = oSubNode.Text
            		ligne = ligne + 1
      		Else
 
       			Debug.Print ("--------")
             		Sheets("F2").Cells(ligne, colone) = "-------"
             		ligne = ligne + 1
 
   		End If
       Next
     Next
 
Set XMLDoc = Nothing
End Function

18/10/2016, 10h23
Jean-Philippe André

Salut,

ton code on l'a certes, mais comme on ne sait pas exactement quel donnees tu as en entree, et le cas echeant les sorties voulues, ca ne nous pousse pas vraiement a mettre le nez dans le code :)

Dis nous en un peu plus sur ton objectif stp.

Bonjour Jean-Philippe André,

En effet je n'ai pas était très clair, je vais essayé de faire mieux ce coup-ci !:mouarf: en tous les cas merci pour ta réponse !!
En fait le fichier kml ne renvoi pas toujours les <Point><coordinates> et moi dans mon code je souhaiterai récupérer les valeur <coordinates> quand elles existent, les coller dans une cellule. Si en revanche elles ne sont pas présentent je doit sauter une ligne dans le fichier excel. Voilà j’espère que c'est plus clair pour vous !

Code:

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
<?xml version='1.0' encoding='UTF-8'?>
<kml xmlns='http://www.opengis.net/kml/2.2'>
	<Document>
		<name>Verre </name>
		<description><![CDATA[]]></description>
		<Folder>
			<name>1x semaine Lundi.xlsx</name>
			<Placemark>
				<name>Lundi</name>
				<description></description>
				<styleUrl>#icon-959-62AF44</styleUrl>
				<ExtendedData>
					<Data name='Type Periode'>
						<value>Hebdomadaire</value>
					</Data>
					<Data name='Valeur Periode'>
						<value>1.0</value>
					</Data>
					<Data name='Code Client U'>
						<value>00000</value>
					</Data>
					<Data name='Nom Client'>
						<value>LYCEE HOTELIER</value>
					</Data>
					<Data name='Materiel'>
						<value>500 L</value>
					</Data>
					<Data name='Lieu Exploitation'>
						<value>LYCEE</value>
					</Data>
					<Data name='Adresse'>
						<value>Adresse</value>
					</Data>
					<Data name='Code Postal'>
						<value>00000</value>
					</Data>
					<Data name='Ville'>
						<value>Ville</value>
					</Data>
					<Data name='Longitude WG284'>
						<value>0.454559</value>
					</Data>
					<Data name='Latitute WG284'>
						<value>45.821421</value>
					</Data>
					<Data name='Service'>
						<value>964060.0</value>
					</Data>
					<Data name='Matiere'>
						<value>VERRE</value>
					</Data>
					<Data name='Tournee Previsionnelle'>
						<value>T-23- IPOVRAC</value>
					</Data>
					<Data name='Activite Tournee'>
						<value>BOM DI</value>
					</Data>
				</ExtendedData>
				<address>Adresse comp</address>
			</Placemark>
			<Placemark>
				<name>Lundi</name>
				<description><![]]></description>
				<styleUrl>#icon-959-62AF44</styleUrl>
				<ExtendedData>
					<Data name='Type Periode'>
						<value>Hebdomadaire</value>
					</Data>
					<Data name='Valeur Periode'>
						<value>1.0</value>
					</Data>
					<Data name='Code Client U'>
						<value>000000</value>
					</Data>
					<Data name='Nom Client'>
						<value>NC</value>
					</Data>
					<Data name='Materiel'>
						<value>750 L</value>
					</Data>
					<Data name='Lieu Exploitation'>
						<value>LE</value>
					</Data>
					<Data name='Adresse'>
						<value>Adre</value>
					</Data>
					<Data name='Code Postal'>
						<value>CP</value>
					</Data>
					<Data name='Ville'>
						<value>Ville</value>
					</Data>
					<Data name='Longitude WG284'>
						<value>-0.564079</value>
					</Data>
					<Data name='Latitute WG284'>
						<value>44.8913736</value>
					</Data>
					<Data name='Service'>
						<value>NS</value>
					</Data>
					<Data name='Matiere'>
						<value>VERRE</value>
					</Data>
					<Data name='Tournee'>
						<value>T-23- IPOVRAC</value>
					</Data>
					<Data name='Activite Tournee'>
						<value>BOM DI</value>
					</Data>
				</ExtendedData>
				<Point>
					<coordinates>-0.5641912,44.8907199,0.0						</coordinates>
				</Point>
			</Placemark>
			<Placemark>
 
	</Document>
</kml>

Le probleme que tu as est que tu ecrases a chaque iteration ta valeur dans la cellule F2, alors qu'une fois les coordonnees trouvees, tu dois sortir de là, avec un Goto, car tu es dans une double boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If str_oSubNode = "coordinates" Then
        		Debug.Print "match nodeName : " & oSubNode.nodeName
            		Sheets("F2").Cells(ligne, colone) = oSubNode.Text
            		ligne = ligne + 1
GoTo Fin
      		Else
 
       			Debug.Print ("--------")
             		Sheets("F2").Cells(ligne, colone) = "-------"
             		ligne = ligne + 1
 
   		End If
 Next
     Next
 Fin:
Set XMLDoc = Nothing

18/10/2016, 18h25
Flashouilleur

J'ai testé vite fait mais ça n'a pas l'air de fonctionner.
Le truc c'est que j'avance d'une ligne à chaque itération donc je ne pense pas écraser les valeurs retournées. Le code écrit bien sur chaque ligne mais il n'en saute pas si <Point><coordinates> n'existe pas
19/10/2016, 10h37
Jean-Philippe André
Rah, bourdeyl, mais quelle idee aussi d'appeller sa feuille comme le nom d'une cellule :(

Bon alors, si on prenait le temps de voir si au moins tu parcours tous les noeuds ?
Code:

1 2 3 4 5 For Each oNode In XMLDoc.SelectNodes(xpath) For Each oSubNode In oNode.SelectNodes(xxpath) Debug.Print oSubNode.nodeName Next Next
ne parcourt que 2 niveaux de noeuds, sauf erreur.
20/10/2016, 08h24
Flashouilleur

Ouais ! en effet mais le F1 était déjà pris par des voitures de sport :lol:
Bon j'ai testé et le Debug me renvoi bien coordinates donc c'est bon non ?
20/10/2016, 10h22
Jean-Philippe André

Donc tu me dis que ton code passe et lit bien coordinates, mais que ta boucle n'y passe pas ?
C'est bien ca ?
20/10/2016, 10h39
Flashouilleur

Oui, la boucle passe je pense peut être que c'est justement le soucis. Je ne devrai pas boucler sachant qu'il n'y a qu'un seul nœud coordinates dans le Placemark. Mais je ne vois pas encore comment.
20/10/2016, 10h53
Jean-Philippe André

Regarde la solution qu'on avait trouvee pour faire ce genre de choses :
http://www.developpez.net/forums/d46...ees-xml-excel/