OVH Cloud OVH Cloud

supprimer barre outil...

2 réponses
Avatar
andre.charrier
Bonjour,

J'ai sur le disque d: un dossier Excel_Dép contenant le fichier DépAnnée,
soit d:\Excel_Dép\DépAnnée.xls
J'utilise le VBA d'Excel 2000.
J'ai créé une barre outils appelée Standard1

Je voudrais qu' au lancement de DépAnnée:
la barre d'outils standard ne soit pas affichée
la barre outils standard1 soit affichée
qu'excel 2000 soit lancé et que DépAnnée soit ouvert.

A l'ouverture j'ai écrit:
Application.Toolbars("Standard").Visible = False est
toujours affichée (ce que je ne veux pas )
Application.CommandBars("Standard_1").Visible = True est affichée
Pour Excel 2000 et DépAnnée je ne sais pas comment faire

A la fermeture j'ai écrit:
Application.Toolbars("Standard").Visible = True étant
déjà affichée le reste
Application.CommandBars("Standard_1").Visible = False est fermée

Les experts en VBA sauront bien m' aider et je les remercie.

2 réponses

Avatar
Philippe.R
Bonjour André,
As tu essayé avec cette syntaxe à l'ouverture :

Application.CommandBars("Standard").Visible = False

puis

Application.CommandBars("Standard").Visible = True

à la fermeture ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"andre.charrier" a écrit dans le message de
news:ci0ihl$b2s$
Bonjour,

J'ai sur le disque d: un dossier Excel_Dép contenant le fichier DépAnnée,
soit d:Excel_DépDépAnnée.xls
J'utilise le VBA d'Excel 2000.
J'ai créé une barre outils appelée Standard1

Je voudrais qu' au lancement de DépAnnée:
la barre d'outils standard ne soit pas affichée
la barre outils standard1 soit affichée
qu'excel 2000 soit lancé et que DépAnnée soit ouvert.

A l'ouverture j'ai écrit:
Application.Toolbars("Standard").Visible = False est
toujours affichée (ce que je ne veux pas )
Application.CommandBars("Standard_1").Visible = True est affichée
Pour Excel 2000 et DépAnnée je ne sais pas comment faire

A la fermeture j'ai écrit:
Application.Toolbars("Standard").Visible = True étant
déjà affichée le reste
Application.CommandBars("Standard_1").Visible = False est fermée

Les experts en VBA sauront bien m' aider et je les remercie.




Avatar
sabatier
bonjour andré (vous remarquerez que je ne salue pas le vieillard)
je m'immimisce : peut-on savoir dans quel but inavoué (auquel cas on ne
saura rien) tu veux faire disparaître la BO standard? si c'est pour inhiber
certaines foncionnalités, ne perds pas de vue qu'il en reste encore pas mal
(et les mêmes...) dans la BO Worsheet Menu Bar....
mais je dis ça comme ça....histoire de faire un HS car il en faut bien de
temps en temps
jps

"Philippe.R" a écrit dans le message de
news:
Bonjour André,
As tu essayé avec cette syntaxe à l'ouverture :

Application.CommandBars("Standard").Visible = False

puis

Application.CommandBars("Standard").Visible = True

à la fermeture ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"andre.charrier" a écrit dans le message de
news:ci0ihl$b2s$
Bonjour,

J'ai sur le disque d: un dossier Excel_Dép contenant le fichier
DépAnnée,


soit d:Excel_DépDépAnnée.xls
J'utilise le VBA d'Excel 2000.
J'ai créé une barre outils appelée Standard1

Je voudrais qu' au lancement de DépAnnée:
la barre d'outils standard ne soit pas affichée
la barre outils standard1 soit affichée
qu'excel 2000 soit lancé et que DépAnnée soit ouvert.

A l'ouverture j'ai écrit:
Application.Toolbars("Standard").Visible = False est
toujours affichée (ce que je ne veux pas )
Application.CommandBars("Standard_1").Visible = True est
affichée


Pour Excel 2000 et DépAnnée je ne sais pas comment faire

A la fermeture j'ai écrit:
Application.Toolbars("Standard").Visible = True
étant


déjà affichée le reste
Application.CommandBars("Standard_1").Visible = False est fermée

Les experts en VBA sauront bien m' aider et je les remercie.