Dim XMLDocument As New MSXML2.DOMDocument Dim XMLRacine As IXMLDOMElement Dim XMLNoeud As IXMLDOMElement If Dir(App.Path & "\text.xml") <> "" Then Kill (App.Path & "\text.xml") End If Set XMLRacine = XMLDocument.createElement("Racine") 'On crée la racine XMLDocument.appendChild XMLRacine 'On ajoute ensuite un élément pere Set XMLNoeud = XMLDocument.createElement("Pere") 'On remplit ses attributs XMLNoeud.setAttribute "nomdupere", "thomas" 'On l'attache a son parent XMLRacine.appendChild XMLNoeud 'On ajoute ensuite un élément fils Set XMLNoeud = XMLDocument.createElement("Fils") 'On remplit sa valeur XMLNoeud.Text = "Le fils" 'On l'attache a son parent XMLRacine.appendChild XMLNoeud 'On ajoute ensuite un élément fils Set XMLNoeud = XMLDocument.createElement("Fils") 'On remplit sa valeur XMLNoeud.Text = "Le 2eme fils" 'On l'attache a son parent XMLRacine.appendChild XMLNoeud Set XMLDocument.documentElement = XMLRacine XMLDocument.save App.Path & "/text.xml"