Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Barre d'outil

Barre d'outil

18 réponses
Avatar
Ghislain
Bonjour,

Je reporte sur un nouveau PC mes anciennes applications.
En Excel, je ne retrouve pas une barre d'outil qui =E9tait=20
sur l'ancien PC avec toutes les macros que j'y avais=20
laiss=E9es.

Je la retrouve dans un =E9tat ant=E9rieur.

Comment retrouver une barre d'outil et aussi la r=E9cup=E9rer?=20
OK pour une solution via VBA.

Merci

Ghislain
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Ghislain
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché".

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

En tout cas je garde ta macro et je vais m'y pencher tôt
ou tard.

Merci 1.000 fois :-)

-----Message d'origine-----
Et dans C:/WinNT ?

Les barres d'outils ne sont pas stockees dans un fichier.
Et elles ne

suivent pas les fichiers. Si tu changes de PC, tu n'auras
pas ta barre. Je

ne sais pas ou elles sont a vrai dire.
C'est pour ca qu'en la creant par VBA, tu es sur de tout
le temps l'avoir.

Tu lances la macro et hop elle est la !
Il suffit de stocker ma macro dans un simple .xls et
c'est bon.


"Ghislain" escreveu
na mensagem

news:fb4701c43e71$af67d2a0$
Encore merci, mais je passe ma journée à continuer à
chercher: RIEN

D'abord aucun .xlb sur mon ancien ni sur mon nouveau PC.

Peut être y a t il un autre nom d'extension sur Office
2003?

J'ai aussi essayé du côté de XLSTART avec les .xlt, mais
RIEN

Quand j'ouvre le même fichier .xls placé sur une clef USB,
sur le nouveau PC il ouvre ma vieille barre d'outil (1),
qui hélas porte le même nom que la nouvelle, tandis que
sur l'ancien PC il ouvre la barre actualisée.

Donc, mon nouveau PC est allé trouver la vieille barre et
ne veut plus l'écraser.

Maintenant j'essaie autre chose: sur mon acien PC, j'ai
renommé la fameuse barre d'outil (en 3) et je sauve.

Mais sur mon nouveau PC il ne trouve pas de "3" et ne
l'ouvre donc pas. Donc les barres d'outils ne se
transposent elles pas avec le fichier?

Mais où sont logées ces fameuses barres?????

Ghislain

-----Message d'origine-----
C'est vrai. Dans mon cas, je n'ai pas beaucoup de macros.
Sinon, tu stockes dans trois tableaux les ID, le chemin
de la macro, la

description.
Et tu fais un
For compteur = 1 to 27
Set Btn & compteur = .Controls.Add
(msoControlButton)


With Btn1
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
End With
Next compteur

A toi de tester, je ne sais pas si ca marche.
Mais si ce n'est pas ce que tu cherches, pas grave.
Cherches plutot ce .xlb

:)


"Ghislain" escreveu
na mensagem

news:f99801c43e61$da205b80$
Ouai,

Merci Tiktok. Mais c'est pas extra: en effet, j'ai autant
de boutons/macro qu'il y a de lettres dans l'alphabet.
Alors si je dois recopier 27 fois le paragraphe du VBA
proposé en y changeant à chaque fois la lettre
apparaisssant dans l'icône, autant recoller directement
toute ma barre.

Je cherche plutôt où localiser cette barre ancienne. Cela
a déjà marché une fois: à force de cliquer/effacer j'ai
soudain eu la bonne barre. Mais impossible de
reconstituer


comment.

Merci pour les méninges

Ghislain
-----Message d'origine-----
Salut Ghislain, tu peux faire une procedure VBA qui te
recreera ta barre

d'outils.
Les macros affectees aux boutons sont t'elles dans un
meme fichier ? Dans un

meme dossier ?
Je me suis aide de la page
http://dj.joss.free.fr/outil.htm et ca marche

super bien !
Les ID des boutons vont jusqu'a 600 (Excel 97 et
superieur).


Dim MaBar, Btn1, Btn2, Btn3, Btn4
' Supprime la barre si elle existe déjà (on est sur
qu'il n'y a pas

d'erreur)
On Error Resume Next
Application.CommandBars("TaSuperBarre").Delete
On Error GoTo 0
On Error Resume Next
' Creation de la barre
Set MaBar = Application.CommandBars.Add
("TaSuperBarre")


