Barre d'outils

Bonsoir,

La macro auto_open ne sert à rien. Une barre attachée à un classeur
est automatiquement créée et affichée si elle n'existe pas encore.

JB

On 4 août, 21:37, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la supprime à
partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre "Perso nnaliser"" ??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre répertoire , un
autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignardwww.guidonchalettois.fr
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3...@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4...@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon Exc el10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvres excel et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .x lb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place a vec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la lie s.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3...@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attachée , my dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon Excel 10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main pour
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste et de Mgr
Abile
jps

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1...@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je répète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3...@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimisce
toute barre personnalisée, qu'elle soit attachée ou non à un cla sseur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coin de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le messa ge de
news: 46b32507$0$25951$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6 3jfAD$z__@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186093201.104984.167...@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses ic ones et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé qu e ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 =
CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 =
CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classeur et
dans lui
uniquement ????
Et je me demande même si cet auto_open est nécessaire...
Salutations
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186090310.612997.89...@j4g2000prf.googlegroups.com...
Avec la barre manuelle:
- Il faut penser au transport du classeur sur un autre poste
-Si le classeur est déplacé dans un autre répertoire, la barre ne
pointera plus sur le .classeur

JB

On 2 août, 23:26, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Un grand merci à JP et JBS
Vos solutions sont quelque peu différentes.
Avec un mix des 2, mon problème semble résolu, il faut que j'a ffine la
solution
finale, mais j'y vois bien clair.
Bonne soirée.
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OC3FfkU1HHA.5...@TK2MSFTNGP05.phx.gbl...

re bernard
alors, les grands moyens...
dans le ThisWorkbook de ton classeur, une fois VBE ouvert, tu co lles
ceci :

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = True

End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = False

End Sub

et là, tu ne verras plus ta barre ni à gauche, ni à droite , ni au
centre...bref, tu vas avoir une barre apolitique...
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a

...

plus de détails »- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

bonjour bernard
je te suis mal et il me semble que certaines de tes manips sont
superfétatoires...
au risque de me faire contrer une nouvelle fois par le québécois de service,
je dirais :
1) tu crées ta BO (que tu appelles "guidon" à la mimine et tu l'attaches à
ton fichier que tu enregistres, bien évidemment
dans ce même fichier, tu mets dans
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Visible = False
End Sub

et dans
Sub auto_open()
On Error Resume Next
CommandBars("Guidon").Visible = True
End Sub

inutile d'annuler la BO dans Outils Personnaliser

attendons la réaction de denis michon, malgré tout
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news: 46b4d4e6$0$5105$ba4acef3@news.orange.fr...

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la
supprime à partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre
"Personnaliser"" ??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre répertoire,
un autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignard
www.guidonchalettois.fr
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3760@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))








"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4428@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvres excel
et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .xlb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place avec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la lies.





"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3760@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attachée, my
dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main pour
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste et de
Mgr
Abile
jps

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1124@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je répète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.


"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3536@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimisce
toute barre personnalisée, qu'elle soit attachée ou non à un classeur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coin de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message
de
news: 46b32507$0$25951$ba4acef3@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1186093201.104984.167150@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses icones
et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé que ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 >>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 >>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classeur et
dans lui
uniquement ????
Et je me demande même si cet auto_open est nécessaire...
Salutations
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186090310.612997.89...@j4g2000prf.googlegroups.com...
Avec la barre manuelle:
- Il faut penser au transport du classeur sur un autre poste
-Si le classeur est déplacé dans un autre répertoire, la barre ne
pointera plus sur le .classeur

JB

On 2 août, 23:26, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Un grand merci à JP et JBS
Vos solutions sont quelque peu différentes.
Avec un mix des 2, mon problème semble résolu, il faut que j'affine
la
solution
finale, mais j'y vois bien clair.
Bonne soirée.
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OC3FfkU1HHA.5...@TK2MSFTNGP05.phx.gbl...

re bernard
alors, les grands moyens...
dans le ThisWorkbook de ton classeur, une fois VBE ouvert, tu
colles
ceci :

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = True

End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = False

End Sub

et là, tu ne verras plus ta barre ni à gauche, ni à droite, ni au
centre...bref, tu vas avoir une barre apolitique...
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le
message de
news:
46b23db5$0$27384$ba4ac...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@news.orange.fr...

