Bonjour ,
Merci NicoDisso, effectivement j'arrive bien avec ton code à ouvrir la fenetre voulu dans un navigateur mais pas celui par défaut.
En effet j'ai 3 navigateurs web sur ma machines (Internet Explorer, Mozilla, et Safari). Safari est mon navigateur par défaut mais j'utilise plus souvent firefox et internet explorer est la car je n'ai pas encore eu le temps de viré cette daube.
Donc quand je lance ma page je l'ouvre dans firefox et non dans safari moi ca ne me dérange pas trop mais il faudrait que je teste sur des ordinateur n'ayant pas firefox installé si ça fonctionne aussi.
Mais c'est vrai que j'aurai aimé qu'il m'ouvre mon navigateur par défaut comme ça je suis sur que si je tombe sur quelqu'un ayant un navigateur autre que les plus connu ben que ça fonctionne quand même.
Alors si tu as d'autres idées je suis preneur.
J'ai trouvé une autre méthode aussi qui est :
Collé dans un module
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
mais dans ma condition j'exécute:
Set WshShell = CreateObject("Wscript.Shell")
Dim WhereApp As String
WhereApp = WshShell.RegRead("HKEY_CLASSES_ROOT\http\shell\open\command\")
WhereApp = Replace(WhereApp, Chr(34), "")
WhereApp = Replace(WhereApp, "%1", "")
Shell WhereApp & "
http://monsite.fr"
Voila
