[VBA] - Modifier fichier XML

nico0007

XLDnaute Junior
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:
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?
 

Statistiques des forums

Discussions
283 465
Messages
1 852 013
Membres
151 501
dernier inscrit
Coyots
Haut Bas