Discussion :

[xbooster]

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

[jurassic pork]

Hello,
client_id, enquete_id, diff_idt etc... sont des attributs et il faut utiliser setAttribute pour les insérer dans une balise :

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
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 Root = Doc_XML.CreateElement("diffusion")
Root.setAttribute "client_id", "1234"
Root.setAttribute "diff_id", "123456"
Root.setAttribute "mail_error", "exemple@test.fr"
Root.setAttribute "lang_error", "en"
Doc_XML.appendChild Root
Set Node = Doc_XML.CreateElement("csv")
Node.setAttribute "csvfilename", "test.csv"
Node.setAttribute "Delim", ";"
Root.appendChild Node
Set Node = Nothing
Set Root = Nothing
Chemin = ThisWorkbook.Path & "\FichierDeSortie.xml"
Doc_XML.Save Chemin 
End Sub

cela donne :

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" diff_id="123456" mail_error="exemple@test.fr" lang_error="en"><csv csvfilename="test.csv" Delim=";"/></diffusion>

Il n'y a pas d'indentation et de retour à la ligne par balise mais le fichier est normalement opérationnel.
Pour des infos sur la création de fichier xml en VBA voir ici : Création - Modification de fichiers xml par la Library MSXML2

Ami calmant, J.P