- 'Déclarer cette fonction dans un module :
-
- Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long
-
- 'Pour l'exécution :
-
- Dim RetVal
-
- RetVal = ShellExecuteA(0, "Open", "Chemin_et_nom_du_fichier", "", "", 10)
'Déclarer cette fonction dans un module :
Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long
'Pour l'exécution :
Dim RetVal
RetVal = ShellExecuteA(0, "Open", "Chemin_et_nom_du_fichier", "", "", 10)