Création fichier XML en VBA

Bonjour à toute et à tous,

Je viens vous demander de l'aide pour la création d'un fichier xml en VBA.

J'ai trouvé un code VBA pour la création d'un fichier xml mais je n'arrive pas à le modifier correctement avec ce que j'ai besoin.

Voici le code du fichier XML que je voudrais créer en VBA .

<?xml version="1.0" encoding="ISO-8859-1" ?>
<diffusion client_id="1234" enquete_id="1234" diff_id="123456" mail_error="exemple@test.fr" lang_error="en">
<csv csvfilename="test.csv" delim=";"/>
</diffusion>

Voici le code VBA que j'ai trouvé et son résultat en dessous.

Sub testxml()

Dim Doc_XML As Object
Dim Root As Object
Dim Node As Object
Dim Name As Object
Dim Chemin As String    'Chemin de sauvegarde

Set Doc_XML = CreateObject("MSXML2.DOMDocument")

Set Node = Doc_XML.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""ISO-8859-1""")

Doc_XML.appendChild Node
Set Node = Nothing
Set Root = Doc_XML.CreateElement("diffusion")

Root.Text = "client_id=" & "1234" & ""

Doc_XML.appendChild Root

    Set Node = Nothing

    Chemin = ThisWorkbook.Path & "\FichierSorti.xml"
    Doc_XML.Save Chemin

End Sub

Le Résultats de la création du XML en vba

<?xml version="1.0" encoding="ISO-8859-1"?>
<diffusion>client_id=1234</diffusion>

Merci a tous pour votre aide

Jérôme

Bonjour, Je ne comprends pas bien la demande.

Votre code parle d'un fichier csv : Test.csv et celui que vous trouvez c'est du Xml

C'est deux format différent ; faudrait savoir ce que vous avez réellement besoin.

Bonjour Xmenpl,

Dans le code du fichier xml il y a effectivement le nom d'un fichier csv. En gros une fois que la macro a fini, le fichier XLM doit être identique au code xml ci-dessous.

Voici a quoi doit ressembler le fichier xml 

<?xml version="1.0" encoding="ISO-8859-1" ?>
<diffusion client_id="1234" enquete_id="1234" diff_id="123456" mail_error="exemple@test.fr" lang_error="en">
<csv csvfilename="test.csv" delim=";"/>
</diffusion>

Encore merci pour votre aide

Jérôme