' Creation des boutons
With MaBar
' Creation du premier bouton (icone, legende) et
affectation a une

macro
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.FaceId = 536
.OnAction = "fichier.xls!Module1.Macro"
.Caption = "Legende1"
End With
Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.FaceId = 19
.OnAction = "fichier.xls!Module2.Procedure"
.Caption = "Legende2"
End With
Set Btn3 = .Controls.Add(msoControlButton)
With Btn3
.FaceId = 159
.OnAction = "fichier34.xls!Module1.Macro22"
.Caption = "Legende3"
End With
Set Btn4 = .Controls.Add(msoControlButton)
With Btn4
.FaceId = 173
.OnAction = "test44.xls!MonModule.Proc"
.Caption = "Legende4"
End With

Perso, ma barre est dans le meme fichier que les macros,
donc le

"fichier.xls!" est inutile.
Pour toi, il faut voir.


"Ghislain"
escreveu



na mensagem
news:f94a01c43e5a$dcc84e30$
Bonjour,

Je reporte sur un nouveau PC mes anciennes applications.
En Excel, je ne retrouve pas une barre d'outil qui était
sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain



.




.




.





Avatar
Ghislain
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché" ... fallait qu'y
pense ;-(

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

Extra

Ghislain
-----Message d'origine-----
Bonjour Ghislain,
Fais une recherche approfondie, en incluant les sous
dossiers, tu as obligatoirement un fichier "*.xlb"

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Ghislain" a écrit
dans le message de

news:fa7301c43e5f$0fdea040$
Hélas pas le moindre .XLB nulle part. Même pas pour mes
actuelles barres d'outil?

réponse?

Merci

Ghislain
-----Message d'origine-----
Bonjour,

Les barres d'outils peuvent être stockées dans le(s)
fichier(s) *.xlb


@+
FxM



Bonjour,

Je reporte sur un nouveau PC mes anciennes
applications.



En Excel, je ne retrouve pas une barre d'outil qui
était


sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain

.





.





Avatar
tictok
C'est parce que tu es sur un Windows NT, 2K, ou XP.
Sous 98, Me, tu l'aurais eu dans Program Files je pense.
Bien content que tu l'aies trouvé :).

Dans ma macro :
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
bouton, chemin, legende sont des tableaux ("Dim bouton as Variant" pour etre


sur)
Postes un message si ca marche ! Je n'ai pas encore essaye avec les tableaux
mais si oui c'est super ;).


"Ghislain" escreveu na mensagem
news:fade01c43e7b$540575c0$
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché".

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

En tout cas je garde ta macro et je vais m'y pencher tôt
ou tard.

Merci 1.000 fois :-)

-----Message d'origine-----
Et dans C:/WinNT ?

Les barres d'outils ne sont pas stockees dans un fichier.
Et elles ne

suivent pas les fichiers. Si tu changes de PC, tu n'auras
pas ta barre. Je

ne sais pas ou elles sont a vrai dire.
C'est pour ca qu'en la creant par VBA, tu es sur de tout
le temps l'avoir.

Tu lances la macro et hop elle est la !
Il suffit de stocker ma macro dans un simple .xls et
c'est bon.


"Ghislain" escreveu
na mensagem

news:fb4701c43e71$af67d2a0$
Encore merci, mais je passe ma journée à continuer à
chercher: RIEN

D'abord aucun .xlb sur mon ancien ni sur mon nouveau PC.

Peut être y a t il un autre nom d'extension sur Office
2003?

J'ai aussi essayé du côté de XLSTART avec les .xlt, mais
RIEN

Quand j'ouvre le même fichier .xls placé sur une clef USB,
sur le nouveau PC il ouvre ma vieille barre d'outil (1),
qui hélas porte le même nom que la nouvelle, tandis que
sur l'ancien PC il ouvre la barre actualisée.

Donc, mon nouveau PC est allé trouver la vieille barre et
ne veut plus l'écraser.

Maintenant j'essaie autre chose: sur mon acien PC, j'ai
renommé la fameuse barre d'outil (en 3) et je sauve.

Mais sur mon nouveau PC il ne trouve pas de "3" et ne
l'ouvre donc pas. Donc les barres d'outils ne se
transposent elles pas avec le fichier?

Mais où sont logées ces fameuses barres?????

Ghislain

