Discussion :

[JMVBAExcel]

Bonjour,

Je souhaite proposer sur une appli VBA Excel à partir d'un bouton, un lien vers un fichier d'aide html. Le fichier comporte une extension .chm. Je sais faire avec un fichier winhelp.hlp classique mais avec un .chm ??

Quelqu'un peut il me dépanner ?

Un grand merci

J Marc

[ucfoutu]

Bonjour,

mon premier réflexe était de te conduire vers l'utilisation de la fonction HtmlHelp que contient hhctrl.ocx, mais une relecture, notamment de ceci, m'a fait changer d'avis :

à partir d'un bouton, un lien vers un fichier d'aide html. Le fichier comporte une extension .chm

S'il s'agit, en effet, de "lancer" le fichier d'aide depuis un bouton, on s'écarte de l'aide contextuelle et il suffit alors d'ouvrir tout simplement le fichier .chm.

La fonction ShellExecute de l'Api de Windows me semble alors plus simple, dans un tel cas ...
Voilà donc :

Code :

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

1
2
3
4
5
6
Private 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
 
Private Sub Command1_Click()
  monchm = "E:\Aide VB\HTMLHELP\aide_vb.chm"
  ShellExecute 0, vbNullString, monchm, vbNullString, "C:\", 1
End Sub

[JMVBAExcel]

Merci beaucoup pour cette réponse précise,

Juste un point, si on ne connait pas l'emplacement choisi par l'utilisateur pour ce fichier .chm, est il possible d'afficher une boite de dialogue qui lui permette de parcourir lui-même son disque pour le pointer ?

Merci encore

J Marc

[ucfoutu]

C'est bien évidemment possible, mais il y a sans doute mieux à faire.
1er choix : mettre ton chm dans un répertoire "relatif" par rapport à celui de ton appli (c'est toujours le plus simple)
2ème choix : il est possible de trouver un fichier dans une arborescence spécifiée, mais alors :
--->> aucun autre fichier ne doit porter ce nom-là dans l'arborescence
--->> le traitement est d'une durée proportionnelle à la taille de l'arborescence.
Réfléchis et dis-nous ta décision.

[JMVBAExcel]

Bonjour,

L'idée d'un répertoire relatif convient mieux en effet...
Cela se traduirait comment ?

Merci

[ucfoutu]

Re,

Code :

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

Application.Path

retourne le chemin de ton appli

Code :

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

Application.ThisWorkbook.Path

retourne le chemin de ton classeur

Selon le type de ton application (depuis un classeur ou depuis un userform et donc à choisir), l'un ou l'autre sera le chemin de l'endroit où tu te trouves au moment du click sur le bouton.
Imaginons que ce chemin soit C:\toto

Place dans ce répertoire un sous-répertoire titi dans lequel tu mes ton fichier chm
Tu le retrouveras alors à coup sur en te référant dans ton code et selon le cas (voir plus haut) soit avec :

Code :

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

Application.Path & "\titi" & "\ton_fichier.chm

soit avec

Code :

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

Application.ThisWorkbook.Path & "\titi" & "\ton_fichier.chm

[Pierre Fauconnier]

Bonjour

Attention que

Code :

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

application.path

va t'obliger à placer le chm dans le dossier d'excel (c:\program file\...)

Pas très pratique!!!

Il est donc nettement plus judicieux d'utiliser

Code :

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

thisworkbook.path