JPS,
Tout à fait d'accord, mais elle reste à gauche et se retrouve
donc
dans
tout
mes fichiers excel ....
Ce que je ne veux pas.
Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
Ooz9nBU1HHA.4...@TK2MSFTNGP03.phx.gbl...

bonjour bernard
dans ta feuille excel Outils/Personnaliser, onglet Barres
d'outils,
tu y
retrouves ta barre et tu cliques sur le bouton Attacher à droite
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le
message de
news:
46b22db9$0$27415$ba4ac...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@news.orange.fr...

JB,
Merci pour cette réponse ultra rapide.
Si je comprend bien je suis obligé de passer par de la
programmation.
J'avais créé ma barre d'outils, mais elle était visible dans
tout
mes
fichiers excel.
Il n'y a pas d'options hors programmation pour dire que la
barre
se
limite
à ce fichier...
Si je dois programmer je vais le faire.
Salutations
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186081820.586159.177...@q3g2000prf.googlegroups.com...
Bonsoir,

Dans un module de Toto.xls

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton >>>>> > >>>> CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

http://boisgontierjacques.free.fr/fichiers/Barre/Barre_boutons.xls

JB

On 2 août, 20:56, "Bernard Flavignard"
<be.flavi-chez-orange.fr>
wrote:

Bonjour,
Je veux créer une barre d'outils avec 1 bouton qui lance une
macro.
La macro est dans le fichier toto.xls
Jusque là tout va bien, le bouton de la barre lance bien la
macro
Mais je désire que la barre d'outils ne soit accessible QUE
depuis le
fichier
toto.xls et pas dans les autres fichiers excel.
Tout ceci doit être basique mais je ne suis pas spécialiste
des
barres
d'outils.
Merci de votre aide

--
Bernard Flavignardwww.guidonchalettois.fr-Masquer le texte des
messages
précédents -

- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

JPS,

inutile d'annuler la BO dans Outils Personnaliser
Tout à fait, je ne le fais pas, ce que je voulais dire c'est que cette action

par macro est équivalente à Outils, Personnaliser, Supprimer.
Donc selon toi ma manip est bonne...
--
Bernard Flavignard
www.guidonchalettois.fr
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OjRJpLt1HHA.1204@TK2MSFTNGP03.phx.gbl...

bonjour bernard
je te suis mal et il me semble que certaines de tes manips sont
superfétatoires...
au risque de me faire contrer une nouvelle fois par le québécois de service,
je dirais :
1) tu crées ta BO (que tu appelles "guidon" à la mimine et tu l'attaches à ton
fichier que tu enregistres, bien évidemment
dans ce même fichier, tu mets dans
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Visible = False
End Sub

et dans
Sub auto_open()
On Error Resume Next
CommandBars("Guidon").Visible = True
End Sub

inutile d'annuler la BO dans Outils Personnaliser

attendons la réaction de denis michon, malgré tout
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news: 46b4d4e6$0$5105$ba4acef3@news.orange.fr...

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la supprime
à partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre "Personnaliser""
??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre répertoire, un
autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignard
www.guidonchalettois.fr
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3760@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))








"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4428@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvres excel et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .xlb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place avec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la lies.





"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3760@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attachée, my dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon Excel10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main pour
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste et de Mgr
Abile
jps

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1124@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je répète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.


"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3536@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimisce
toute barre personnalisée, qu'elle soit attachée ou non à un classeur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coin de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news: 46b32507$0$25951$ba4acef3@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1186093201.104984.167150@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses icones et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé que ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 >>>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 >>>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classeur et
dans lui
uniquement ????
Et je me demande même si cet auto_open est nécessaire...
Salutations
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186090310.612997.89...@j4g2000prf.googlegroups.com...
Avec la barre manuelle:
- Il faut penser au transport du classeur sur un autre poste
-Si le classeur est déplacé dans un autre répertoire, la barre ne
pointera plus sur le .classeur

JB

On 2 août, 23:26, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Un grand merci à JP et JBS
Vos solutions sont quelque peu différentes.
Avec un mix des 2, mon problème semble résolu, il faut que j'affine la
solution
finale, mais j'y vois bien clair.
Bonne soirée.
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OC3FfkU1HHA.5...@TK2MSFTNGP05.phx.gbl...

re bernard
alors, les grands moyens...
dans le ThisWorkbook de ton classeur, une fois VBE ouvert, tu colles
ceci :

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = True

