Bonjour a tous.
Décidément mon apprentissage de Visual Basic se fait dans la douleur (je vient du monde Delphi)

Mon problème aujourd'hui est que je ne sais pas modifier la valeur d'un élément d'un fichier XML

Je veux modifier la valeur d'un élément <Tag> du fichier, concrètement je veux faire passer <SGF><Forms><frmPrincipal><Tag> qui vaut 2000 a par exemple 2100

Comment dois-je faire

J'ai le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Sub Test()
 
Dim xmlDoc As New Msxml2.DOMDocument40
Dim currNode As IXMLDOMNode
xmlDoc.async = False
xmlDoc.resolveExternals = False
xmlDoc.Load ("sgf2.xml")
If (xmlDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox ("You have error " & myErr.reason)
Else
   xmlDoc.setProperty "SelectionLanguage", "XPath"
   Set currNode = xmlDoc.selectSingleNode("//SGF/Forms/frmPrincipal/Tag")
   MsgBox currNode.Text
 
   ' Ici je pense que doit venir le code pour modifier la valeur de tag
 
     xmlDoc.save ("g:\sgf2_saved.xml")
   Set xmlDoc = Nothing
End If
 
End Sub
Le fichier XML est:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<?xml version="1.0" encoding="iso-8859-15" standalone="yes"?>
<SGF>
	<Forms>
		<frmPrincipal>
			<Tag>2000</Tag>
			<Caption>PRÉNATAL_SGF</Caption>
			<Components>
				<menuArchivo>
					<Caption>&amp;Archivo</Caption>
				</menuArchivo>
				<menuArchivoLinea1>
 
				</menuArchivoLinea1>
			</Components>	
		</frmPrincipal>
 
	</Forms>
</SGF>
Quelqu'un peut-il m'aider?