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:
voici ce que j'obtiens dans mon fichier XML:
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
<?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
Partager