Barre d'outil

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

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

.

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" <anonymous@discussions.microsoft.com> escreveu na mensagem
news:f94a01c43e5a$dcc84e30$a601280a@phx.gbl...
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

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" <anonymous@discussions.microsoft.com> escreveu
na mensagem

news:f94a01c43e5a$dcc84e30$a601280a@phx.gbl...
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



.

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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:fa7301c43e5f$0fdea040$a401280a@phx.gbl...
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

.

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" <anonymous@discussions.microsoft.com> escreveu na mensagem
news:f99801c43e61$da205b80$a101280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> escreveu
na mensagem

news:f94a01c43e5a$dcc84e30$a601280a@phx.gbl...
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



.

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" <anonymous@discussions.microsoft.com> escreveu
na mensagem

news:f99801c43e61$da205b80$a101280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> escreveu
na mensagem

news:f94a01c43e5a$dcc84e30$a601280a@phx.gbl...
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



.

.

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-----
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:fa7301c43e5f$0fdea040$a401280a@phx.gbl...
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

.

.

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" <anonymous@discussions.microsoft.com> escreveu na mensagem
news:fb4701c43e71$af67d2a0$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> escreveu
na mensagem

news:f99801c43e61$da205b80$a101280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> escreveu
na mensagem

news:f94a01c43e5a$dcc84e30$a601280a@phx.gbl...
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



.

.

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

.