Bonjour à tous,
Je rentre dans le détail de mon dernier post.
J'ai en effet besoin de modifier certaines balises au sein d'un fichier XML. Pour cela j'utilise déjà le code suivant:
Seulement j'ai un soucis car ce code me change bien la valeur mais supprime par la même occasion la balise associée. Il place alors la nouvelle valeur dans la balise parent.
Quelqu'un pour m'aider?
Je rentre dans le détail de mon dernier post.
J'ai en effet besoin de modifier certaines balises au sein d'un fichier XML. Pour cela j'utilise déjà le code suivant:
Code:
Sub modifierFichierXML()
Dim xmlDoc As DOMDocument
Dim Rt As IXMLDOMElement
Set xmlDoc = New DOMDocument
xmlDoc.async = False
xmlDoc.Load ThisWorkbook.Path & "\acquisition_old.xml"
Set Rt = xmlDoc.documentElement
parseNodes Rt
xmlDoc.Save ThisWorkbook.Path & "\acquisition_old.xml"
End Sub
Private Sub parseNodes(Rt_node As IXMLDOMNode)
Dim i As Long
For i = 0 To Rt_node.childNodes.Length - 1
If Rt_node.childNodes.Item(i).Text = "mon ancienne valeur" Then
Rt_node.childNodes.Item(i).Text = "ma nouvelle valeur"
End If
parseNodes Rt_node.childNodes(i)
Next
End Sub
Seulement j'ai un soucis car ce code me change bien la valeur mais supprime par la même occasion la balise associée. Il place alors la nouvelle valeur dans la balise parent.
Quelqu'un pour m'aider?