Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, _
Temporary:=True)
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 133
.OnAction = "Macro1"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 134
.OnAction = "Macro2"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 135
.OnAction = "Macro3"
End With
CmdBar.Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MaBarrePerso").Delete
End Sub
je me demandais pourquoi il valait mieux créer la barre en vba que le faire via la personnalisation de la barre d'outils d'excel? (parce que je suppose qu'il y à une bonne raison, non? ou est-ce la même chose?
Sous Excel2007, les anciennes barres d'outils ne peuvent être crées que par VBA
Bonjour à tous
Possédant Office 2007 depuis ses débuts, j'avais réussi à importer mes anciennes barres d'outils personnalisées des versions antérieures d'Excel. Je crois que j'étais passée par les Options Excel/Compléments mais je ne parviens pas à refaire la manip. J'ai toujours sur sauvegarde mais anciens fichiers des barres d'outils et macros personnelle d'Excel 2002.
Auriez-vous la gentillesse de m'indiquer la marche à suivre pour récupérer ma barre personnelle dans l'onglet complément avec toutes les commandes que j'y avais intégrées.
Merci d'avance et très bonne journée