OVH Cloud OVH Cloud

Associer un fichier d'aide

2 réponses
Avatar
Luce Girard
Bonsoir,
J'aurais voulu associer un fichier d'aide à un bouton de la barre de
menu "Aide sur ce fichier"
Savez-vous comment je dois procéder.
Le fichier d'aide est déjà compiler puisque je travaille aussi avec VB6.
Merci
Luce

2 réponses

Avatar
Frédéric Sigonneau
Bonsoir,

Deux exemples déjà publiés ici (s'il y a des noms longs avec espace dans le
chemin/nom de ton fichier d'aide, ShellExecute est plus facile à mettre en
oeuvre) :

'================= 'Avec l'API ShellExecute
'(elle se charge de lancer l'appli qui lui est associée) :

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Public Const Aide = "C:WINDOWSHELPfreecell.chm"

Sub OuvreCHM()
ShellExecute 0, "open", Aide, vbNullString, vbNullString, 1
End Sub

'Avec Shell:
Sub OuvreCHM2()
Shell "C:WINDOWShh.EXE " & Aide, 1
End Sub
'=================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonsoir,
J'aurais voulu associer un fichier d'aide à un bouton de la barre de
menu "Aide sur ce fichier"
Savez-vous comment je dois procéder.
Le fichier d'aide est déjà compiler puisque je travaille aussi avec VB6.
Merci
Luce


Avatar
Luce Girard
Je n'avais pas regardé mon courrier depuis quelques jours, mais je te
remercie de ta réponse
Luce


Bonsoir,

Deux exemples déjà publiés ici (s'il y a des noms longs avec espace dans le
chemin/nom de ton fichier d'aide, ShellExecute est plus facile à mettre en
oeuvre) :

'================= > 'Avec l'API ShellExecute
'(elle se charge de lancer l'appli qui lui est associée) :

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Public Const Aide = "C:WINDOWSHELPfreecell.chm"

Sub OuvreCHM()
ShellExecute 0, "open", Aide, vbNullString, vbNullString, 1
End Sub

'Avec Shell:
Sub OuvreCHM2()
Shell "C:WINDOWShh.EXE " & Aide, 1
End Sub
'================= >
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonsoir,
J'aurais voulu associer un fichier d'aide à un bouton de la barre de
menu "Aide sur ce fichier"
Savez-vous comment je dois procéder.
Le fichier d'aide est déjà compiler puisque je travaille aussi avec VB6.
Merci
Luce