-----Message d'origine-----
C'est vrai. Dans mon cas, je n'ai pas beaucoup de macros.
Sinon, tu stockes dans trois tableaux les ID, le chemin
de la macro, la

description.
Et tu fais un
For compteur = 1 to 27
Set Btn & compteur = .Controls.Add
(msoControlButton)


With Btn1
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
End With
Next compteur

A toi de tester, je ne sais pas si ca marche.
Mais si ce n'est pas ce que tu cherches, pas grave.
Cherches plutot ce .xlb

:)


"Ghislain" escreveu
na mensagem

news:f99801c43e61$da205b80$
Ouai,

Merci Tiktok. Mais c'est pas extra: en effet, j'ai autant
de boutons/macro qu'il y a de lettres dans l'alphabet.
Alors si je dois recopier 27 fois le paragraphe du VBA
proposé en y changeant à chaque fois la lettre
apparaisssant dans l'icône, autant recoller directement
toute ma barre.

Je cherche plutôt où localiser cette barre ancienne. Cela
a déjà marché une fois: à force de cliquer/effacer j'ai
soudain eu la bonne barre. Mais impossible de
reconstituer


comment.

Merci pour les méninges

Ghislain
-----Message d'origine-----
Salut Ghislain, tu peux faire une procedure VBA qui te
recreera ta barre

d'outils.
Les macros affectees aux boutons sont t'elles dans un
meme fichier ? Dans un

meme dossier ?
Je me suis aide de la page
http://dj.joss.free.fr/outil.htm et ca marche

super bien !
Les ID des boutons vont jusqu'a 600 (Excel 97 et
superieur).


Dim MaBar, Btn1, Btn2, Btn3, Btn4
' Supprime la barre si elle existe déjà (on est sur
qu'il n'y a pas

d'erreur)
On Error Resume Next
Application.CommandBars("TaSuperBarre").Delete
On Error GoTo 0
On Error Resume Next
' Creation de la barre
Set MaBar = Application.CommandBars.Add
("TaSuperBarre")


' Creation des boutons
With MaBar
' Creation du premier bouton (icone, legende) et
affectation a une

macro
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.FaceId = 536
.OnAction = "fichier.xls!Module1.Macro"
.Caption = "Legende1"
End With
Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.FaceId = 19
.OnAction = "fichier.xls!Module2.Procedure"
.Caption = "Legende2"
End With
Set Btn3 = .Controls.Add(msoControlButton)
With Btn3
.FaceId = 159
.OnAction = "fichier34.xls!Module1.Macro22"
.Caption = "Legende3"
End With
Set Btn4 = .Controls.Add(msoControlButton)
With Btn4
.FaceId = 173
.OnAction = "test44.xls!MonModule.Proc"
.Caption = "Legende4"
End With

Perso, ma barre est dans le meme fichier que les macros,
donc le

"fichier.xls!" est inutile.
Pour toi, il faut voir.


"Ghislain"
escreveu



na mensagem
news:f94a01c43e5a$dcc84e30$
Bonjour,

Je reporte sur un nouveau PC mes anciennes applications.
En Excel, je ne retrouve pas une barre d'outil qui était
sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain



.




.




.





Avatar
Philippe.R
Merci François-Xavier d'abonder dans mon sens !
Grâce à ce prompt renfort, cet impie de Ghislain aura fini par abjurer ses vieilles croyances.
;o)))))))))))
--
Amicales Salutations

"FxM" a écrit dans le message de news:%
Bonjour,

Puisque tu parles d'Excel 2003, cela implique Windows 2000 ou XP.
Ces OS permettent différents utilisateurs et des camouflages au niveau
des fichiers. Comme l'a dit Philippe entre ses mercis, se loguer en
adminsitrateur, faire afficher tous les fichiers qu'ils soient système,
cachés ou lecture seule.
Ce n'est pas parce que tu ne vois rien qu'il n'y a rien. (au moins un
fichier excel.xlb, voire au moins un fichier nommé <utilisateur>.xlb)

@+
FxM





Hélas pas le moindre .XLB nulle part. Même pas pour mes
actuelles barres d'outil?

réponse?

Merci

Ghislain

-----Message d'origine-----
Bonjour,

Les barres d'outils peuvent être stockées dans le(s)


fichier(s) *.xlb

@+
FxM




Bonjour,

