Macro pour lancer une appli

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)
  
'### Constantes à adapter ###
Const CHEMIN As String = "C:\WINDOWS\system32\"
Const FICHIER_EXE As String = "notepad.exe"
'############################
  
Const SW_SHOWNORMAL = 1

Sub OuvertureParAPI()
ShellExecute 0, vbNullString, FICHIER_EXE, vbNullString, CHEMIN, SW_SHOWNORMAL
End Sub

Sub OuvertureParMethodeExcel()
Shell CHEMIN & FICHIER_EXE, 1
End Sub