Bonjour à tous,
J'ai deux micros, avec deux excel (l'un 2002, l'autre 2003). Cette macro ne fonctionne pas sur celui avec 2003, mais fonctionne sur celui avec 2002. Je crois même qu'elle a fonctionné sur celui avec 2003. Bien sûr, les macros sont activées (d'autres fonctionnent bien, même celles qui modifient des menus). Auriez-vous une explication ou une piste de recherche ? Merci beaucoup d'avance.
Sub Mamacro()
On Error Resume Next
Dim Smenu As Object
Dim c As CommandBarControl
Set c = Application.CommandBars.FindControl(ID:=30029)
Set Smenu = c
With Smenu
.Controls.Add(Type:=msoControlButton, Before:=1) _
.Caption = 'Ma Protection'
.Controls('Ma Protection').OnAction = 'MaPro'
End With
End Sub
J'ai deux micros, avec deux excel (l'un 2002, l'autre 2003). Cette macro ne fonctionne pas sur celui avec 2003, mais fonctionne sur celui avec 2002. Je crois même qu'elle a fonctionné sur celui avec 2003. Bien sûr, les macros sont activées (d'autres fonctionnent bien, même celles qui modifient des menus). Auriez-vous une explication ou une piste de recherche ? Merci beaucoup d'avance.
Sub Mamacro()
On Error Resume Next
Dim Smenu As Object
Dim c As CommandBarControl
Set c = Application.CommandBars.FindControl(ID:=30029)
Set Smenu = c
With Smenu
.Controls.Add(Type:=msoControlButton, Before:=1) _
.Caption = 'Ma Protection'
.Controls('Ma Protection').OnAction = 'MaPro'
End With
End Sub