Bonjour,

Je voulais créer un VBScript qui puisse lire un XML.
Je me suis inspiré de ce model :
http://baptiste-wicht.developpez.com...ipt/xml/xpath/

Et j'ai cette erreur :
Windows Script Host
Scrip j:\Prog\VBS-XML\VBS-XML01.vbs
Ligne: 15
Caract. : 1
Erreur : Objet requis: 'personneElement'
Code : 800A01A08
Source : Erreur d'execution Microsoft VBScript


mon 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
 
<?xml version="1.0" encoding="ISO-8859-1"?>
 
<Personnes>
	<Personne>
		<NewText01>Jorge</NewText01>
		<NewText02>Dommingues LOPES</NewText02>
		<NewText_03>M</NewText_03>
		<NewText04>1975.12.30</NewText04>
		<NewText_07>[ !?_Ville_?! ], [ !?_Etat / Province_?! ], [ !?_Pays_?! ]</NewText_07>
		<NewText_08>_AAAA-MM-JJ_</NewText_08>
		<NewText_09>[ !?_Ville_?! ], [ !?_Etat / Province_?! ], [ !?_Pays_?! ]</NewText_09>
	</Personne>
 
	<Personne>
		<NewText01>Jorge</NewText01>
		<NewText02>Dommingues LOPES</NewText02>
		<NewText_03>M</NewText_03>
		<NewText04>1975.12.30</NewText04>
	</Personne>
</Personnes>

Mon code
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
 
'	La première chose à faire dans notre code est donc d'initialiser un parseur :
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
 
'	Il nous faut maintenant ouvrir notre fichier. 
'	On va également indiquer au parseur de charger tout le fichier en mémoire avant de commencer à le parser :
xmlDoc.Async = "false"
xmlDoc.Load("Peoples_Arbre00_01.xml")
 
'On récupère tous les noeuds personnes 
'à l'intérieur d'un noeud personnes
For Each PersonneElement In xmlDoc.selectNodes("/Personnes/Personne")
Next
 
'On récupère les informations sur la personne
nom = PersonneElement.selectSingleNode("NewText01").text
prenom = PersonneElement.selectSingleNode("NewText02").text
dateN = PersonneElement.selectSingleNode("NewText04").text
 
MsgBox	"Nom : " & nom & vbcrlf & _ 
		"Prénom : " & prenom & vbcrlf & _ 
		"Date de naiss : " & dateN
 
 
Set xmlDoc = Nothing

J'ai l'impression que c'est une histoire de variable?
Je connais très mal le VBScript !!!
cette variable devra être global


Merci de votre aide

Jorge