[MichelXld]

bonjour

Voici un exemple simple pour créer un fichier xml

Sub creerFichierXML()
'
'Nécessite d'activer la référence "Microsoft XML, V..."
'
Dim objDOM As DOMDocument
Dim XnodeRoot As IXMLDOMElement
Dim oNode As IXMLDOMNode, XInfos As IXMLDOMNode
Dim XNom As IXMLDOMElement
Dim Cmt As IXMLDOMComment

Set objDOM = New DOMDocument

'Ajout d'un commentaire qui reprend le nom de l'utilisateur et
' la date du jour.
Set Cmt = objDOM.createComment("Créé par " & Environ("username") & ", le " & Date)
Set Cmt = objDOM.InsertBefore(Cmt, objDOM.ChildNodes.Item(0))
 
   
'entête
Set oNode = objDOM.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
Set oNode = objDOM.InsertBefore(oNode, objDOM.ChildNodes.Item(0))
    
    
Set XnodeRoot = objDOM.createElement("Participants")
objDOM.appendChild XnodeRoot

    Set XNom = objDOM.createElement("Participant")
    XNom.setAttribute "Nom", "Riri"
    XnodeRoot.appendChild XNom
        
        Set XInfos = objDOM.createElement("Ville")
        XInfos.Text = "Ville 01"
        XNom.appendChild XInfos
        
        Set XInfos = objDOM.createElement("DateNaissance")
        XInfos.Text = #5/26/1965#
        XNom.appendChild XInfos
                    
        Set XInfos = objDOM.createElement("Credits")
        XInfos.Text = 3
        XNom.appendChild XInfos
            
            
    Set XNom = objDOM.createElement("Participant")
    XNom.setAttribute "Nom", "Fifi"
    XnodeRoot.appendChild XNom
        
        Set XInfos = objDOM.createElement("Ville")
        XInfos.Text = "Ville 02"
        XNom.appendChild XInfos
        
        Set XInfos = objDOM.createElement("DateNaissance")
        XInfos.Text = #2/14/1970#
        XNom.appendChild XInfos
                    
        Set XInfos = objDOM.createElement("Credits")
        XInfos.Text = 7
        XNom.appendChild XInfos
            

objDOM.Save "C:\Nom Fichier.xml"

Set XnodeRoot = Nothing
Set objDOM = Nothing
End Sub

Bon week end
MichelXld