End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = False

End Sub

et là, tu ne verras plus ta barre ni à gauche, ni à droite, ni au
centre...bref, tu vas avoir une barre apolitique...
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le
message de
news:
46b23db5$0$27384$ba4ac...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@news.orange.fr...

JPS,
Tout à fait d'accord, mais elle reste à gauche et se retrouve donc
dans
tout
mes fichiers excel ....
Ce que je ne veux pas.
Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
Ooz9nBU1HHA.4...@TK2MSFTNGP03.phx.gbl...

bonjour bernard
dans ta feuille excel Outils/Personnaliser, onglet Barres
d'outils,
tu y
retrouves ta barre et tu cliques sur le bouton Attacher à droite
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le
message de
news:
46b22db9$0$27415$ba4ac...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@news.orange.fr...

JB,
Merci pour cette réponse ultra rapide.
Si je comprend bien je suis obligé de passer par de la
programmation.
J'avais créé ma barre d'outils, mais elle était visible dans tout
mes
fichiers excel.
Il n'y a pas d'options hors programmation pour dire que la barre
se
limite
à ce fichier...
Si je dois programmer je vais le faire.
Salutations
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186081820.586159.177...@q3g2000prf.googlegroups.com...
Bonsoir,

Dans un module de Toto.xls

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton >>>>>> > >>>> CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

http://boisgontierjacques.free.fr/fichiers/Barre/Barre_boutons.xls

JB

On 2 août, 20:56, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonjour,
Je veux créer une barre d'outils avec 1 bouton qui lance une
macro.
La macro est dans le fichier toto.xls
Jusque là tout va bien, le bouton de la barre lance bien la
macro
Mais je désire que la barre d'outils ne soit accessible QUE
depuis le
fichier
toto.xls et pas dans les autres fichiers excel.
Tout ceci doit être basique mais je ne suis pas spécialiste des
barres
d'outils.
Merci de votre aide

--
Bernard Flavignardwww.guidonchalettois.fr-Masquer le texte des
messages
précédents -

- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

Ce fichier comporte une BO attachée et seulement une macro
auto_close()
-La BO s'affiche à l'ouverture
-Elle est suppimée à la fermeture

http://cjoint.com/?iewsqLKe8V

JB
On 4 août, 22:16, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JPS,>inutile d'annuler la BO dans Outils Personnaliser

Tout à fait, je ne le fais pas, ce que je voulais dire c'est que cette action
par macro est équivalente à Outils, Personnaliser, Supprimer.
Donc selon toi ma manip est bonne...
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OjRJpLt1HHA.1...@TK2MSFTNGP03.phx.gbl...

