Génération d'une page HTML - VB/VBA/VBS - Programmation
MarshPosté le 04-04-2005 à 15:00:58
Je fait un ptit VBS qui est censé créer une page HTML. Mais mon souci c'est que ni la feuille de style, ni les images ne se chargent. Les images sont remplacées par des croix rouges et la feuille de style n'est pas appliquée. On dirait que dès qu'il y a accès a un fichier annexe cela ne passe pas (image ou feuille de style). Pourtant si j'exécute le VBS ci-dessous, je copie le code source dans la fenêtre IE où il apparait, et je créé un fichier HTML avec, hé ben ça fonctionne bien. Le pb n'est donc pas dans le code HTML. Alors peut être dans l'Objet IE.Application ? Je ne sais pas trop quoi faire là ?!?!
Si quelqu'un peut m'aider je l'en remercie par avance !
Marsh Posté le 04-04-2005 à 15:00:58
Je fait un ptit VBS qui est censé créer une page HTML.
Mais mon souci c'est que ni la feuille de style, ni les images ne se chargent.
Les images sont remplacées par des croix rouges et la feuille de style n'est pas appliquée.
On dirait que dès qu'il y a accès a un fichier annexe cela ne passe pas (image ou feuille de style).
Pourtant si j'exécute le VBS ci-dessous, je copie le code source dans la fenêtre IE où il apparait, et je créé un fichier HTML avec, hé ben ça fonctionne bien. Le pb n'est donc pas dans le code HTML.
Alors peut être dans l'Objet IE.Application ? Je ne sais pas trop quoi faire là ?!?!
Si quelqu'un peut m'aider je l'en remercie par avance !
Set oIE = WScript.CreateObject("InternetExplorer.Application" )
oIE.Navigate "about:blank"
Set oIEDoc = oIE.Document
oIEDoc.WriteLn "<HTML>"
oIEDoc.WriteLn "<HEADER>"
oIEDoc.WriteLn "<TITLE>TITRE</TITLE>"
oIEDoc.WriteLn "<link href="".\biblio.css"" rel=""stylesheet"" type=""text/css"">"
oIEDoc.WriteLn "</HEADER>"
oIEDoc.WriteLn "</HTML>"
oIEDoc.WriteLn "<BODY>"
oIEDoc.WriteLn "<IMG SRC=""images/ccip_sans_texte.gif"" BORDER=""0""><br>"
oIEDoc.WriteLn "<font color=""blue"" size=""-2"">TEST</font>"
oIEDoc.WriteLn "</BODY>"
oIEDoc.WriteLn "</HTML>"
oIE.Refresh
oIE.Visible = True