Discussion :

[Chewi]

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:

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

Mais il y a un bug à bar.Add
"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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars.Add "Chewi"

Mais j'ai une autre erreur:
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.

[Invité]

Bonjour

Le problème avec .add c'est que tu veux ajouter une barre, hors ta barre existe.

Tu as déactivé tes barres par enabled = false

Tu actives ta barre en la nommant et enabled = true

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.CommandBars("tabarre").Enabled = True

Starec

[Chewi]

Merci Starec!

Tout fonctionne parfaitement du coup!

B à T,

Chewi