bonjour bernard
je te suis mal et il me semble que certaines de tes manips sont
superfétatoires...
au risque de me faire contrer une nouvelle fois par le québécois de service,
je dirais :
1) tu crées ta BO (que tu appelles "guidon" à la mimine et tu l'att aches à ton
fichier que tu enregistres, bien évidemment
dans ce même fichier, tu mets dans
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Visible = False
End Sub

et dans
Sub auto_open()
On Error Resume Next
CommandBars("Guidon").Visible = True
End Sub

inutile d'annuler la BO dans Outils Personnaliser

attendons la réaction de denis michon, malgré tout
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le messag e de
news: 46b4d4e6$0$5105$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63j fAD$z__@news.orange.fr...

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la supprime
à partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre "Pe rsonnaliser""
??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre réperto ire, un
autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignard
www.guidonchalettois.fr
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3...@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4...@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvre s excel et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .xlb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place avec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la l ies.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3...@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attach ée, my dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon Exc el10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main p our
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste e t de Mgr
Abile
jps

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1...@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je rép ète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3...@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimis ce
toute barre personnalisée, qu'elle soit attachée ou non à un c lasseur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coi n de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le mes sage de
news: 46b32507$0$25951$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i? a63jfAD$z__@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186093201.104984.167...@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses icones et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé que ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 =
CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 =
CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classe ur et
dans lui
uniquement ????
Et je me

...

plus de détails »- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

JB,
Exact !
Donc en fait la réponse à ma question est simple
Elle se résume à
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Sachant que la barre "Guidon", créée manuellement existe et est attachée à mon
fichier toto.xls, elle ne sera présente et visible que pour ce fichier que je
peux déplacer à loisir sans avoir de message d'erreur.
Salutations
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1186257329.823033.248040@w3g2000hsg.googlegroups.com...
Bonsoir,

La macro auto_open ne sert à rien. Une barre attachée à un classeur
est automatiquement créée et affichée si elle n'existe pas encore.

JB

On 4 août, 21:37, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la supprime à
partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre "Personnaliser""
??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre répertoire, un
autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignardwww.guidonchalettois.fr
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3...@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4...@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvres excel et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .xlb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place avec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la lies.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3...@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attachée, my dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon Excel10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main pour
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste et de Mgr
Abile
jps

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1...@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je répète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3...@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimisce
toute barre personnalisée, qu'elle soit attachée ou non à un classeur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coin de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news:
46b32507$0$25951$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186093201.104984.167...@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses icones et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé que ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 > >>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 > >>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classeur et
dans lui
uniquement ????
Et je me demande même si cet auto_open est nécessaire...
Salutations
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186090310.612997.89...@j4g2000prf.googlegroups.com...
Avec la barre manuelle:
- Il faut penser au transport du classeur sur un autre poste
-Si le classeur est déplacé dans un autre répertoire, la barre ne
pointera plus sur le .classeur

JB

On 2 août, 23:26, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Un grand merci à JP et JBS
Vos solutions sont quelque peu différentes.
Avec un mix des 2, mon problème semble résolu, il faut que j'affine la
solution
finale, mais j'y vois bien clair.
Bonne soirée.
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OC3FfkU1HHA.5...@TK2MSFTNGP05.phx.gbl...

re bernard
alors, les grands moyens...
dans le ThisWorkbook de ton classeur, une fois VBE ouvert, tu colles
ceci :

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = True

End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = False

End Sub

et là, tu ne verras plus ta barre ni à gauche, ni à droite, ni au
centre...bref, tu vas avoir une barre apolitique...
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a

...

plus de détails »- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

PARFAIT !
Un grand merci aux contributeurs.
Bon dimanche.
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1186258862.462685.8110@o61g2000hsh.googlegroups.com...
Ce fichier comporte une BO attachée et seulement une macro
auto_close()
-La BO s'affiche à l'ouverture
-Elle est suppimée à la fermeture

http://cjoint.com/?iewsqLKe8V

JB
On 4 août, 22:16, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JPS,>inutile d'annuler la BO dans Outils Personnaliser

Tout à fait, je ne le fais pas, ce que je voulais dire c'est que cette action
par macro est équivalente à Outils, Personnaliser, Supprimer.
Donc selon toi ma manip est bonne...
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OjRJpLt1HHA.1...@TK2MSFTNGP03.phx.gbl...

bonjour bernard
je te suis mal et il me semble que certaines de tes manips sont
superfétatoires...
au risque de me faire contrer une nouvelle fois par le québécois de service,
je dirais :
1) tu crées ta BO (que tu appelles "guidon" à la mimine et tu l'attaches à
ton
fichier que tu enregistres, bien évidemment
dans ce même fichier, tu mets dans
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Visible = False
End Sub

et dans
Sub auto_open()
On Error Resume Next
CommandBars("Guidon").Visible = True
End Sub

inutile d'annuler la BO dans Outils Personnaliser

attendons la réaction de denis michon, malgré tout
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news:
46b4d4e6$0$5105$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@news.orange.fr...

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la
supprime
à partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre
"Personnaliser""
??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre répertoire, un
autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignard
www.guidonchalettois.fr
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3...@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4...@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvres excel
et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .xlb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place avec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la lies.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3...@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attachée, my
dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main pour
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste et de
Mgr
Abile
jps

"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1...@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je répète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.

"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3...@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimisce
toute barre personnalisée, qu'elle soit attachée ou non à un classeur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coin de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news:
46b32507$0$25951$ba4ac__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186093201.104984.167...@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses icones et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé que ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 > >>>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 > >>>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classeur et
dans lui
uniquement ????
Et je me

...

plus de détails »- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Comme tu m'as appelé, je t'offre un petit supplément ;-))

Lorsque tu crées et attaches une BO à un fichier, l'exécution
de la macro suivante avait et a pour but 2 choses. (bien que
non essentielle)

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

