Discussion :

[RobKris63]

Slt,

Via un tableau Excel, je fais une sortie XML, OK.

Je voudrais spécifier le chemin d'un schéma, mais je n'arrive pas à trouver la syntaxe exacte.

Code simplifié

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
 
 Dim oXML As MSXML2.DOMDocument
 Dim oNode As MSXML2.IXMLDOMNode
 
 
    Set oXML = New MSXML2.DOMDocument
 
    Set oNode = oXML.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
    oXML.appendChild oNode
 
'Ici je voudrais rajouter 
'Set CheminSchema = oXML.....("<prg:Info xmlns:prg=""http://...."">")
 
 
'Ici boucle sur mon tableau et création des divers noeuds => OK
....

Je ne sais pas comment déclarer cette variable, ni quel attribut de "oXml" utiliser.

J'en ai essayé plusieurs en utilisant la complétion d'Excel mais en vain

En fait j'arrive à le faire via un fichier texte, mais pas directement dans un fichier XML.

Si quelqu'un a une idée,merci d'avance

@ + Kris

[RobKris63]

Salut à tous,

En fait, j'ai trouvé une solution à mon problème.

Cette ligne, faisant référence au schéma est ajoutée directement par Excel lors de l'export au format XML.

Bien sûr, il faut que le fichier Excel ait été mappé au préalable.

Du coup, lors de l'enregistrement, au lieu d'utiliser:

Code :

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

oXML.Save strOutPath & strNomFic

Utiliser

Code :

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

ActiveWorkbook.XmlMaps("NomDuSchema_Map").Export strOutPath & strNomFic, True

@ + Kris