XML - Créer des Nodes

Bonjour à toutes et à tous,

Voici mon problème :

Je voudrais ajouter des Nodes Enfants (NodeE) à une Node Parent (NodeP) si jamais le NodeP existe, sinon, le NodeE est alors un NodeP.
J'espère que jusque là c'est assez clair 8O.

Bon sinon voici une autre traduction : je n'arrive pas à déterminer si un Node existe dans le document et auquel cas ajouter un node dans ce Node qui existe.
Et dans le cas où il n'existe pas alors il faudrait que je puisse le créer.

Voici ce que j'ai fait (Mais qui ne fonctionne pas bien entendu :yaisse2: )

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
 
Public Sub AddNode(ByVal NomFichier, ByVal NomElement, ByVal NomNode, ByVal Valeur)
 
	Dim xmlDoc, oRoot, oElement, oNode, rdr, wrt, oStream
 
	NomElement = Replace(NomElement, " ", "_")
	NomNode = Replace(NomNode, " ", "_")
	NomNode = Replace(NomNode, "$", "")
 
	''''''''''''''''''''''''
	' Ouverture du fichier '
	''''''''''''''''''''''''
	Set xmlDoc = CreateObject("Microsoft.XMLDOM")
	xmlDoc.Load(NomFichier)
 
	On Error Resume Next
 
	''''''''''''''''''''''''''''''''''''''''''''''
	' On regarde si un Node "Parent" existe déjà '
	''''''''''''''''''''''''''''''''''''''''''''''
	Set oElement = xmlDoc.selectSingleNode(NomElement) ' xmlDoc.selectSingleNode("Racine/Balise/@Attribut)
 
	If Err.Number = 0 Then
 
		WScript.Echo "ok 1"
		Set oNode = xmlDoc.createElement(NomNode)
		oNode.setAttribute "CreationDate", Now
		oNode.Text = Valeur
		oElement.appendChild oNode
 
	Else
 
		WScript.Echo "ok 2"
		Set oElement = xmlDoc.selectSingleNode("Racine")  ' positionnement sur la racine
		Set oElement = xmlDoc.createElement(NomElement)    ' création d'un fils membre
		xmlDoc.documentElement.appendChild oElement       ' crée le fils de la racine
 
		Set oNode = xmlDoc.createElement(NomNode)
		oNode.setAttribute "CreationDate", Now
		oNode.Text = Valeur
		oElement.appendChild oNode
 
 
	End If
 
	Set oElement = Nothing
	Set oNode = Nothing
	Set oRoot = Nothing
 
	On Error GoTo 0
End SUb

Je ne m'y connais pas du tout en xml et ce n'est que mon deuxième jour alors soyez indulgeant :mouarf:

Cordialement,