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