changer la valeur d'un noeud xml

bonjour

j'espere que cet exemple pourra t'aider


Sub modifierNoeud()
Dim xmlDoc As New DOMDocument
Dim nodeRoot As IXMLDOMNode, Ancien As IXMLDOMNode, Nouveau As IXMLDOMNode
Dim nodeTemp As IXMLDOMNode, Anciens As IXMLDOMNodeList
Dim i As Integer

xmlDoc.async = False
   
With xmlDoc
.Load "C:\monFichier.xml"
Set nodeRoot = .documentElement
Set Anciens = nodeRoot.selectNodes("//noeud_Actuel") 'modification noeud nommé "noeud_Actuel"
       
For Each Ancien In Anciens
Set Nouveau = .createElement("mise_A_Jour") 'le noeud de remplacement sera nommé "mise_A_Jour"
           
For Each nodeTemp In Ancien.Attributes 'Copie des attributs
Nouveau.Attributes.setNamedItem (nodeTemp.CloneNode(True))
Next
       
For Each nodeTemp In Ancien.childNodes 'Copie des attributs et mise à jour données
i = i + 1
nodeTemp.Text = "nouvelle donnée x " & i
Nouveau.appendChild nodeTemp
Next
           
Ancien.parentNode.replaceChild Nouveau, Ancien
Next
   
.Save "C:\monFichier.xml"
End With
End Sub



bonne journée
michel