[MSXML3][VBA] Attribut xmlns de la balise racine

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:

---

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

---

en utilisant la syntaxe suivante :

Code:

---

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:

---

< 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

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:

---

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

---

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

Code:

---

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:

---

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

Citation:

---

Envoyé par fevec

avec le code

Code:

---

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.

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

Code:

---

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

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