Je reporte sur un nouveau PC mes anciennes applications.
En Excel, je ne retrouve pas une barre d'outil qui



était

sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la



récupérer?

OK pour une solution via VBA.

Merci

Ghislain



.









Avatar
Philippe.R
Tu vois Ghislain, il fallait insister avec suffisamment d'insistance ;o)))
--
Amicales Salutations

"Ghislain" a écrit dans le message de
news:fb8c01c43e7c$378004a0$
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché" ... fallait qu'y
pense ;-(

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

Extra

Ghislain
-----Message d'origine-----
Bonjour Ghislain,
Fais une recherche approfondie, en incluant les sous
dossiers, tu as obligatoirement un fichier "*.xlb"

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Ghislain" a écrit
dans le message de

news:fa7301c43e5f$0fdea040$
Hélas pas le moindre .XLB nulle part. Même pas pour mes
actuelles barres d'outil?

réponse?

Merci

Ghislain
-----Message d'origine-----
Bonjour,

Les barres d'outils peuvent être stockées dans le(s)
fichier(s) *.xlb


@+
FxM



Bonjour,

Je reporte sur un nouveau PC mes anciennes
applications.



En Excel, je ne retrouve pas une barre d'outil qui
était


sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain

.





.





Avatar
Ghislain
OK, je vais examiner cela et te tiendrai au courant.

J'ai imprimé tes macros et je remarque que ta solution a
l'avantage d'être "transportable" avec le dossier. Ce qui
n'est pas le cas chez moi.

On l'a vu tout ce matin.

J'étais déjà assez satisfait de l'apparition / suppression
de la barre réservée à l'ouverture/fermeture du dossier
sans gêner les autres dossiers.

Encore merci TikTok (c'est là un nom "charmant" comme
disait Fernandel)

Amitiés binaires

Ghislain

-----Message d'origine-----
C'est parce que tu es sur un Windows NT, 2K, ou XP.
Sous 98, Me, tu l'aurais eu dans Program Files je pense.
Bien content que tu l'aies trouvé :).

Dans ma macro :
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
bouton, chemin, legende sont des tableaux ("Dim bouton as


Variant" pour etre

sur)
Postes un message si ca marche ! Je n'ai pas encore
essaye avec les tableaux

mais si oui c'est super ;).


"Ghislain" escreveu
na mensagem

news:fade01c43e7b$540575c0$
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché".

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

En tout cas je garde ta macro et je vais m'y pencher tôt
ou tard.

Merci 1.000 fois :-)

-----Message d'origine-----
Et dans C:/WinNT ?

Les barres d'outils ne sont pas stockees dans un fichier.
Et elles ne

suivent pas les fichiers. Si tu changes de PC, tu n'auras
pas ta barre. Je

ne sais pas ou elles sont a vrai dire.
C'est pour ca qu'en la creant par VBA, tu es sur de tout
le temps l'avoir.

Tu lances la macro et hop elle est la !
Il suffit de stocker ma macro dans un simple .xls et
c'est bon.


"Ghislain" escreveu
na mensagem

news:fb4701c43e71$af67d2a0$
Encore merci, mais je passe ma journée à continuer à
chercher: RIEN

D'abord aucun .xlb sur mon ancien ni sur mon nouveau PC.

Peut être y a t il un autre nom d'extension sur Office
2003?

J'ai aussi essayé du côté de XLSTART avec les .xlt, mais
RIEN

Quand j'ouvre le même fichier .xls placé sur une clef
USB,


sur le nouveau PC il ouvre ma vieille barre d'outil (1),
qui hélas porte le même nom que la nouvelle, tandis que
sur l'ancien PC il ouvre la barre actualisée.

Donc, mon nouveau PC est allé trouver la vieille barre et
ne veut plus l'écraser.

Maintenant j'essaie autre chose: sur mon acien PC, j'ai
renommé la fameuse barre d'outil (en 3) et je sauve.

Mais sur mon nouveau PC il ne trouve pas de "3" et ne
l'ouvre donc pas. Donc les barres d'outils ne se
transposent elles pas avec le fichier?

Mais où sont logées ces fameuses barres?????

Ghislain

-----Message d'origine-----
C'est vrai. Dans mon cas, je n'ai pas beaucoup de
macros.



Sinon, tu stockes dans trois tableaux les ID, le chemin
de la macro, la

