Bonjour à tous,

j'ai un problème assez étrange car il n'apparait qu'aujourd'hui ayant fonctionné avant sans problème.

j'ai crée des menus personnalisés qui sont dans une macro complémentaire et dans les feuilles excel je fais juste
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.Run("ma macro")
Chaque feuille ayant son menu personnalisé, lorsque je change de feuille j'efface le menu de la feuille précédente et je lance la macro qui crée le menu de la feuille active.
Cependant depuis hier l'execution de la macro qui crée le menu personnalisé ne marche plus et je reçois le message d'erreur suivant:
Erreur d'execution '_2147467259(80004005)' La méthode 'OnAction' de l'objet '_CommandBarButton' a echoué

J'ai redemarrer mon ordinateur ça n'a rien changé. Ma collègue qui utilise la même macro complémentaire et le même fichier Excel sur son ordinateur n'a pas ce problème. On utilise toutes deux Microsoft Excel 2003.

Quelqu'un pourrait-il m'aider?

Voici un exemple d'une macro qui permet de créer un menu personnalisé
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
 
Sub creer_menu_Sigecri()
 
For Z = INIT_UN To CommandBars(1).Controls.Count
 If CommandBars(1).Controls(Z).Caption = "Actions SIGNAUX" Then Exit Sub
Next
 
With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
.Caption = "Actions SIGNAUX"
    '1 bouton
    With .Controls.Add(msoControlPopup)
        .Caption = "Création"
        With .Controls.Add(msoControlPopup)
            .Caption = "Création Signaux"
            With .Controls.Add(msoControlButton)
                .Caption = "Version 1"
                .OnAction = "creer_table_sigecri_v1"
            End With
            With .Controls.Add(msoControlButton)
                .Caption = "Version 2"
                .OnAction = "creer_table_sigecri_v2"
            End With
        End With
    End With
 
End With
 
 
 
End Sub
Merci d'avance pour votre aide.