Url + VBA

Bonjour,

Utilise l'API ShellExecute

Private Const SW_SHOWMAXIMIZED = 3

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

ShellExecute 0&, "open", "http://www.toto.ici", 0, 0, SW_SHOWMAXIMIZED

John wrote:

Bonjour,

Dans une partie de mon code j'utilise la commande Shell suivante :

Shell "C:Program FilesInternet Exploreroexplore.exe" & _
http://www.toto.ici & "", vbNormalFocus


Cela sous-entends que l'utilisateur doit avoir iexplorer ! N'y a-t-il pas
une commande qui permette d'ouvrir une URL avec le navigateur par défaut de
l'utilisateur ? Il existe aussi Netscape, Firefox, etc ...


Merci de vos réponses

--
Cordialement,

Jacques.

Bonsoir

Sub ttt()
'ceci ouvrira le navigateur par défaut
ThisWorkbook.FollowHyperlink "http://www.excelabo.net/index.php", , True
End Sub

Salutations
RaMa

"John" <jac_be@hotmail.com> a écrit dans le message de news:
unS1zXUOFHA.3336@TK2MSFTNGP09.phx.gbl...

Bonjour,

Dans une partie de mon code j'utilise la commande Shell suivante :

Shell "C:Program FilesInternet Exploreroexplore.exe" & _
http://www.toto.ici & "", vbNormalFocus


Cela sous-entends que l'utilisateur doit avoir iexplorer ! N'y a-t-il pas
une commande qui permette d'ouvrir une URL avec le navigateur par défaut
de
l'utilisateur ? Il existe aussi Netscape, Firefox, etc ...


Merci de vos réponses