Barre d'outils

[stt]

Je désire créer une barre d'outils à l'ouverture d'un fichier fichier (par macro VBA) qui me permettra de lancer d'autres macros. Je n'arrive pas à trouver les commandes dans les méandres de l'aide d'Excel.

Merci par avance

 

[Ti]

va voir dans la rubrique Lecons et exemples de ce site, tu devrais trouver ton bonheur.

 

[sousou]

Voici une réponse qu j'ai faîte qui pourrai te convenir.
Date: 30-09-02 18:06



La solution la plus propre est dans la macro Auto-open de ton fichier est de fabriqué systématiquement ta barre avec l'option "tempory".

Lorsque le fichier sera fermé la barre disparait complètement et se refabrique à l'ouverture suivante.

exemple de création:
'Initialisation
Sub auto_open()

'Création de la barre de commande temporaire
Set mabarre = CommandBars.Add(Name:="tt", Position:=msoBarFloating, temporary:=True)
mabarre.Left = 0
mabarre.Top = 50
'Bouton popup(menu)
Set pop = mabarre.Controls.Add(Type:=msoControlPopup)
pop.Caption = "Employé"
pop.Controls.Add Type:=msoControlButton
'Bouton sous-menu
pop.Controls(1).Caption = "Nouveau"
pop.Controls(1).OnAction = "newfiche"

mabarre.Visible = True

End Sub