Bonjour,

je dois développer un module dans Access permettant de générer un document xml, je souhaite tout faire par programmation.
Pour ce faire, j'utilise la référence : Microsoft XML, v3.0

voici le début de mon code:
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
27
28
29
30
31
32
33
Function CreateXMLFileXML()
 
Dim oXML As MSXML2.DOMDocument
Dim oNode As MSXML2.IXMLDOMNode
Dim oRoot As MSXML2.IXMLDOMElement
Dim docAttrib1 As IXMLDOMAttribute
Dim docAttrib2 As IXMLDOMAttribute
 
Set oXML = New MSXML2.DOMDocument
Set oNode = oXML.createProcessingInstruction("xml", "version=""1.0"" encoding=""ISO-8859-1""")
 
 
oXML.appendChild oNode
 
Set oRoot = oXML.createElement("PES_Aller")
Set oXML.documentElement = oRoot
 
Set docAttrib1 = oXML.createAttribute("xmlns:ds")
docAttrib1.Text = "http://www.w3.org/2000/09/xmldsig#"
oRoot.Attributes.setNamedItem docAttrib1
 
Set docAttrib2 = oXML.createAttribute("xmlns:n")
docAttrib2.Text = "http://www.minefi.gouv.fr/cp/helios/pes_v2/Rev0/aller"
oRoot.Attributes.setNamedItem docAttrib2
 
oRoot.Text = "ID_PES"
 
With oRoot
 
    With .appendChild(oXML.createElement("EntetePES"))
         With .appendChild(oXML.createElement("DteStr"))
           .Text = "2013-11-29"
        End With
voici ce que j'obtiens dans mon fichier XML:

<?xml version="1.0" encoding="ISO-8859-1"?>
-<PES_Aller xmlns:n="http://www.minefi.gouv.fr/cp/helios/pes_v2/Rev0/aller" xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
ID_PES
-<EntetePES>
<DteStr>"2013-11-29"</DteStr>


Idéalement ce qu'il me faudrait c'est ceci:

<?xml version="1.0" encoding="ISO-8859-1"?>
-<n:PES_AllerId="ID_PES" xmlns:n="http://www.minefi.gouv.fr/cp/helios/pes_v2/Rev0/aller" xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
-<EntetePES>
<DteStr V="2013-11-29"/>



quelqu'un aurait-il une idée svp, je pédale dans la semoule.

Merci