Bonjour,

Je me retrouve confronté à un problème.
Je souhaite écrire en boucle dans un fichier xml, lors de l'écriture une à une cela ce passe correctement mais dès lors que je le fais en boucle non

Voici mon code:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
            XmlDoc.LoadXml("<lesPersonnes></lesPersonnes>")
 
            catPersonne = XmlDoc.CreateElement("PERSONNE")
 
            elemCivilite = XmlDoc.CreateElement("CODE_CIVI")
            elemNom = XmlDoc.CreateElement("NOM_ASSURE")
            elemPrenom = XmlDoc.CreateElement("PRENOM_ASSURE")
 
 
            If Exists("C:\Users\*****\Desktop\****\XML\" & nomDocument) Then
                XmlDoc.Load("C:\Users\****\Desktop\****\XML\" & nomDocument)
            End If
 
            'on rentre dans la boucle
            Dim i As Integer = Nothing
 
            For i = 0 To personne.count - 1
 
               personne = personne(i)
 
                'On affecte les variables
                elemCivilite.InnerText = civilite
                elemNom.InnerText = nom
                elemPrenom.InnerText = prenom
 
 
 
                'On met tout dans le doc
               catPersonne .AppendChild(elemCivilite)
                catPersonne .AppendChild(elemNom)
                catPersonne .AppendChild(elemPrenom)
 
               XmlDoc.DocumentElement.AppendChild(catPersonne )
 
                XmlDoc.LastChild.AppendChild(catPersonne )
 
 
            Next
 
            XmlDoc.Save("C:\Users\*****\Desktop\****\XML\" & nomDocument)
Et le problème est lors de l'enregistrement de plusieurs personnes lors du passage dans la boucle il ne trouve pas le dernier noeud et n'écrit pas après, alors quand écrivant un à un il le fait très bien...