Discussion :

[titof90]

Bonjour,

j'ai créé un fichier d'aide .chm pour ma base de donnée et je souhaiterai créer un bouton pour ouvrir ce fichier.
Seulement je n'arrive pas a trouver le bon code qui me permettra d'ouvrir ce fichier.
Open est pour un fichier texte, shellexecute pour un exe mais pour un autre type de fichier , je ne sais pas du tout

Merci d'avance pour votre aide

[killkool2001]

Bonjour ,
Ceci vous aidera peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
' Déclaration de la fonction
Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As Long, ByVal dwData As Long) As Long
' Appelle de la fonction
Call HtmlHelp(0, ThisWorkbook.Path & "\CHM-example.chm", 0, 0)

[titof90]

merci
Eh ben je pensais po que ca serait si compliqué je vais avoir du boulot, j'espère y arriver

[titof90]

rebonjour,

alors j'ai essayé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' Déclaration de la fonction
Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
 ByVal uCommand As Long, ByVal dwData As Long) As Long

mais cela ne marche pas, j'ai fait le declare au debut de mon formulaire et ca me le plante.
j'ai créer un bouton avec une procédure clic

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub aide_clic()
' Appelle de la fonction
Call HtmlHelp(0, ThisWorkbook.Path & "\CHM-example.chm", 0, 0)
end sub

je vois pas trop

[DMboup]

C'est pas aussi simple que ca.

Il faut récupérer la fonction à partir du lien qui t'est indiqué, mais surtout bien lire avant de faire du copier/coller

[hugoclo]

Moi c parail impossible de faire fonctionner la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Commande41_Click()
' Déclaration de la fonction
 Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
 ByVal uCommand As Long, ByVal dwData As Long) As Long
' Appelle de la fonction
 Call HtmlHelp(0, ThisWorkbook.Path & "\CombatFleets.chm", 0, 0)
End Sub

Si qq1 peut m'aider ce serai sympa
merci

[Gabout]

Bonjour,

Pour faire fonctionner cette procédure, copiez la première partie dans un module (que vous pouvez nommer mod_CHM par exemple)... donc en dehors de votre formulaire.

Modules... Nouveau... vous copiez, vous compilez et vous enregistrez.

Puis avec la seconde partie vous l'affectez au clic d'un bouton de votre formulaire.
Pour ma part, j'ai remplacé ThisWorkbook.Path & "\CombatFleets.chm" par l'adresse complète et le nom du fichier d'aide que vous voulez visualiser. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Commande0_Click()
    ' Appelle de la fonction
    Call HtmlHelp(0, "C:\Program Files\Fichiers communs\system\ado\ADO210.CHM", 0, 0)
End Sub

Comme cela, cela fonctionne. Bon courage