VBA XLS Aide msgbox

Version imprimable

VBA XLS Aide msgbox

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:

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

21/11/2012, 02h51
Philippe Tulliez

Bonjour,
Voir ce chapitre du tutoriel La MsgBox décortiquée
21/11/2012, 06h29
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é. :oops:

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 :roll:

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:

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:

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

21/11/2012, 19h27
fhtazman

Merci Oliv-

Contournement parfait :ccool:

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

Merci beaucoup :D