description.
Et tu fais un
For compteur = 1 to 27
Set Btn & compteur = .Controls.Add
(msoControlButton)


With Btn1
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
End With
Next compteur

A toi de tester, je ne sais pas si ca marche.
Mais si ce n'est pas ce que tu cherches, pas grave.
Cherches plutot ce .xlb

:)


"Ghislain"
escreveu



na mensagem
news:f99801c43e61$da205b80$
Ouai,

Merci Tiktok. Mais c'est pas extra: en effet, j'ai
autant



de boutons/macro qu'il y a de lettres dans l'alphabet.
Alors si je dois recopier 27 fois le paragraphe du VBA
proposé en y changeant à chaque fois la lettre
apparaisssant dans l'icône, autant recoller directement
toute ma barre.

Je cherche plutôt où localiser cette barre ancienne.
Cela



a déjà marché une fois: à force de cliquer/effacer j'ai
soudain eu la bonne barre. Mais impossible de
reconstituer


comment.

Merci pour les méninges

Ghislain
-----Message d'origine-----
Salut Ghislain, tu peux faire une procedure VBA qui te
recreera ta barre

d'outils.
Les macros affectees aux boutons sont t'elles dans un
meme fichier ? Dans un

meme dossier ?
Je me suis aide de la page
http://dj.joss.free.fr/outil.htm et ca marche

super bien !
Les ID des boutons vont jusqu'a 600 (Excel 97 et
superieur).


Dim MaBar, Btn1, Btn2, Btn3, Btn4
' Supprime la barre si elle existe déjà (on est sur
qu'il n'y a pas

d'erreur)
On Error Resume Next
Application.CommandBars("TaSuperBarre").Delete
On Error GoTo 0
On Error Resume Next
' Creation de la barre
Set MaBar = Application.CommandBars.Add
("TaSuperBarre")


' Creation des boutons
With MaBar
' Creation du premier bouton (icone, legende) et
affectation a une

macro
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.FaceId = 536
.OnAction = "fichier.xls!Module1.Macro"
.Caption = "Legende1"
End With
Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.FaceId = 19
.OnAction = "fichier.xls!Module2.Procedure"
.Caption = "Legende2"
End With
Set Btn3 = .Controls.Add(msoControlButton)
With Btn3
.FaceId = 159
.OnAction = "fichier34.xls!Module1.Macro22"
.Caption = "Legende3"
End With
Set Btn4 = .Controls.Add(msoControlButton)
With Btn4
.FaceId = 173
.OnAction = "test44.xls!MonModule.Proc"
.Caption = "Legende4"
End With

Perso, ma barre est dans le meme fichier que les
macros,




donc le
"fichier.xls!" est inutile.
Pour toi, il faut voir.


"Ghislain"
escreveu



na mensagem
news:f94a01c43e5a$dcc84e30$
Bonjour,

Je reporte sur un nouveau PC mes anciennes
applications.




En Excel, je ne retrouve pas une barre d'outil qui
était




sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain



.




.




.




.






Avatar
tictok
C'est ca le grand interet de cette macro (je l'ai adaptée a mes besoins, pas
créée). Tu stockes cette macro dans un fichier.
Tu mets ce fichier dans le meme dossier que les macros appelees par les
boutons de ta barre d'outils.
Et ta barre sera toujours valable et fonctionnelle.
Le seul probleme, ce sont les liens relatifs et le fait de la mettre a jour
par rapport a tes macros.
Mais si tu ne changes pas souvent, c'est une bonne solution.

Si tu veux, je peux te donner la procedure pour supprimer ta barre :
Sub DELBarre()
On Error Resume Next
Application.CommandBars("TaSuperBarre").Delete
On Error GoTo 0
'MsgBox ("Barre d'outils supprimee !")
End Sub

C'est Tictok avec un 'c' et un 'k', pas deux 'k' ;-).

