Discussion :

[Dédé6621]

Bonjour à toutes et à tous,

Suite à cette discussion grâce à laquelle j'ai, je pense, compris comment ajouter un contrôle déclenchant une macro dans un menu contextuel, j'ai malgré tout ce message d'erreur qui apparaît après redémarrage de l'ordinateur:

Impossible d'exécuter la macro ''C:\Chemin\PERSONAL.xlsb'!DateDoc'. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.

Voici les codes que j'utilise pour ajouter le contrôle:

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
Option Base 1
 
Private mccd(2) As CommandBar   'menu contextuel clic-droit
Private ctrl As Variant         'contrôle d'un menu contextuel
Private i As Byte
 
Sub AjouteContrôleDateDoc()
 
        Set mccd(1) = Application.CommandBars("Cell")
        Set mccd(2) = Application.CommandBars("Query")
 
        EffaceContrôle
 
For i = 1 To 2
    With mccd(i).Controls _
        .add(msoControlButton, , , 6)
        .Caption = "Date du jour"
        .OnAction = "MenusContextuels.DateDoc"
        .Tag = "ContrôlePerso"
    End With
        mccd(i).Controls(6).BeginGroup = True
Next
 
End Sub
 
Sub EffaceContrôle()
 
        Set mccd(1) = Application.CommandBars("Cell")
        Set mccd(2) = Application.CommandBars("Query")
 
For i = 1 To 2
    For Each ctrl In mccd(i).Controls
        If ctrl.Tag = "ContrôlePerso" Then ctrl.Delete
    Next ctrl
Next
 
End Sub

Précision, en lançant ce code après le message d'erreur, "Date du jour" et l'emplacement de la macro apparaissent bien dans la fenêtre d'exécution (Ctrl+G).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub InfoMenus()
 
        Set mccd(1) = Application.CommandBars("Cell")
        Set mccd(2) = Application.CommandBars("Query")
 
For i = 1 To 2
    For Each ctrl In mccd(i).Controls
        If ctrl.Tag = "ContrôlePerso" Then Debug.Print ctrl.Caption & Chr(9) & ctrl.OnAction
    Next ctrl
Next
 
End Sub

Quelqu'un ou quelqu'une aurait-il ou elle une idée d'où le problème vient?

Cordialement

[Invité]

Bonjour,

Je ne sais pas si ma réponse pourra vous aider mais pour mes macros complémentaires, je vérifie la présence de mes macros, à la fois dans les événements Workbook_Open et Workbook_beforeclose dans ThisWorkbook, et je les supprime le cas échéant. Je me suis aperçu que mes mises à jour n'étaient pas toujours prises en compte.

Code :

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

1
2
3
4
5
6
7
8
 
 ' Suppression de la commande existante (au cas où...)
 For Each NouvelleCommande In Application.CommandBars(1).Controls
     If NouvelleCommande.Caption = "XXXXX" Then
        Application.CommandBars(1).Controls("XXXXX").Delete
        Exit For
     End If
 Next NouvelleCommande

Workbook_Open lance ensuite la macro créant les menus et sous menus (contrôles) qui se trouve dans un module standard.

Pour info : Pour vérifier que j'ai bien chargé la bonne version de la macro, j'utilise aussi la propriété TooltipText. Le texte s'affiche en passant le pointeur de la souris sur le contrôle. C'est utile aussi pour y mettre le numéro de téléphone du dépanneur....

Code :

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

1
2
3
4
5
6
7
8
9
 
    '---------------------
    ' Création du contrôle
    '---------------------
    Set NouveauMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=IndexAide, Temporary:=True)
 
    ' Ajout du texte
    NouveauMenu.Caption = "XXXXX"
    NouveauMenu.TooltipText = "Version du 20-12-2016...."

Sinon, tous mes noms de Sub, Function, variables n'ont jamais de caractères signés comme le ô de contrôle dans le nom de vos procédures.

Cordialement.