la methode 'OnAction' de l'objet '_CommandBarButton' a echoué
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:
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:
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.
