Modifier un attribut XML

Bonjour à toi lecteur.

J'expose mon problème :
Je n'arrive pas à modifier un attribut XML.
Exemple du fichier monFichier.XML

Citation:

---

<?xml version="1.0" encoding="utf-8"?>
<racine>
<noeud attribut="unAttribut" />
</racine>

---

Ce que j'ai essayé de faire pour résoudre ce problème :

Citation:

---

'Instance des objet pour travailler sur le XML
Dim XmlDoc As New XmlDocument()
Dim Navigator As XPathNavigator
Dim Nodes As XPathNodeIterator
'Chargement
XmlDoc.Load("monFichier.xml")
Navigator = XmlDoc.CreateNavigator()

_ExpXPath = "//type[@attribut='" & unAttribut & "']"
Nodes = Navigator.[Select](Navigator.Compile(_ExpXPath))

'On se positionne sur le premier noeud
Nodes.MoveNext()

'On le supprime
Nodes.Current.DeleteSelf()

'On créer un nouveau noeud avec un nouvel attribut

Nodes.Current.InsertAfter(Nodes.MoveNext)
Nodes.Current.MoveToNext(XPathNodeType.Element)


Nodes.Current.CreateAttribute("", "attribut", "", nouvelleValeur)

---

J'arrive vraiment pas à trouver la solution, si vous pouviez me dire ce que je fais de mal je vous en remercie :ccool:
Je débute en XML donc certaines notions m'échape...

Problème identifié.
Réponse trouvé.

Explication :

Lorsqu'on fait un "insertElementAfter" ou "..Before"; le Nodes nous positionne sur le noeud d'aprés; du coup je tentais en vain de rajouter de nouveau attribut, qui allait se mettre sur le noeud suivant et non le noeud que je venais de créer.

J'ai utilisé " Nodes.Current.MoveToPrevious()" pour corriger mon problème.

Je rajoute la correction.

Citation:

---

'on supprime le noeud
_ExpXPath = "//noeud[@attribut='" & unAttribut & "']"
Nodes = Navigator.[Select](Navigator.Compile(_ExpXPath))
Nodes.MoveNext()
Nodes.Current.DeleteSelf()

'on en recrée un
_ExpXPath = "//type"
Nodes = Navigator.[Select](Navigator.Compile(_ExpXPath))
Nodes.MoveNext()


Nodes.Current.InsertElementBefore("", "noeud", "", "")
Nodes.Current.MoveToPrevious()
Nodes.Current.CreateAttribute("", "attribut", "", nouvelAttribut)

---