110101010101010110 (ben voui, c'est du binaire !)

"Ghislain" escreveu na mensagem
news:fc3301c43e88$2fc23e70$
OK, je vais examiner cela et te tiendrai au courant.

J'ai imprimé tes macros et je remarque que ta solution a
l'avantage d'être "transportable" avec le dossier. Ce qui
n'est pas le cas chez moi.

On l'a vu tout ce matin.

J'étais déjà assez satisfait de l'apparition / suppression
de la barre réservée à l'ouverture/fermeture du dossier
sans gêner les autres dossiers.

Encore merci TikTok (c'est là un nom "charmant" comme
disait Fernandel)

Amitiés binaires

Ghislain

-----Message d'origine-----
C'est parce que tu es sur un Windows NT, 2K, ou XP.
Sous 98, Me, tu l'aurais eu dans Program Files je pense.
Bien content que tu l'aies trouvé :).

Dans ma macro :
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
bouton, chemin, legende sont des tableaux ("Dim bouton as


Variant" pour etre

sur)
Postes un message si ca marche ! Je n'ai pas encore
essaye avec les tableaux

mais si oui c'est super ;).


"Ghislain" escreveu
na mensagem

news:fade01c43e7b$540575c0$
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché".

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

En tout cas je garde ta macro et je vais m'y pencher tôt
ou tard.

Merci 1.000 fois :-)

-----Message d'origine-----
Et dans C:/WinNT ?

Les barres d'outils ne sont pas stockees dans un fichier.
Et elles ne

suivent pas les fichiers. Si tu changes de PC, tu n'auras
pas ta barre. Je

ne sais pas ou elles sont a vrai dire.
C'est pour ca qu'en la creant par VBA, tu es sur de tout
le temps l'avoir.

Tu lances la macro et hop elle est la !
Il suffit de stocker ma macro dans un simple .xls et
c'est bon.


"Ghislain" escreveu
na mensagem

news:fb4701c43e71$af67d2a0$
Encore merci, mais je passe ma journée à continuer à
chercher: RIEN

D'abord aucun .xlb sur mon ancien ni sur mon nouveau PC.

Peut être y a t il un autre nom d'extension sur Office
2003?

J'ai aussi essayé du côté de XLSTART avec les .xlt, mais
RIEN

Quand j'ouvre le même fichier .xls placé sur une clef
USB,


sur le nouveau PC il ouvre ma vieille barre d'outil (1),
qui hélas porte le même nom que la nouvelle, tandis que
sur l'ancien PC il ouvre la barre actualisée.

Donc, mon nouveau PC est allé trouver la vieille barre et
ne veut plus l'écraser.

Maintenant j'essaie autre chose: sur mon acien PC, j'ai
renommé la fameuse barre d'outil (en 3) et je sauve.

Mais sur mon nouveau PC il ne trouve pas de "3" et ne
l'ouvre donc pas. Donc les barres d'outils ne se
transposent elles pas avec le fichier?

Mais où sont logées ces fameuses barres?????

Ghislain

-----Message d'origine-----
C'est vrai. Dans mon cas, je n'ai pas beaucoup de
macros.



Sinon, tu stockes dans trois tableaux les ID, le chemin
de la macro, la

description.
Et tu fais un
For compteur = 1 to 27
Set Btn & compteur = .Controls.Add
(msoControlButton)


With Btn1
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
End With
Next compteur

A toi de tester, je ne sais pas si ca marche.
Mais si ce n'est pas ce que tu cherches, pas grave.
Cherches plutot ce .xlb

:)


"Ghislain"
escreveu



na mensagem
news:f99801c43e61$da205b80$
Ouai,

Merci Tiktok. Mais c'est pas extra: en effet, j'ai
autant



de boutons/macro qu'il y a de lettres dans l'alphabet.
Alors si je dois recopier 27 fois le paragraphe du VBA
proposé en y changeant à chaque fois la lettre
apparaisssant dans l'icône, autant recoller directement
toute ma barre.

Je cherche plutôt où localiser cette barre ancienne.
Cela



a déjà marché une fois: à force de cliquer/effacer j'ai
soudain eu la bonne barre. Mais impossible de
reconstituer


comment.

Merci pour les méninges

Ghislain
-----Message d'origine-----
Salut Ghislain, tu peux faire une procedure VBA qui te
recreera ta barre

d'outils.
Les macros affectees aux boutons sont t'elles dans un
meme fichier ? Dans un

meme dossier ?
Je me suis aide de la page
http://dj.joss.free.fr/outil.htm et ca marche

super bien !
Les ID des boutons vont jusqu'a 600 (Excel 97 et
superieur).


Dim MaBar, Btn1, Btn2, Btn3, Btn4
' Supprime la barre si elle existe déjà (on est sur
qu'il n'y a pas

