"Impossible d'exécuter la macro -- Il est possible qu'elle ne soit pas disponible .." - Menu contextuel Cell

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:

---

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:

---

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

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:

---

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....:whistle2:

Code:

---

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.