Discussion :

[geffdenimes]

bonjour !

je travaille sur un fichier excel
à l'ouverture de ce fichier, je souhaiterais qu'apparaisse un petit bouton dans la barre d'outil qui donnerait accès à la macro que je suis en train de préparer.

naturellement, je souhaiterais qu'il disparaisse lorsque le fichier est fermé de sorte qu'il ne puisse y avoir une confusion lorsque d'autres classeurs excel sont ouverts...

comment faire ?

[bidou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(1).Controls(Application.CommandBars(1).Controls.Count).Delete
End Sub
 
Private Sub Workbook_Open()
 
Dim MonBouton As CommandBarButton
 
Set MonBouton = Application.CommandBars(1).Controls.Add(msoControlButton)
MonBouton.Style = msoButtonCaption
MonBouton.Caption = "LegendeBouton"
MonBouton.OnAction = "MaMacro"
 
End Sub

[geffdenimes]

et si je veux, en sortant du fichier, rétablir la config d'origine, et donc supprimer mon bouton, que fais-je ?

[ThierryAIM]

Euh, tu as lu ce que Bidou t'as donné

[benoist]

Dans ton Microsoftobject: This workbook sous la procedure
Workbook_Open()

tu utilises la fonction suivante pour faire apparaitre le petit bouton.

Code :

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

1
2
 
Application.CommandBars("nombarre").Controls(ID_controle).Add

Et pour la supprimer
dans la procedure suivante
Workbook_BeforeClose()

tu utilises la fonction suivante pour faire disparaitre le petit bouton.

Code :

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

1
2
 
 Application.CommandBars("nombarre").Controls(ID_controle).Delete

Pour modifier le bouton tu utilise la methode Onaction sur l'objets commandbars.controls

Pour l'option des commandes, il ya l'aide de VBA qui est bien faite...

[geffdenimes]

merci pour vos conseils, mon pb est résolu !!!