Remplacer une valeur dans un fichier XML

Version imprimable

Bonjour,

Pour mon projet, je dois intégrer quelques paramètres à mon projet au lancement de celui-ci, et potentiellement changer 1 des valeurs.

Mon XML:
Code:

1 2 3 4 5 6 7 <?xml version="1.0"?> <Dispatch> <field name="Poste" value="Dispatch01" /> <field name="Vitesse" value="10" /> <field name="PTL" value="0" /> <field name="IP" value="192.168.87.10" /> </Dispatch>
Extrait de mon code VBA:
Code:

1 2 3 4 5 6 7 8 9 10 Sub TTS() Dim post As Object Dim TTSSpeed As Long With CreateObject("MSXML2.DOMDocument") .async = False: .validateOnParse = False .Load ("C:\TTS\Parametres.xml") Set post = .SelectNodes("/Dispatch/field[@name='Vitesse']")(0) TTSSpeed = Int(post.GetAttribute("value")) End With Exit Sub
La lecture se passe bien.
La valeur du TTSSpeed peux changer au cours du projet.
J'aimerais pouvoir la remplacer dans le XML, mais je ne sais pas comment faire.

Merci pour votre aide

hello,
tu peux essayer quelque chose comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub UpdateXML()
Dim OXMLFile, oAttribute As Object
Dim mainWorkBook As Workbook
Set mainWorkBook = ActiveWorkbook
Set OXMLFile = CreateObject("Microsoft.XMLDOM")
XMLFileName = "D:\Dev\Office\Excel\MonXml.xml"
OXMLFile.Load (XMLFileName)
'Update attribute of a Node
Set oAttribute = OXMLFile.SelectSingleNode("/Dispatch/field[@name='Vitesse']/@value")
oAttribute.Text = "20"
OXMLFile.Save (XMLFileName)
End Sub

Ami Calmant, J.P

Un grand Merci,

Ta réponse m'a bien aidé.
Pour rester dans la logique de la premiere partie de mon code, j'ai mis :

Code:

1
2
3
4
5
6
7
8
9
10
Sub UpdateXML(Vitesse As Integer)
    Dim post As Object
    With CreateObject("MSXML2.DOMDocument")
        .async = False: .validateOnParse = False
        .Load ("C:\TTS\Parametres.xml")
        Set post = .SelectSingleNode("/Dispatch/field[@name='Vitesse']/@value")
        post.Text = Vitesse
        .Save ("C:\TTS\Parametres.xml")
    End With
End Sub

Ca marche nickel.