Bonjour,
Voilà, depuis quelques jours je me pose la question du pourquoi du non affichage d'un fichier d'aide de type CHM sur tous les postes.
J'ai un outil access qui interroge une autre base access. Dans cet outil, j'ai créé un bouton, qui, quand on appuie dessus, montre normalement (en tout cas sur mon poste) un fichier d'aide de type chm.
Le problème vient quand je suis sur un autre poste, et que je clique sur le bouton. Le fichier chm s'ouvre mais ne m'affiche aucune page. Toutes les pages de mon chm, affichent un truc du genre des pages de IE quand il ne trouve pas la page html.
voici mes déclaration et le code du bouton en question :
'Définition de l'API pour afficher le fichier d'aide CHMPrivate Const HH_HELP_CONTEXT = &HF
Private Const HH_DISPLAY_TOPIC = &H0
Private Declare Function htmlhelp
Lib "hhctrl.ocx"
Alias "HtmlHelpA" _
(ByVal lhwndCaller
As Long, _
ByVal sFileName
As String, _
ByVal lCommand
As Long, _
ByVal lData
As Any)
As Long 'lhwndCaller = N° de fenêtre d'affichage
'sFileName = chemin et nom du fichier d'aide
'lCommand = HH_DISPLAY_TOPIC = &H0
'lData = Onglet du fichier d'aide
Private Sub CmdHelp_Click()
'Description :
'-------------
' Affichage du fichier d'aide
'Données d'entrée:
'-----------------
' aucune
'Données de sortie :
'-----------------
' aucune
'Variables :
'-----------
' Fichier = chemin et nom du fichier d'aide
Dim Fichier
As String
On Error GoTo Err_CmdHelp_Click
Fichier = CurrentProject.Path + "\Sources\MODELE\AIDE.chm"
htmlhelp Application.hWndAccessApp, Fichier, HH_DISPLAY_TOPIC, "Apropos.html"
Exit_CmdHelp_Click:
Exit SubErr_CmdHelp_Click:
MsgBox "Form_xx, Sub CmdHelp_Click" & vbCrLf & _
Err.Description
Resume Exit_CmdHelp_Click
End SubSi vous avez des solutions !!!
Merci d'avance,
RB.