A = msoBarNoChangeVisible
Cette constante fait disparaître le X de fermeture de la BO
Cela empêche l'usager inexpérimenté de fermer la BO
par inadvertance !
B = msoBarNoCustomize
Bien que l'on puisse personnalisé (ajouter des boutons de
commmande à une BO attachée au moment où elle est
affichée, Cette dernière ne peut conserver cette personnalisation.
À à la réouverture du fichier, elle aura repris son apparence au moment
de sa création, c'est à dire avant que la liaison au fichier soit
établie. Encore une fois, l'usager débutant peut avoir des difficultés
à s'y retrouver.

Comme tu sais que la BO sera toujours présente à l'ouverture du fichier
qu'importe son état et son statut à la fermeture du fichier et qu'elle est "indestructible"...
on peut très bien utilisé les événements de la feuille ou du ThisWorkbook
pour gérer sa présence. Exemple pour que la BO soit visible seulement
lorsque la classeur concerné est ouvert et actif: Mettre ceci dans le ThisWorkbook :
'---------------------------------
Private Sub Workbook_Activate()
With Application.CommandBars("DDD")
.Enabled = True
.Visible = True
End With
End Sub
'---------------------------------
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application.CommandBars("DDD")
.Visible = False
.Enabled = False
End With
End Sub
'---------------------------------



"jps" <jps@wannadoodoo.fr> a écrit dans le message de news: OjRJpLt1HHA.1204@TK2MSFTNGP03.phx.gbl...
bonjour bernard
je te suis mal et il me semble que certaines de tes manips sont
superfétatoires...
au risque de me faire contrer une nouvelle fois par le québécois de service,
je dirais :
1) tu crées ta BO (que tu appelles "guidon" à la mimine et tu l'attaches à
ton fichier que tu enregistres, bien évidemment
dans ce même fichier, tu mets dans
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Visible = False
End Sub

et dans
Sub auto_open()
On Error Resume Next
CommandBars("Guidon").Visible = True
End Sub

inutile d'annuler la BO dans Outils Personnaliser

attendons la réaction de denis michon, malgré tout
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message de
news: 46b4d4e6$0$5105$ba4acef3@news.orange.fr...

Bonsoir,
Si j'ai bien compris.
Je crée ma BO à la main, je l'attache à mon fichier toto.xls, je la
supprime à partir de la fenêtre "Personnaliser" et j'enregistre toto.xls
Si dans mon fichier je met cette macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub
Elle fait la même chose "que supprime à partir de la fenêtre
"Personnaliser"" ??
Donc la barre ne sera pas présente dans d'autres fichiers excel
Dans mon fichier toto.xls il suffit d'avoir une macro de ce type
Sub auto_open()
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True
End sub
Pour afficher la barre d'outils à l'ouverture du fichier
Avec ces 2 macros, le transport de mon fichier vers un autre répertoire,
un autre ordi ne pose pas de problème.
J'ai testé et ça semble fonctionner.
Merci pour ton aide.
--
Bernard Flavignard
www.guidonchalettois.fr
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uGuJUDh1HHA.3760@TK2MSFTNGP03.phx.gbl...

j'ajouterais ceci pour ton information.

Suppose que tu as une BO liée à ton fichier
Copie et exécute de bout de code une fois
en prenant soin d'adapter le nom "DDD" pour
celle de ta BO. et sauvegarde le fichier.

'----------------------------------
Sub ToujoursVisible_Protected()
With Application.CommandBars("DDD")
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'----------------------------------

Maintenant, à partir de la fenêtre "Personnaliser" supprime ta BO
tu enregistres ton fichier. Tu fermes ton fichier et devine ce qui se
passe à l'ouverture du fichier, ta BO est toujours là !

Ta BO est devenue indestructible.
Essaie ce code, puis enregistre le fichier après exécution et
si tu ouvres ton fichier, et oui, elle est toujours là.
'--------------------------------------
Sub SupprimeMaBo()
With Application.CommandBars("DDD")
.Delete
End With
End Sub
'--------------------------------------

Pour t'en débarrasser, tu devras d'abord enlever la liaison
entre ta BO et ton classeur via la fenêtre "personnaliser" et
la supprimer par la suite.

Tu as gagné au loto... t'es chanceux d'avoir tout ça gratuitement
ne le dis pas aux autres ! ok ?

;-)))








"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uIfkGWe1HHA.4428@TK2MSFTNGP03.phx.gbl...
| je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb

Tu fermes Excel, tu déplaces ou renommes le fichier et tu réouvres excel
et
le fichier ayant une BO attachée ! La vois-tu ?

