Problème pour ouvrir un site internet
J'ai crée un bouton de commande qui normalement doit m'ouvrir le site www.michelin.fr. Mais il n'y a rien qui se passe quand je clique sur le bouton.
Voiçi le code que j'ai écrit :
Ce code placé dans le module d'un form
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 |
et celui si dans un evenement sur clic du bouton
Code:
ShellExecute Me.hwnd, "open", "http://www.michelin.fr", "", CurrentProject.Path, 1