Bon, j'ai du tout installer chez moi pour voir ce qui n'allais pas :aie:
voila la réponse :
va chercher dans les noeuds fils, et non dans le premier noeud !Code:Dim noeud As XElement = DocXml...<objet>(0)
donc après.. le noeud est vide forcement.
la solution c'est de faire comme ça :
(si ton premier noeud xml est objet)Code:Dim noeud As XElement = DocXml.<objet>(0)
voici le listing qui marche chez moi :
et le XML :Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Module Module1 Sub Main() Dim DocXml As XElement = XElement.Load("c:/test.xml") Dim noeud As XElement = DocXml.<testlinq>(0) Dim ajoutobj = New XElement("testlinq", _ New XElement("ref", "UneRef"), _ New XElement("modele", "UnModele"), _ New XElement("desc", "UneDesc")) noeud.AddAfterSelf(ajoutobj) DocXml.Save("C:/test.xml") End Sub End Module
Code:
1
2
3
4
5
6 <?xml version="1.0" encoding="utf-8"?> <testlinq> <ref></ref> <modele></modele> <desc></desc> </testlinq>