-<FICHIER NOM="Test Nom">
<VERSION>Test Version</VERSION>
<CHEMIN_RESEAU>test rep</CHEMIN_RESEAU>
</FICHIER>
</test>
Et voici mon code :
Sub test()
'On définit xml : c'est lui qui contiendra le document final xml
Dim Xml As New MSXML2.DOMDocument40
'xdoc est l'élément principal : ici le fichier
Dim Xdoc As IXMLDOMElement
'les différentes "entrées"
Dim Xheader As IXMLDOMElement, Xconfig As IXMLDOMElement, Xtemp As IXMLDOMElement
'Call Etat_Mlp
'On crée l'élément principal différent pour chaque fichier = en-tête
Set Xdoc = Xml.createElement("test") 'Noeuds)
'On modifie ses attributs : contenus dans la balise
' Petit coup de date pour la maintenace
Dim Comment As IXMLDOMComment
Set Comment = Xml.createComment("This is a comment.")
Dim Aa As IXMLDOMElement
Xdoc.setAttribute "DATE", Format(Now, "dd/mm/yyyy hh:mm")
Set Xtemp = Xml.createElement("FICHIER") ' Creation du premier parent
Xtemp.setAttribute "NOM", "Test Nom"
Set Xconfig = Xtemp
Xdoc.appendChild Xtemp 'Et hop, xtemp est un fils de FICHIER
Set Xtemp = Xml.createElement("VERSION")
Xtemp.Text = "Test Version"
Xconfig.appendChild Xtemp 'Sous branche de Fichier
Set Xtemp = Xml.createElement("CHEMIN_RESEAU")
Xtemp.Text = "test rep"
Xconfig.appendChild Xtemp
'Puis on définit l'élément principal de xml comme étant xdoc
Set Xml.documentElement = Xdoc
'Et on enregistre le tout dans un fichier
Xml.save "C:\\Documents and Settings\\Datser17\\Bureau\\test.xml"
End Sub
Comment faire ?
Merci d'avance de votre aide
Zoglub