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