Erreur dans ajout de menu contextuel

Bonjour à tous,

J'ai une macro dans THISWORKBOOK qui fonctionnait très bien mais qui plante depuis ce matin au niveau du premier SET.

Private Sub Workbook_Open()

'MENU CONTEXTUEL - VOIR MODULE MENU CONTEXTUEL POUR LES MACRO APPELEES

            Dim LeMenu As Menu

               Set LeMenu = ShortcutMenus(xlWorksheetCell).MenuItems.AddMenu(Caption:="Avancement", before:=1)

                LeMenu.MenuItems.Add "Fait", "FAIT"                      
                LeMenu.MenuItems.Add "En cours", "EN_COURS"             
                LeMenu.MenuItems.Add "A faire - RD", "TODO_RD"          
                LeMenu.MenuItems.Add "A faire - Coll.", "TODO_COLL"     
                LeMenu.MenuItems.Add "Non applicable", "NA"              
                LeMenu.MenuItems.Add "Mise à jour demandée", "MAJ"       '
                LeMenu.MenuItems.Add "Déléguation à un Tiers", "TIERS"   

            Set LeMenu = Nothing

End Sub

Cette macro ajoute un bouton contextuel quand je fais clic droit avec la souris, avec écrit "avancement", et il donne accès avec la flèche au 7 macros Frais, En cours, A faire etc...

J'ai eu une mise a jour d'Office ce matin, j'espère que ce n'est pas cela qui a merdé !

Merci à ceux qui pourront m'aider à résoudre ce probleme

Bonjour,

essayer un reset de la barre de commande, enregistrer le fichier, fermer et ré-ouvrir

Sub reset_menu_cell()
Application.CommandBars("cell").Reset
End Sub

Salut,

Cela n'a pas fonctionné ! :s

J'ai pas eu le problème avant 9h ou 10h ce matin, et ensuite j'ai eu la mise a jour office et boum, ca merdouille maintenant.

J'ai ce message la à l'ouverture d'excel (car ma macro est dans un complément qui s'ouvre en même temps)

Dim LeMenu As Menu

avez-vous créer une classe Menu ?

C'est à dire ?

ok, je conclue que la réponse est non,

voir sur ce lien au bas de la page, il y a un exemple complet pour la création d'un menu et sous-menu sur la CommandBars("cell")

https://msdn.microsoft.com/fr-fr/library/office/gg469862(v=office.14).aspx