Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 13 11:57:28

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

ouvrir une page htm dans un navigateur

Poser une question dans le forum ou lancer une discussion

ouvrir une page htm dans un navigateur

mardi 16 septembre 2008 à 12:20:16 | ouvrir une page htm dans un navigateur

sebicool

9 msg

34 msg CS

Bonjour,

je souhaite ouvrir un fichier htm dans un navigateur, le tout en vbscript.
Je fais d'abord un test de présence à l'aide de "fso.FileExists(fichier.htm)" et si le fichier existe, je voudrais l'ouvrir dans un navigateur.
J'ai d'abord essayé avec OpenTextFile mais ca ne marche pas (visiblement ca ne l'ouvre que "virtuellement" pour faire des modifs ou lire des données...).
J'ai vu sur ce forum que quelqu'un avait réussi avec le code suivant :
Set wshshell = CreateObject("Wscript.Shell")
wshshell.Run """Chemin\fichier.htm"""
Mais je n'y arrive pas de mon côté...
Quelqu'un aurait une idée?

Merci d'avance pour vos réponses.
Cordialement,
Sebicool

mardi 16 septembre 2008 à 13:55:34 | Re : ouvrir une page htm dans un navigateur

PCPT

11362 msg

11923 msg CS

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"

++

Prenez un instant pour répondre à ce sondage svp

mardi 16 septembre 2008 à 14:23:35 | Re : ouvrir une page htm dans un navigateur

sebicool

9 msg

34 msg CS

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?

mardi 16 septembre 2008 à 14:39:10 | Re : ouvrir une page htm dans un navigateur

PCPT

11362 msg

11923 msg CS

ton chemin en paramètre est sans doute incorrect ou incomplet

mardi 16 septembre 2008 à 14:49:17 | Re : ouvrir une page htm dans un navigateur

sebicool

9 msg

34 msg CS

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...

mardi 16 septembre 2008 à 15:08:35 | Re : ouvrir une page htm dans un navigateur

PCPT

11362 msg

11923 msg CS

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 ^^

Prenez un instant pour répondre à ce sondage svp

mardi 16 septembre 2008 à 15:22:36 | Re : ouvrir une page htm dans un navigateur

sebicool

9 msg

34 msg CS

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à...

mardi 16 septembre 2008 à 15:48:31 | Re : ouvrir une page htm dans un navigateur

PCPT

11362 msg

11923 msg CS

chez moi çà provoque une erreur sur SERVER

si tu ne testes pas l'existance du fichier, donc uniquement mon code, çà donne quoi?

Prenez un instant pour répondre à ce sondage svp

mardi 16 septembre 2008 à 16:03:28 | Re : ouvrir une page htm dans un navigateur

sebicool

9 msg

34 msg CS

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><body></body></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?

mardi 16 septembre 2008 à 16:17:35 | Re : ouvrir une page htm dans un navigateur

PCPT

11362 msg

11923 msg CS

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"

Prenez un instant pour répondre à ce sondage svp

Cette discussion est classée dans : fichier, ouvrir, page, navigateur, htm

Répondre à ce message

Sujets en rapport avec ce message

comment ouvrir un fichier htm a partir d'une msgbox [ par ApophisNico ] Salut!!!!je voudrais savoir comment je peux ouvrir un fichier .htm a partir d'une message box!et si possible j'aimerais ouvrir la page htm en fullscre Ouvrir un fichier HTML avec Front Page [ par HolyDev ] Voila je voudrais ouvrir un fichier HTML via mon appli VB, mais avec FrontPage et non pa IE.Si qq pouvais me renseigner ca l'ferai ! ouvrir un fichier Excel et atteindre la feuille voulu dans une page html [ par jeriani ] Bonjour,J'ai un page html avec 5 liens, chacun de ces liens corresponde à une des 5 feuilles de calculs presentent dans le meme fichier Excel.Par exem Ouvrir un fichier .htm avec vba [ par EnaelHoly ] Bonjour à tousVoila j'ai un programme a l'intérieur duquel j'aimerai faire ouvrir un fichier .htm que j'ai créer. Je ne trouve pas comment faire.J'ai impossible d'ouvrir une page htm depuis un bouton en vb [ par tentouz ] Salut voila mon premier post, je suis débutant en vb et j'aimerais ouvrir la page: mapage.htmdepuis un bouton,voici mon code:_________________________ ouvrir un pdf [ par DragonBurn ] Bonjour j'ai conçu un logiciel sous VB6. Celui ci possède une aide ss la forme d'un fichier Help.pdf Toutefois je voudrais ouvrir ce fichier à une pag Comment ouvrir un fichier pdf à une page précise [ par DragonBurn ] Je travaille sous VB6 et je cherche comment ouvrir un fichier d'aide à une page présice lors de l'appui sur un bouton ! Merci de répondre rap ouvrir un fichier htm avec excel [ par CDAlstom ] ouvrir un fichier pdf sur une page precise [ par amrw ] Bonjour, Je voudrais ouvrir un document pdf sur une page bien precise (26/78) avec VB Excel,J'ai utilisé ce code mais il l'ouvre sur la 1ere page. Me VB 2008 : Ouvrir une page web avec le navigateur par défaut [ par dimic13 ] Bonjour, Je vous expose mon problème: Je voudrais ouvrir une page web de type : "www.blablabla.com?search=" & textbox1 Donc ouvrir avec le navigateur

Livres en rapport

Tous les livres pour Fichier, Ouvrir, Page, Navigateur, Htm

Nos sponsors

Derniers Blogs

[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

Forum

RE : DéTECTER LE DéPLACEMENT D'UN USERCONTROL (COMPOSANT ACTIVX) par Chris1955

RE : RECORDSET DE VB6 à VB2010...GRRRRRRRR par ShayW

RE : MACRO DE REPRISE DE SéLECTION MULTIPLE par CerberusPau

RE : MISE à JOUR EN CASCADE (TABLES MèRE/FILLE) AVEC COLONNES AUTO-INCREMENTéS par BasicZx81

RE : DATETIME AND DATEDIFF VB.NET 2010 par Shindaraa

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Creation d-un site de recontre
Budget : 6 000€
Automatisation site web
Budget : 4 000€
Integration E commerce d-une application graphique interactive-REPUBLICATION-
Budget : 2 000€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning