Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal Operation As String, _
ByVal Filename As String, _
Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long = vbMinimizedFocus _
) As Long
Public Const BrowserLocation = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Public Const msgUrl = "http://google.com/"
Public lSuccess As Long
Sub OpenBrowser(params As String, Optional sAction As String)
Dim sUrl As String
sUrl = msgUrl & params
Dim result As Long
lSuccess = ShellExecute(lSuccess, "Open", sUrl, "", "", 0)
End Sub
Partager