Discussion :

[fhtazman]

Bonjour,

Je crée un msgbox pour gérer une erreur VBA si une option n'est pas activée et j'aimerai faire pointer le bouton Aide de cette msgbox vers l'aide d'xls et un contenu paticulier... les propriétés du lien dans l'aide xls sont: ms-help://MS.EXCEL.12.1036/EXCEL/content/HA10031071.htm#4
mais je ne sais pas comment renseigner mes variables HelpFile et Context

Code :

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

1
2
3
4
5
 
MsgBox "VBA ne peut executer cette Fonction" & Chr(10) & _
 "Dans les options de sécurité, veuillez activer:" & Chr(10) & _
 "Accès approuvé au modèle d'objet du projet VBA", 64, "Erreur VBA", _
 HelpFile, Context

Merci de votre aide

[Philippe Tulliez]

Bonjour,
Voir ce chapitre du tutoriel La MsgBox décortiquée

[fhtazman]

Merci
J'avais bien lu ce tutoriel mais je ne sais pas comment pointer vers l'aide xls ni comment l'emmener sur la bonne page en fonction du lien précédemment évoqué.

Est-ce que "C:\WINDOWS\Help\calc.hlp" de l'exemple est le ficher d'aide xls (absent sur mon PC perso...). Pour le contexte je ne sais pas quel critère du lien utiliser... la page... le chapitre...

Merci de vos conseil

[Oliv-]

Bonjour,
Voici un contournement.

tu crées un userform avec ton message d'erreur + une textbox Aide ou un bouton Btn_AIDE.
edit : + ton bouton OK

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit
Public hwnd
 
Private Sub Btn_Aide_Click()
 
Dim lReturn As Long
    lReturn = ShellExecute(hwnd, "open", "ms-help://MS.EXCEL.12.1036/EXCEL/content/HA10031071.htm#4", _
                           vbNull, vbNull, SW_SHOWNORMAL)
End Sub
 
Private Sub Btn_Aide_MouseMove(ByVal Button As Integer, ByVal Shift _
                                                     As Integer, ByVal X As Single, ByVal Y As Single)
    Btn_Aide.ForeColor = &H800080
End Sub
 
Private Sub Aide_MouseDown(ByVal Button As Integer, ByVal Shift As _
                                                     Integer, ByVal X As Single, ByVal Y As Single)
    Dim lReturn As Long
    lReturn = ShellExecute(hwnd, "open", "ms-help://MS.EXCEL.12.1036/EXCEL/content/HA10031071.htm#4", _
                           vbNull, vbNull, SW_SHOWNORMAL)
 
End Sub
 
Private Sub Aide_MouseMove(ByVal Button As Integer, ByVal Shift _
                                                     As Integer, ByVal X As Single, ByVal Y As Single)
    Aide.ForeColor = &H800080
End Sub
 
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Btn_Aide.ForeColor = -2147483630
  Aide.ForeColor = -2147483630
End Sub
 
Private Sub OK_Click()
Unload Me
End Sub

dans un module

Code :

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

1
2
3
4
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 Const SW_SHOWNORMAL = 1

[fhtazman]

Merci Oliv-

Contournement parfait

J'ai retirer les fonctions qui affichaient le Help en rouge mais impeccable!!

Merci beaucoup