Bonjour à tous,
En vue de personnaliser mon application, je souhaite retirer toutes les barres d'outil et ne faire apparaître que la barre d'outil personnalisée (il n'y en a qu'une dans mon cas).
Dans ThisWorkbook, j'utilise donc ce code:
Mais il y a un bug à bar.Add
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub Workbook_Open() Dim cbar As CommandBar For Each cbar In Application.CommandBars 'pour chaque barre de l'application cbar.Enabled = False 'inactivation de la barre Next For Each bar In Application.CommandBars If Not bar.BuiltIn And Not bar.Visible Then bar.Add Next
"Object doesn't support this property or method"
Or quand je regarde sur divers sites, c'est bien de cette manière que je dois procéder.
Alors je remplace cette dernière boucle par :
Mais j'ai une autre erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.CommandBars.Add "Chewi"
Run-time error '5': Invalid procedure call or argument.
Pourtant, j'ai l'impression de suivre la syntaxe de l'aide VBA
Si vous pouviez m'apporter votre lumière sur ce qui ne va pas ou sur une autre manière de procéder,...
Merci d'avance.
Partager