Private Sub CommandButton1_Click()
' source Laurent OTT DVP
' Ouvre le fichier .chm de l'application situé dans le répertoire de l'application.
Dim StrAide As String
Dim NomApplication As String
' Mémorise le nom de l'application sans son extension:
NomApplication = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1)
StrAide = Application.ThisWorkbook.Path & "\" & NomApplication & ".chm"
' Ouvre l'aide si elle est trouvée ou affiche un message d'erreur:
If Dir(StrAide) = "" Then
MsgBox "Désolé le fichier d'aide" & StrAide & "n'a pas été trouvé dans le répertoire de l'application:" _
& Chr(10) & Chr(13) & Chr(10) & Chr(13) _
& StrAide, vbCritical + vbOKOnly, "Fichier d'aide non trouvé"
Else
Application.Help StrAide
End If
End Sub