Z
Zic
Hi all
Could somebody explain why with this code below i keep getting a #5 error
message?
Sub Affiche_Barre()
Dim Barre As CommandBar, boutDrpDwn As CommandBarControl, bout1 As
CommandBarButton, bout2 As CommandBarButton
Set Barre = Application.CommandBars.Add(MaCommandeBar, msoBarTop, ,
True)
Set boutDrpDwn = Barre.Controls.Add(msoControlButtonDropdown)
With boutDrpDwn
.FaceId = 135
End With
Set bout1 = boutDrpDwn.Controls.Add(msoControlButton)
With bout1
.FaceId = 71
.Style = msoButtonIcon
.OnAction = "MacroBout1"
End With
Set bout2 = boutDrpDwn.Controls.Add(msoControlButton)
With bout2
.FaceId = 72
.Style = msoButtonIcon
.OnAction = "MacroBout2"
End With
End Sub
TIA
Zic
Could somebody explain why with this code below i keep getting a #5 error
message?
Sub Affiche_Barre()
Dim Barre As CommandBar, boutDrpDwn As CommandBarControl, bout1 As
CommandBarButton, bout2 As CommandBarButton
Set Barre = Application.CommandBars.Add(MaCommandeBar, msoBarTop, ,
True)
Set boutDrpDwn = Barre.Controls.Add(msoControlButtonDropdown)
With boutDrpDwn
.FaceId = 135
End With
Set bout1 = boutDrpDwn.Controls.Add(msoControlButton)
With bout1
.FaceId = 71
.Style = msoButtonIcon
.OnAction = "MacroBout1"
End With
Set bout2 = boutDrpDwn.Controls.Add(msoControlButton)
With bout2
.FaceId = 72
.Style = msoButtonIcon
.OnAction = "MacroBout2"
End With
End Sub
TIA
Zic