Discussion :

[fevec]

Bonjour à tous,
Je dois générer des fichiers XML à partir d'une applicatiopn Access en VbA
Je suis parti sur la base de la syntaxe du tutoriel de Arkam.
(avec des With ……. End With)
http://arkham46.developpez.com/artic...b/?page=page_4

Je dois créer un attribut au niveau de la balise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
<Document>
xmlns="urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"

en utilisant la syntaxe suivante :

Code vba :

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
With oXML.appendChild(oXML.createElement("Document"))
 
' ces 3 lignes créent 2 Attributs (rouges)
   Set docAttrib = oXML.createAttribute("xmlns")
   docAttrib.Text = "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"
   .Attributes.setNamedItem docAttrib
 
     With .appendChild(oXML.createElement("CstmrDrctDbtInitn"))
       With .appendChild(oXML.createElement("GrpHdr"))
           With .appendChild(oXML.createElement("MsgId"))
               .Text = Left(TxtAcronyme & " " & DATEHEURE, 35)
           End With
           With .appendChild(oXML.createElement("CreDtTm"))
               .Text = DATEHEURE
           End With
            With .appendChild(oXML.createElement("NbOfTxs"))
               .Text = TxtNbOfTxs
           End With
            With .appendChild(oXML.createElement("CtrlSum"))
               .Text = TxtCtrlSum
           End With
            With .appendChild(oXML.createElement("InitgPty"))
                With .appendChild(oXML.createElement("Nm"))
                .Text = Left(TxtNomSociete, 70)
                End With
           End With
       End With
End With

Cela provoque la création de l’attribut au niveau de la balise <Document> (ce qui est souhaité)
Et également, après au niveau de la balise "Child" suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

< CstmrDrctDbtInitn >

(ce qui n’est pas souhaité)

Comment Faire ?.
J’ai trouvé ce lien sur le forum, mais je n’arrive pas à mettre en œuvre la syntaxe
http://www.developpez.net/forums/d76...balise-racine/

Je maîtrise mal la syntaxe XML
Merci de votre aide.

Cordialement
FEVEC

[tsuji]

Ce que vous faites, c'est on peut dire valable. Mais une namespace déclaration n'est proprement pas un attribut au sens ordinaire. Mieux est de faire en remplaçant CreateElement("Document") par CreateNode() la façon montrée ci-dessous, et les lignes createAttribute() etc etc ne sont plus nécessaires.

Et puis, l'apparition d'un 'attribut' xmlns="" dans la balise CstmrDrctDbtInitn est bien nécessaire pour déjouer la déclaration héritable.

Dans le cas où il y a à la fois des éléments qui vivent dans des namespaces et des éléments qui ne vivent en aucun, il vaut mieux s'employer la notion de préfixe, comme "ns" ci-dessous.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'IXMLDOMNodeType enumeration, NODE_ELEMENT (1) 
With oXML.appendChild(oXML.createNode(1,"ns:Document", "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"))
 
    'enlever des lignes ici qui ne sont pas nécessaires
 
    With .appendChild(oXML.createElement("CstmrDrctDbtInitn"))
        'etc etc
    End With
 
End With

[fevec]

Bonjour,
Merci de votre réponse rapide.
Je reviens vers vous avec mes questions naïves
Avec le code

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

With oXML.appendChild(oXML.createNode(1,"ns:Document", "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"))

j'obtient une balise
<ns: Document>
J'ai vraiment besoin d'une balise <Document>

avec le code

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

With oXML.appendChild(oXML.createNode(1, "Document", "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"))

j'obtient 2 "xmlns" un sous <Docupent>
et un sous la balise suivante <CstmrDrctDbtInitn>

J'ai donc des "ErrorList" dans XML Notepad

J'utilise ensuite XML Notepad pour voir le fichier XML et voir sa "conformité" au schéma pain.008.001.02.xsd (cf. miniature jointe du résutat attentu)

Du coup, j'ai un peu de mal à savoir ce que je dois faire....

Merci pour votre aide

Cordialement,
fevec

[thelvin]

avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With oXML.appendChild(oXML.createNode(1, "Document", "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"))

j'obtient 2 "xmlns" un sous <Docupent>
et un sous la balise suivante <CstmrDrctDbtInitn>

Il faut créer tous les éléments de cette manière-là, pas seulement le premier.

Ce "xmlns" est ce qu'on appelle une déclaration de namespace, et en mettre un seul à la racine signifie que tous les éléments du document sont dans ce namespace.

Lorsqu'on les crée par programmation, on doit donc indiquer à tous les éléments qu'ils sont dans ce namespace, car sinon, c'est qu'ils n'y sont pas, ce qui est contradictoire avec le xmlns tout seul dans la racine. Dans ce cas, il y aura donc un nouveau xmlns pour les éléments qui sortent du namespace déclaré dans la racine.
Pour ne pas que ça arrive, il suffit que tous les éléments aient le même namespace, donc de tous les créer avec le même namespace.

[fevec]

Bonjour,
Grand Merci thelvin,
J'ai ré écrit tout le code VBA avec des

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

With oXML.appendChild(oXML.createNode(1, "nom_dela_balise", "urn:iso:std:iso:20022:tech:xsd:pain.008.001.02"))

et c'est parfait.

bonne journée
Résolu

[thelvin]

Euuurrrm, je suis à peu près sûr que VBA connaît le concept de "variables". Et de "fonctions" aussi, d'ailleurs.