Après ton test, tu fermes Excel et tu supprimes le nouveau fichier .xlb
qu'Excel a crée et tu replaces ton ancien fichier .xlb à sa place avec
son nom originel.

| je veux bien admettre que j'ai dit une c....ie

Surtout pas...., il faut tester avant !

| où est-elle stockée alors cette BO personnalisée et attachée

C'est une information qui devient parti intégrante du fichier auquel
elle est liée au moment où via la boîte "personnaliser" tu la lies.





"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23cTq9Ke1HHA.3760@TK2MSFTNGP03.phx.gbl...
héhé! mon gaillard
et où est-elle stockée alors cette BO personnalisée et attachée, my
dearest
Denis?
je ne vais bien sûr pas, pour ton plaisir, jeter aux orties mon
Excel10.xlb
de 723 ko avec ses 83 BO aux icônes dessinées de ma petite main pour
vérifier la chose....
bon, maintenant si tu le dis, je veux bien admettre que j'ai dit une
c....ie, une de plus ajouteraient en choeur ces félons de Modeste et de
Mgr
Abile
jps

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eT$kC5d1HHA.1124@TK2MSFTNGP06.phx.gbl...

| toute barre personnalisée, qu'elle soit attachée ou non à un
| classeur, prend place dans le fichier Excel10.xlb

Es-tu sûr de ça ? Je ne veux pas faire rire de moi si je répète
cette information ...;-)))

Moi, je pensais qu'une barre d'outils attachée était liée au
classeur et que l'on pouvait faire suivre cette barre
d'outils liée au classeur d'un ordi à l'autre sans plus.

En fait, tu peux supprimer ce fichier Excel10.xlb et
si tu ouvres ton fichier, la barre d'outils attachée
sera toujours là. Cependant, les autres barres d'outils
personnalisée auront disparues !!!

Sous Excel 2003 et Windows Xp pro, ce fichier "Excel10.xlb" est là :

C:Documents and SettingsDenisApplication DataMicrosoftExcel

Évidemment "Denis" sera le nom de ton profil usager.


"jps" <vaderetrosp@mas> a écrit dans le message de news:
em499td1HHA.3536@TK2MSFTNGP06.phx.gbl...
bonjour bernard
JB est déjà parti en weekend, voire en vacances, donc je mimimisce
toute barre personnalisée, qu'elle soit attachée ou non à un classeur,
prend
place dans le fichier Excel10.xlb
je te conseille vivement de sauvegarder ce fichier dans un petit coin de
ton
DD de sorte que si d'aventure, tu devais perdre ta ou tes BO, tu les
retrouverais en remettant à sa place ton fichier sauvegardé
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le message
de
news: 46b32507$0$25951$ba4acef3@news.orange.fr...

JB,
Tu me dis :

-Attachée au poste
C'est à dire, elle est enregistrée dans ?? Excel10.xlb ???

Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1186093201.104984.167150@x35g2000prf.googlegroups.com...
2 scénarios:

A/ Création manuelle :

-Attachée au poste
-On affiche/cache la BO éventuellement (mais elle est tj sur le
poste)

Ce genre de barre peut être intéressante pour activer des macros
utilitaires dispos pour tous les classeurs.

Danger possible: si on déplace le classeur contenant les macros, les
boutons ne pointent plus vers le bon répertoirre.

B/ Création par macro:

-On crée la barre par programme à l'ouverture.
-On supprime la barre par programme à la fermeture.

C'est le scénario que l'on utilise lorsque la barre ne doit être
utiisée que par un classeur.

JB

JBOn 3 août, 00:05, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

JB,
Voici ce que j'ai fait :
J'ai créé ma barre "Guidon" (2 boutons) manuellement avec ses icones
et
ses
macros.
Je l'ai Attachée au classeur toto.xls
J'enregistre tout
En sortant de mon classeur je joue ta macro
Sub auto_close()
On Error Resume Next
CommandBars("Guidon").Delete
End Sub

Donc ma barre d'outils est supprimée, mais supprimée de quoi ?
De mon classeur, des menus excel ????

J'ouvre un classeur tonton.xls, il n'y a pas ma barre d'outils
J'ouvre toto.xls et j'active les macros, et là je n'ai laissé que ceci
dans ta
macro:

Sub auto_open()
Dim barre As CommandBar
'Dim bouton1 As CommandBarControl
'Dim bouton2 As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="Guidon")
barre.Visible = True

