Sub BoMenu()
'Procédure appelée à l'ouverture du classeur
'Déclaration des variables
Dim cb As CommandBar
Dim btn As CommandBarButton
'Gestion des erreurs
On Error Resume Next
CommandBars('Personnalisé').Delete
On Error GoTo 0
'Affectation des variables
'Ajout de la barre d'outils
Set cb = CommandBars.Add
With cb
.Name = 'Personnalisé'
.Position = msoBarTop
.Visible = True
End With
'Ajout des boutons de la barre d'outils
Set btn = CommandBars('Personnalisé').Controls.Add _
(Type:=msoControlButton)
With btn
.BeginGroup = True
.Caption = 'Création'
.FaceId = 162
.OnAction = 'pass'
.TooltipText = 'Création'
.Style = msoButtonIconAndCaption
End With
Set btn = CommandBars('Personnalisé').Controls.Add _
(Type:=msoControlButton)
With btn
.Caption = 'Lecture'
.FaceId = 48
.OnAction = 'Lecture'
.TooltipText = 'Lecture'
.Style = msoButtonIconAndCaption
End With
'Positionnement de la barre d'outils personnalisé
'
Application.CommandBars('Personnalisé').RowIndex = 3
Application.CommandBars('Personnalisé').Left = 0
End Sub