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