d'erreur)
On Error Resume Next
Application.CommandBars("TaSuperBarre").Delete
On Error GoTo 0
On Error Resume Next
' Creation de la barre
Set MaBar = Application.CommandBars.Add
("TaSuperBarre")


' Creation des boutons
With MaBar
' Creation du premier bouton (icone, legende) et
affectation a une

macro
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.FaceId = 536
.OnAction = "fichier.xls!Module1.Macro"
.Caption = "Legende1"
End With
Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.FaceId = 19
.OnAction = "fichier.xls!Module2.Procedure"
.Caption = "Legende2"
End With
Set Btn3 = .Controls.Add(msoControlButton)
With Btn3
.FaceId = 159
.OnAction = "fichier34.xls!Module1.Macro22"
.Caption = "Legende3"
End With
Set Btn4 = .Controls.Add(msoControlButton)
With Btn4
.FaceId = 173
.OnAction = "test44.xls!MonModule.Proc"
.Caption = "Legende4"
End With

Perso, ma barre est dans le meme fichier que les
macros,




donc le
"fichier.xls!" est inutile.
Pour toi, il faut voir.


"Ghislain"
escreveu



na mensagem
news:f94a01c43e5a$dcc84e30$
Bonjour,

Je reporte sur un nouveau PC mes anciennes
applications.




En Excel, je ne retrouve pas une barre d'outil qui
était




sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain



.




.




.




.






Avatar
tictok
Je suis en train d'essayer en remplissant des tableaux "Dim Tableaux(6) As
Variant" et en utilisant une boucle
For compt = 1 to &
Set Boutons(Compt) = .Controls.Add(msoControlButton)
With TabBoutons(Compt)
.FaceId = ID(Compteur)
.OnAction = Macros(Compteur)
.Caption = Legendes(Compteur)
End With
Next compt

Les boutons, ni les legendes ne s'affichent pas et les macros ne s'executent
pas !
Comme si mes tableaux etaient vides !


"Ghislain" escreveu na mensagem
news:fc3301c43e88$2fc23e70$
OK, je vais examiner cela et te tiendrai au courant.

J'ai imprimé tes macros et je remarque que ta solution a
l'avantage d'être "transportable" avec le dossier. Ce qui
n'est pas le cas chez moi.

On l'a vu tout ce matin.

J'étais déjà assez satisfait de l'apparition / suppression
de la barre réservée à l'ouverture/fermeture du dossier
sans gêner les autres dossiers.

Encore merci TikTok (c'est là un nom "charmant" comme
disait Fernandel)

Amitiés binaires

Ghislain

-----Message d'origine-----
C'est parce que tu es sur un Windows NT, 2K, ou XP.
Sous 98, Me, tu l'aurais eu dans Program Files je pense.
Bien content que tu l'aies trouvé :).

Dans ma macro :
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
bouton, chemin, legende sont des tableaux ("Dim bouton as


Variant" pour etre

sur)
Postes un message si ca marche ! Je n'ai pas encore
essaye avec les tableaux

mais si oui c'est super ;).


"Ghislain" escreveu
na mensagem

news:fade01c43e7b$540575c0$
J'ai enfin trouvé: le fichier .xlb n'apparaissait pas dans
les recherches vu qu'il était "caché".

En voici l'emplacement:

C:Documents and SettingsuserApplication
DataMicrosoftExcelExcel11.xlb

Je l'ai écrasé par celui repéché sur l'ancien PC et tout
est OK

En tout cas je garde ta macro et je vais m'y pencher tôt
ou tard.

Merci 1.000 fois :-)

-----Message d'origine-----
Et dans C:/WinNT ?

Les barres d'outils ne sont pas stockees dans un fichier.
Et elles ne

suivent pas les fichiers. Si tu changes de PC, tu n'auras
pas ta barre. Je

ne sais pas ou elles sont a vrai dire.
C'est pour ca qu'en la creant par VBA, tu es sur de tout
le temps l'avoir.

Tu lances la macro et hop elle est la !
Il suffit de stocker ma macro dans un simple .xls et
c'est bon.


"Ghislain" escreveu
na mensagem

news:fb4701c43e71$af67d2a0$
Encore merci, mais je passe ma journée à continuer à
chercher: RIEN

D'abord aucun .xlb sur mon ancien ni sur mon nouveau PC.

Peut être y a t il un autre nom d'extension sur Office
2003?