'Set bouton1 >>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton1.Style = msoButtonCaption
'bouton1.OnAction = "Effacer_couleur"
'bouton1.Caption = "Effacer_couleur"
'bouton1.TooltipText = "Effacer couleur"
'Set bouton2 >>>>> CommandBars("Guidon").Controls.Add(Type:=msoControlButton)
'bouton2.Style = msoButtonCaption
'bouton2.OnAction = "Colorier"
'bouton2.Caption = "Colorier"
'bouton2.TooltipText = "Colorier"
End Sub

Ma barre apparaît, les icones des boutons sont ceux que j'ai mis au
moment de la
création manuelle et les macros se jouent sans problème.
Je ne comprend pas tout, cette ligne
Set barre = CommandBars.Add(Name:="Guidon")
retrouve bien ma barre, car elle est enregistrée dans mon classeur et
dans lui
uniquement ????
Et je me demande même si cet auto_open est nécessaire...
Salutations
--
Bernard Flavignardwww.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186090310.612997.89...@j4g2000prf.googlegroups.com...
Avec la barre manuelle:
- Il faut penser au transport du classeur sur un autre poste
-Si le classeur est déplacé dans un autre répertoire, la barre ne
pointera plus sur le .classeur

JB

On 2 août, 23:26, "Bernard Flavignard" <be.flavi-chez-orange.fr>
wrote:

Un grand merci à JP et JBS
Vos solutions sont quelque peu différentes.
Avec un mix des 2, mon problème semble résolu, il faut que j'affine
la
solution
finale, mais j'y vois bien clair.
Bonne soirée.
--
Bernard Flavignardwww.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
OC3FfkU1HHA.5...@TK2MSFTNGP05.phx.gbl...

re bernard
alors, les grands moyens...
dans le ThisWorkbook de ton classeur, une fois VBE ouvert, tu
colles
ceci :

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = True

End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("LeNomDeTaBarre").Visible = False

End Sub

et là, tu ne verras plus ta barre ni à gauche, ni à droite, ni au
centre...bref, tu vas avoir une barre apolitique...
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le
message de
news:
46b23db5$0$27384$ba4ac...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@news.orange.fr...

JPS,
Tout à fait d'accord, mais elle reste à gauche et se retrouve
donc
dans
tout
mes fichiers excel ....
Ce que je ne veux pas.
Merci
--
Bernard Flavignard
www.guidonchalettois.fr
"jps" <j...@wannadoodoo.fr> a écrit dans le message de news:
Ooz9nBU1HHA.4...@TK2MSFTNGP03.phx.gbl...

bonjour bernard
dans ta feuille excel Outils/Personnaliser, onglet Barres
d'outils,
tu y
retrouves ta barre et tu cliques sur le bouton Attacher à droite
jps

"Bernard Flavignard" <be.flavi-chez-orange.fr> a écrit dans le
message de
news:
46b22db9$0$27415$ba4ac...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@news.orange.fr...

JB,
Merci pour cette réponse ultra rapide.
Si je comprend bien je suis obligé de passer par de la
programmation.
J'avais créé ma barre d'outils, mais elle était visible dans
tout
mes
fichiers excel.
Il n'y a pas d'options hors programmation pour dire que la
barre
se
limite
à ce fichier...
Si je dois programmer je vais le faire.
Salutations
--
Bernard Flavignard
www.guidonchalettois.fr
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1186081820.586159.177...@q3g2000prf.googlegroups.com...
Bonsoir,

Dans un module de Toto.xls

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton >>>>> > >>>> CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

http://boisgontierjacques.free.fr/fichiers/Barre/Barre_boutons.xls

JB

On 2 août, 20:56, "Bernard Flavignard"
<be.flavi-chez-orange.fr>
wrote:

Bonjour,
Je veux créer une barre d'outils avec 1 bouton qui lance une
macro.
La macro est dans le fichier toto.xls
Jusque là tout va bien, le bouton de la barre lance bien la
macro
Mais je désire que la barre d'outils ne soit accessible QUE
depuis le
fichier
toto.xls et pas dans les autres fichiers excel.
Tout ceci doit être basique mais je ne suis pas spécialiste
des
barres
d'outils.
Merci de votre aide

--
Bernard Flavignardwww.guidonchalettois.fr-Masquer le texte des
messages
précédents -

- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -