Création d'un 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.
Code:
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:
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:
1
2
| <?xml version="1.0" encoding="ISO-8859-1"?>
<diffusion>client_id=1234</diffusion> |
Merci a tous pour votre aide
Jérôme
