Comment écrire une macro qui ouvrirait un fichier d'aide (extention .hlp) qui pourrait être appelé à partir d'un bouton d'une barre d'outils personnalisée affectée à un modèle de document ?

Détails
Catégorie parente: Word
Catégorie : Gestion des macros
Affichages : 11257

 

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(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
Public Sub test()
Dim Prog As String, Chemin As String, Ret As Long
Chemin = "E:Program FilesMicrosoft OfficeOffice"
Prog = "Cgmimp32.hlp"
Ret = ShellExecute(Ret, "open", Prog, "", Chemin, 1)
'Pour fermer : remplacer Open par close
End Sub