|
 |
 |
 |
| |
 Ouvrir une page web
'##############################################
' API d'Execution de programme et Lien hypertexte (URL)
' à placer dans un module
'##############################################
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, _
ByVal lpDirectory$, ByVal nShowCmd&) As Long
Voici le code :
Dim success As Long
Dim strURL As String
strURL = "http://www.lcl2000.com"
success = ShellExecute(hwnd, "Open", strURL, "", App.Path, 1)
|
|
 |
 |
 |
|