[XL-2010] indiquer un fichier xsl avec CreateObject("Microsoft.XMLDOM")
Bonjour
J'ai fait une macro pour sortir quelques une de mes données issue de mon tableau Excel vers un fichier xml.
Dans l'ensemble, cela marche bien. Je recupere bien mes données, etc...
Seul hic, je n'arrive pas à indiquer le fichier xsl lors de la génération de ce fichier xml.
Voici les bouts de code:
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
29
30
31
32
|
Dim xmlDoc As Variant
Dim oCreation As Variant
Dim Root As Variant
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Set oCreation = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
xmlDoc.InsertBefore oCreation, xmlDoc.ChildNodes.Item(0)
Set Root = xmlDoc.createElement("FFA")
xmlDoc.appendChild (Root)
'...... remplissage
'enregistrement /ecriture
Set rdr = CreateObject("MSXML2.SAXXMLReader")
Set wrt = CreateObject("MSXML2.MXXMLWriter")
Set oStream = CreateObject("ADODB.STREAM")
oStream.Open
wrt.indent = True
wrt.output = oStream
Set rdr.contentHandler = wrt
Set rdr.errorHandler = wrt
rdr.Parse xmlDoc
wrt.flush
oStream.SaveToFile XMLSaveName, 2
Set rdr = Nothing
Set wrt = Nothing
Set xmlDoc = Nothing |
où dois je faire l'appel à la méthode pour pouvoir indiquer mon fichier xsl (pour l'heure, j'édite le fichier à la mano et je colle la ligne <?xml-stylesheet type="text/xsl" href="template.xsl"?> ) ?
Quelle méthode appeler ?
Merci
