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:
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"?> ) ?
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 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
Quelle méthode appeler ?
Merci
Partager