Ouvrir une page htm dans un navigateur
sebicool
Messages postés
32
Date d'inscription
jeudi 7 décembre 2000
Statut
Membre
Dernière intervention
12 décembre 2008
-
16 sept. 2008 à 12:20
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 sept. 2008 à 16:17
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 sept. 2008 à 16:17
9 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 sept. 2008 à 13:55
16 sept. 2008 à 13:55
s
alut,
sous forme de fonction, plus pratique ;)
Sub
BrowseUrl(sUrl)
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "explorer.exe """ & sUrl & """"
Set WshShell = Nothing
End Sub
'APPEL APRèS VéRIF
EXISTANCE
BrowseUrl "C:\blabla\Chemin complet\fichier.htm"
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
alut,
sous forme de fonction, plus pratique ;)
Sub
BrowseUrl(sUrl)
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "explorer.exe """ & sUrl & """"
Set WshShell = Nothing
End Sub
'APPEL APRèS VéRIF
EXISTANCE
BrowseUrl "C:\blabla\Chemin complet\fichier.htm"
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
sebicool
Messages postés
32
Date d'inscription
jeudi 7 décembre 2000
Statut
Membre
Dernière intervention
12 décembre 2008
16 sept. 2008 à 14:23
16 sept. 2008 à 14:23
Merci pour ta réponse PCPT...
Malheureusement, ca ne fonctionne pas. Ca ne fait qu'ouvrir une page blanche...
Je ne comprends pas pourquoi...
Une idée?
Malheureusement, ca ne fonctionne pas. Ca ne fait qu'ouvrir une page blanche...
Je ne comprends pas pourquoi...
Une idée?
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 sept. 2008 à 14:39
16 sept. 2008 à 14:39
ton chemin en paramètre est sans doute incorrect ou incomplet
sebicool
Messages postés
32
Date d'inscription
jeudi 7 décembre 2000
Statut
Membre
Dernière intervention
12 décembre 2008
16 sept. 2008 à 14:49
16 sept. 2008 à 14:49
Salut,
je suis désolé mais je ne pense pas que ca vienne de mon chemin... j'ai tout essayé, chemin relatif, chemin complet, avec des / ou des \, rien n'y fait...
je suis désolé mais je ne pense pas que ca vienne de mon chemin... j'ai tout essayé, chemin relatif, chemin complet, avec des / ou des \, rien n'y fait...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 sept. 2008 à 15:08
16 sept. 2008 à 15:08
tu as essayé à la racine, avec un HTM ou HTML, pour être certain?
code fait et colorisé en VB6 mais testé en VBS avec un fichier existant et valide, nom long avec espaces etc....
pour moi la seule cause est forcément le chemin....
à moins que ta page html ne soit blanche ^^
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
code fait et colorisé en VB6 mais testé en VBS avec un fichier existant et valide, nom long avec espaces etc....
pour moi la seule cause est forcément le chemin....
à moins que ta page html ne soit blanche ^^
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
sebicool
Messages postés
32
Date d'inscription
jeudi 7 décembre 2000
Statut
Membre
Dernière intervention
12 décembre 2008
16 sept. 2008 à 15:22
16 sept. 2008 à 15:22
j'ai effectivement essayé à la racine, c'est un fichier HTM...
g mis un nom avec et sans espace...
ma page n'est pas blanche mais ca affiche une page blanche...
Je ne comprends vraiment pas pourquoi ca ne fonctionne pas.
Voila le code que j'utilise:
Sub BrowseUrl(sUrl)
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "explorer.exe """ & sUrl & """"
Set WshShell = Nothing
End Sub
'on teste la présence du fichier sur le serveur
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim chemin
chemin = "C:\mon_fichier.htm"
if (fso.FileExists(chemin) = true) then
BrowseUrl chemin
else
Response.Write("Le fichier que vous souhaitez consulter n'existe pas.")
end if
Help!!!!!!!!
Je pète un cable là...
g mis un nom avec et sans espace...
ma page n'est pas blanche mais ca affiche une page blanche...
Je ne comprends vraiment pas pourquoi ca ne fonctionne pas.
Voila le code que j'utilise:
Sub BrowseUrl(sUrl)
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "explorer.exe """ & sUrl & """"
Set WshShell = Nothing
End Sub
'on teste la présence du fichier sur le serveur
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim chemin
chemin = "C:\mon_fichier.htm"
if (fso.FileExists(chemin) = true) then
BrowseUrl chemin
else
Response.Write("Le fichier que vous souhaitez consulter n'existe pas.")
end if
Help!!!!!!!!
Je pète un cable là...
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 sept. 2008 à 15:48
16 sept. 2008 à 15:48
chez moi çà provoque une erreur sur SERVER
si tu ne testes pas l'existance du fichier, donc uniquement mon code, çà donne quoi?
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
si tu ne testes pas l'existance du fichier, donc uniquement mon code, çà donne quoi?
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
sebicool
Messages postés
32
Date d'inscription
jeudi 7 décembre 2000
Statut
Membre
Dernière intervention
12 décembre 2008
16 sept. 2008 à 16:03
16 sept. 2008 à 16:03
Ca ne marche pas non plus...
Je commence à desespérer là...
j'ai essayé complètement autre chose:
if (fso.FileExists(chemin) = true) then
Response.Write("<html><head><title>Statistiques</title><script Language='Javascript'>")
Response.Write("window.open('C:/mon_fichier.htm','htm');")
Response.Write("window.close();</script></head></html>")
else
Response.Write("Le fichier que vous souhaitez consulter n'existe pas.")
end if
Ca marche quand j'essaye en local (sur le serveur où il y a le fichier) mais dès que j'essaye depuis un ordinateur distant, ca couille. Je me retrouve avec une erreur "accès refusé"...
Tu as une idée pourquoi ca me fait ca?
Je commence à desespérer là...
j'ai essayé complètement autre chose:
if (fso.FileExists(chemin) = true) then
Response.Write("<html><head><title>Statistiques</title><script Language='Javascript'>")
Response.Write("window.open('C:/mon_fichier.htm','htm');")
Response.Write("window.close();</script></head></html>")
else
Response.Write("Le fichier que vous souhaitez consulter n'existe pas.")
end if
Ca marche quand j'essaye en local (sur le serveur où il y a le fichier) mais dès que j'essaye depuis un ordinateur distant, ca couille. Je me retrouve avec une erreur "accès refusé"...
Tu as une idée pourquoi ca me fait ca?
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 sept. 2008 à 16:17
16 sept. 2008 à 16:17
oh VBS en html....
pas en .VBS alors :)
VBS, comme javascript, est un langage "script" qui s'execute chez le client, pas côté serveur
l'ouverture d'une page distante appelant "c:\machin" appelle alors sur le C local, et non du serveur...
ton erreur est donc normale, ici pour que çà marche il faudrait que tu aies un fichier dans le C:\etc.... "client" (local, pas server) et que ton navigateur(client local) soit configuré pour l'execution de scripts.. frauduleux, et que la page distante soit dans les "sites de confiance"
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
pas en .VBS alors :)
VBS, comme javascript, est un langage "script" qui s'execute chez le client, pas côté serveur
l'ouverture d'une page distante appelant "c:\machin" appelle alors sur le C local, et non du serveur...
ton erreur est donc normale, ici pour que çà marche il faudrait que tu aies un fichier dans le C:\etc.... "client" (local, pas server) et que ton navigateur(client local) soit configuré pour l'execution de scripts.. frauduleux, et que la page distante soit dans les "sites de confiance"
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp