Bonjour à tous,
Je travaille dans un fichier XML organisé comme suit :
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
<ERGIL>
  <Version>1.0</Version>
  <I_NB>1</I_NB>
  <I1>
    <I1_Actif>True</I1_Actif>   
    <I1_A_NB>1</I1_A_NB>
	<I1_A1>
		<I1_A1_Actif>True</I1_A1_Actif>
		<I1_A1_PceNb>1</I1_A1_PceNb>
		<I1_A1_Pce1>
			<I1_A1_P1_Nom>Pièce n°1</I1_A1_P1_Nom>			
		</I1_A1_Pce1>		
    </I1_A1>
  </I1>
</ERGIL>
J'ai besoin de créer de nouveaux nœuds au même niveau que "I1_A1_Pce1 et "I1_A1_P1_Nom", je pensais donc utiliser 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
 Dim noeud As XmlNode = doc.DocumentElement
        Dim noeudRacine As XmlNode = doc.DocumentElement
 
        Dim ANB As XmlElement = doc.SelectSingleNode("I1_A1") 'I" & LblImmeuble_Org.Tag & "_A" & LblAppart_Org.Tag)
 
 
        Dim PNB As XmlElement
        PNB = doc.CreateElement("I1_A1_Pce" & NbPieces)
        PNB.InnerText = ""
        ANB.AppendChild(PNB)
 
        Dim PceNom As XmlElement
        PceNom = doc.CreateElement("I1_A1_P" & NbPieces & "_Nom")
        PceNom.InnerText = " "
        PNB.AppendChild(PceNom)
cependant, ce code ne fonctionne pas ANB ne semble pas reconnu.

J'ai donc essayé comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim ANB As XmlElement 
        For Each noeud1 In noeudRacine.ChildNodes
            If noeud1.Name = "I1_A1" & "_Pce" & NbPieces Then ANB = noeud1
        Next
Mais rien n'y change.
Quelqu'un aurait une idée pour solutionner mon problème ?

Merci d'avance