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.

Code XML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
<?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 le résultat de la création du fichier xml en dessous.

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
26
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

Code XML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
<?xml version="1.0" encoding="ISO-8859-1"?>
<diffusion>client_id=1234</diffusion>

Merci a tous pour votre aide

Jérôme