J'ai aussi essayé du côté de XLSTART avec les .xlt, mais
RIEN

Quand j'ouvre le même fichier .xls placé sur une clef
USB,


sur le nouveau PC il ouvre ma vieille barre d'outil (1),
qui hélas porte le même nom que la nouvelle, tandis que
sur l'ancien PC il ouvre la barre actualisée.

Donc, mon nouveau PC est allé trouver la vieille barre et
ne veut plus l'écraser.

Maintenant j'essaie autre chose: sur mon acien PC, j'ai
renommé la fameuse barre d'outil (en 3) et je sauve.

Mais sur mon nouveau PC il ne trouve pas de "3" et ne
l'ouvre donc pas. Donc les barres d'outils ne se
transposent elles pas avec le fichier?

Mais où sont logées ces fameuses barres?????

Ghislain

-----Message d'origine-----
C'est vrai. Dans mon cas, je n'ai pas beaucoup de
macros.



Sinon, tu stockes dans trois tableaux les ID, le chemin
de la macro, la

description.
Et tu fais un
For compteur = 1 to 27
Set Btn & compteur = .Controls.Add
(msoControlButton)


With Btn1
.FaceId = bouton(compteur)
.OnAction = chemin(compteur)
.Caption = legende(compteur)
End With
Next compteur

A toi de tester, je ne sais pas si ca marche.
Mais si ce n'est pas ce que tu cherches, pas grave.
Cherches plutot ce .xlb

:)


"Ghislain"
escreveu



na mensagem
news:f99801c43e61$da205b80$
Ouai,

Merci Tiktok. Mais c'est pas extra: en effet, j'ai
autant



de boutons/macro qu'il y a de lettres dans l'alphabet.
Alors si je dois recopier 27 fois le paragraphe du VBA
proposé en y changeant à chaque fois la lettre
apparaisssant dans l'icône, autant recoller directement
toute ma barre.

Je cherche plutôt où localiser cette barre ancienne.
Cela



a déjà marché une fois: à force de cliquer/effacer j'ai
soudain eu la bonne barre. Mais impossible de
reconstituer


comment.

Merci pour les méninges

Ghislain
-----Message d'origine-----
Salut Ghislain, tu peux faire une procedure VBA qui te
recreera ta barre

d'outils.
Les macros affectees aux boutons sont t'elles dans un
meme fichier ? Dans un

meme dossier ?
Je me suis aide de la page
http://dj.joss.free.fr/outil.htm et ca marche

super bien !
Les ID des boutons vont jusqu'a 600 (Excel 97 et
superieur).


Dim MaBar, Btn1, Btn2, Btn3, Btn4
' Supprime la barre si elle existe déjà (on est sur
qu'il n'y a pas

d'erreur)
On Error Resume Next
Application.CommandBars("TaSuperBarre").Delete
On Error GoTo 0
On Error Resume Next
' Creation de la barre
Set MaBar = Application.CommandBars.Add
("TaSuperBarre")


' Creation des boutons
With MaBar
' Creation du premier bouton (icone, legende) et
affectation a une

macro
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.FaceId = 536
.OnAction = "fichier.xls!Module1.Macro"
.Caption = "Legende1"
End With
Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.FaceId = 19
.OnAction = "fichier.xls!Module2.Procedure"
.Caption = "Legende2"
End With
Set Btn3 = .Controls.Add(msoControlButton)
With Btn3
.FaceId = 159
.OnAction = "fichier34.xls!Module1.Macro22"
.Caption = "Legende3"
End With
Set Btn4 = .Controls.Add(msoControlButton)
With Btn4
.FaceId = 173
.OnAction = "test44.xls!MonModule.Proc"
.Caption = "Legende4"
End With

Perso, ma barre est dans le meme fichier que les
macros,




donc le
"fichier.xls!" est inutile.
Pour toi, il faut voir.


"Ghislain"
escreveu



na mensagem
news:f94a01c43e5a$dcc84e30$
Bonjour,

Je reporte sur un nouveau PC mes anciennes
applications.




En Excel, je ne retrouve pas une barre d'outil qui
était




sur l'ancien PC avec toutes les macros que j'y avais
laissées.

Je la retrouve dans un état antérieur.

Comment retrouver une barre d'outil et aussi la
récupérer?


OK pour une solution via VBA.

Merci

Ghislain



.




.




.




.






1 2