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.
Le Résultats de la création du XML en vba
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
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
Partager