Bonjour,

Je souhaite enregistrer la conf de mon programme dans un fichier .xml

Voici le code pour le créer :
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
        Dim xmldoc As New XmlDocument
        xmldoc.Load("config.xml")
 
        Dim xmlemailing As XmlElement
        xmlemailing = xmldoc.CreateElement("Utilisateurs")
 
        Dim xmldossier As XmlElement
        xmldossier = xmldoc.CreateElement("dossier")
 
        Dim xmlnom As XmlElement
        xmlnom = xmldoc.CreateElement("nom")
 
        Dim xmlemail As XmlElement
        xmlemail = xmldoc.CreateElement("email")
 
        'traitement des noeuds
        xmldoc.DocumentElement.AppendChild(xmlemailing)
        xmlemailing.AppendChild(xmldossier)
        xmldossier.AppendChild(xmlnom)
        xmldossier.AppendChild(xmlemail)
 
        'Ajout
 
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(0).ChildNodes(0).InnerText = "nom"
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(0).ChildNodes(1).InnerText = "email"
Ce qui fonctionne comme je le souhaite puisque j'obtiens un xml qui a cette allure :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 <parametres>
- <Conf>
  d'autres paramètres...
  </Conf>
- <Utilisateurs>
- <dossier>
  <nom>nom</nom> 
  <email>email</email> 
  </dossier>
  </Utilisateurs>
  </parametres>
Maintenant, ce que j'aimerais, c'est ajouter un autre noeud dossier, pour obtenir :
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
 
- <Conf>
  d'autres paramètres...
  </Conf>
- <Utilisateurs>
- <dossier>
  <nom>nom</nom> 
  <email>email</email> 
  </dossier>
  <dossier>
  <nom>nom2</nom> 
  <email>email2</email> 
  </dossier>
  </Utilisateurs>
  </parametres>
Lorsque j'essaye de faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
xmldoc.DocumentElement.ChildNodes(1).ChildNodes(1).ChildNodes(0).InnerText = "nom2"
        xmldoc.DocumentElement.ChildNodes(1).ChildNodes(1).ChildNodes(1).InnerText = "email2"
La j'obtiens une erreur me disant que la référence n'existe pas =/
Je ne comprends pas car le premier ajout marche

Merci d'avance