Ouvrir une page web (URL) dans le navigateur par défaut, dont Firefox.

[happy.rotter]

Je vous fais partager qqch que j'ai eu du mal à extraire du forum et que je trouve sympathique ; ça aidera des gens, c'est sûr.

Je n'en suis nullement l'auteur !

Mettre ceci dans Déclarations :

Code :

1
2
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

Mettre ceci ensuite dessous :

Code :

1
2
3
4
5
6
Sub Macro1()
 
'La ligne suivante affiche le site Developpez.com dans le navigateur par défaut, en fournissant le répertoire de votre application comme répertoire par défaut :
ShellExecute 0, "open", "http://www.developpez.com", "", "", 1
 
End Sub

[ouskel'n'or]

Un lien là