Option Explicit
'A placer en zone de déclarations en entête de module
Private Declare Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Commande l'ouverture du fichier .hlp
Private Sub CommandButton14_Click()
Dim R As Long
R = ShellExecuteA(0&, "Open", "C:\essai\MonFichier.hlp", 0, 0, 1)
End Sub