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 :
Mettre ceci ensuite dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager