Sub AideFacturation()
Application.Help ThisWorkbook.Path & "\Help\facturation.hlp"
End Sub
Sub testdd()
Dim RetVal
' Exécute notepad
RetVal = _
Shell("C:\WINDOWS\Notepad.EXE D:\Documents and Settings\chass_x1\My Documents\My Pictures\help.txt", 1)
End Sub