cs_Eric25
Messages postés175Date d'inscriptionmardi 19 octobre 2004StatutMembreDernière intervention26 juin 2006
-
20 sept. 2005 à 16:30
cs_Eric25
Messages postés175Date d'inscriptionmardi 19 octobre 2004StatutMembreDernière intervention26 juin 2006
-
21 sept. 2005 à 12:20
Bonjour,
Comme l'indique le titre de mon message, je souhaite depuis VB6 assigner une feuille de style à une instance XML (La feuille de style va extraire et mettre en forme des données contenues dans la feuille XML).
Je souhaite ensuite afficher le résultat dans un WebBrowser.
Comment dois-je procéder ?
Petit précision, je n'ai jamais utilisé de WebBrowser...
cs_Eric25
Messages postés175Date d'inscriptionmardi 19 octobre 2004StatutMembreDernière intervention26 juin 20063 21 sept. 2005 à 09:42
Finalement ca ne marche pas car lors du chargement des feuilles, il me dit que celles-ci sont mal formées or elles sont bien formées...
HELP !!!
Quelqu'un peut-il m'éclairer...
Merci d'avance
voici le code utilisé :
'Assignement de la feuille de style a l'instance XML sélectionnée
Dim xmlDoc, xslDoc As MSXML2.DOMDocument
Dim OutputMethod As String
Set xmlDoc = New MSXML2.DOMDocument
xmlDoc.async = False
xmlDoc.LoadXml (chemin)
Set MyErr = xmlDoc.ParseError
If (MyErr.errorCode <> 0) Then
MsgBox "Il s'est produit une erreur lors du chargement de la feuille XML : " & MyErr.reason, vbCritical + vbOKOnly, "ERREUR FEUILLE XML"
'GoTo endtransform
End If
Set xslDoc = New MSXML2.DOMDocument
xslDoc.LoadXml (App.Path & "" & "FJP.xslt")
xslDoc.async = False
Set MyErr = xslDoc.ParseError
If (MyErr.errorCode <> 0) Then
MsgBox "Il s'est produit une erreur lors du chargement de la feuille de style : " & MyErr.reason, vbCritical + vbOKOnly, "ERREUR FEUILLE XSLT"
'GoTo endtransform
Else
OutputMethod = "html"
End If
' End If
' On Error GoTo ParseError
ParseResult.ParseResultText.Text = xmlDoc.transformNode(xslDoc)
Dim Path As String
Dim Fso, ts As Variant