Private Declare Function ShellExecute Lib "shell32.dll" Alias _
ShellExecuteA (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
'-----------------------------------------------------------------
Sub Ouvrir_Fichier_Aide()
Dim Fichier As String
Fichier = "C:\Users\UTILISATEUR\Excel 2013 Developer Documentation.chm"
ShellExecute hWnd, "open", Fichier, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub