attacher une barre doutil a un classeur precis

[lorenzo]

slt au forum


ma question est tres simple et tres concise ,comment attacher une barre d'outil a un classeur precis et rien qu'a celui là...

merci d'avance pour une reponse!!!!!

 

[JeanMarie]

Bonjour Lorenzo

Je ne sais pas si je vais entièrement répondre à ta question.

Dans la boîte de personnalisation des barres d'outils, tu as un bouton qui se nomme 'Attacher...', en cliquant dessus tu vas obtenir une autre boîte de dialogue en deux parties, la zone de gauche donne toutes les barres personnelles qui sont ouvertes, en cliquant sur le bouton 'copier' tu fais passer la barre sélectionnée dans le fichier actif.

En validant cette boîte, Excel va mettre la définition de la barre dans le fichier, le code de chaque bouton n'est pas copier dans ton fichier, ce n'est qu'un lien. Cette barre ne sera pas affichée automatiquement, à toi de le faire dans le Workbook_Open de ton classeur.

@+Jean-Marie

 

[lorenzo]

c'est quoi le Workbook_Open du classeur


merci de ton aide...

 

[lorenzo]

j'ai trouvé le Workbook_Open....
mais quel est le code pour faire ouvrir la barre d'outil par la suite???


merci de ton aide

 

[JeanMarie]

Re...

Workbook_Open est un événement du ThisWorkBook (classeur) qui est lancé à chaque ouverture du fichier.

Sub Workbook_Open()
    Application.CommandBars('Lorenzo').Visible = True
End Sub

Ce code affichera automatiquement à chaque ouverture la barre d'outils qui se nomme Lorenzo.

Si l'utilisateur n'autorise pas les macros, celle-ci n'est pas lancée.

@+Jean-Marie

 

[lorenzo]

je te remercie


mais quand je reouvre le fichier il me dit que l'argument est incorrect....
sait tu pourquoi?????

merci de ton aide

 

[lorenzo]

j'ai trouvé

c'est la presence d'accent dans le nom de la barre doutil qui pose probleme ...le code vba ne doit pas les reconnaitre


merci de ton aide...a plus

 

[lorenzo]

j'espere que tu es toujours la


il y a un autre probleme
quand j'ouvre mon fichier la barre d'outil s'affiche parfaitement mais il ne se ferme pas apres elle reste visiblepour d'autre classeur ce qui est absurde ....

comment faire pour la fermer en meme temps que son classeur


merci d'avance

 

[JeanMarie]

Re...

Essaye ceci, gestion d'un nouvel événement, lancé à la fermeture du classeur.

Sub Workbook_BeforeClose()
    Application.CommandBars('Lorenzo').Visible = False
End Sub

@+Jean-Marie

 

[lorenzo]

REE


il me donne une erreur lors de la compilation
????ta une idée???


aplus

 

[MichelXld]

bonjour Lorenzo , bonjour cher Jean-Marie

j'espere que cet exemple pourra t'aider

Lien supprimé

Lien supprimé


bonne soiree
MichelXld