Discussion :

[Remyleb]

Bonjour
Je suis novice en VBS et je souhaiterai obtenir un script permettant d'executer l'ouverture de firefox l'intermédiaire d'un lien hypertext en lui ajoutant une adresse web.
Merci

Script de base;

Set sh = CreateObject("WScript.Shell")
nomfich="C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
Set fso = wscript.CreateObject("Scripting.FileSystemObject")
If fso.fileexists(nomfich) Then
sh.Run fso.getfile(nomfich).shortpath
else
msgbox("le fichier " & nomfich & " n'existe pas")
End If
Set fso = Nothing
Set sh = Nothing

[hackoofr]

Tester ce :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
Dim Ws,strExePath,strURL
Set Ws = CreateObject("WScript.Shell")
strExePath = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
strURL = "http://www.developpez.net/forums/d1606562/logiciels/autres-logiciels/internet/firefox/lancer-firefox-vbs-ajoutant-adresse-internet/"
Ws.Run Chr(34) & strExePath & Chr(34) & " " & strURL

[Remyleb]

Bonjour hackoofr
Merci pour la réponse.
Test effectué OK Nickel