Discussion :

[Bidulle59]

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 XML :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jurassic pork]

hello,
tu peux essayer quelque chose comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bidulle59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.