Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Modifier l'image d'un icône personalisé dans une Baree d'outils perso

Modifier l'image d'un icône personalisé dans une Baree d'outils perso

12 réponses
Avatar
Fredo \(67\)
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut de Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre d'outils quel est le rep
définit.
J'ai donc ma macro qui fait le boulot et je dois à la fin de celle ci
indiquer qu'il faut changer l'apparence du 4éme bouton de la barre nommée
STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg
Signaler un problème avec ce contenu

10 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
J-Dan
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
.Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
.Style = msoButtonIconAndCaption
.FaceId = N°

'pour modifier l'aide contextuelle :
.TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut de
Excel

problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.



Avatar
J-Dan
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





Avatar
Fredo \(67\)
Super...

Et si je veux que l'apparence du bouton soit aussi perso
y'a t'il moyen ?


"J-Dan" a écrit dans le message de
news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





Avatar
J-Dan
Fredo,

pour modifier le dessin, tu peux :
clic droit sur une BO, personnaliser, clic droit sur le
bouton, éditeur de bouton ... et tu modifies.
Attention, si tu crées ton bouton par macro, il faut
enregistrer ta BO (comme je n'utilise jamais les .xlb, je
laisse la main aux spécialistes)
Dans ton cas, tu peux télécharger la macro de JWalk
appelée "JWalk FaceID identifier" (fais une recherche
Google sur ce nom) qui est fabuleuse, grâce à laquelle tu
visionneras toutes les icônes dispo (il y en a un paquet)
avec leur n° de FaceID. C'est cette méthode que j'utilise.

J-Dan


-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi perso
y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.





Avatar
J-Dan
Fredo,

en complément (décidemment je vais m'inscrire au prochain
championnat des réponses-tiroir !), tu peux modifier les
largeur et hauteur du bouton avec les propriétés Width et
Height.

J-Dan

-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi perso
y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.





Avatar
Fredo \(67\)
Oui un grand merci
J'ai effectivement modifié mon apparence du bouton à mes souhait.
Mais (parcequ'il y a toujours un mais)
voilà la macro que j'utilise :

Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
.Caption = ThisWorkbook.Path
.Style = msoButtonIcon
.FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
.Caption = ThisWorkbook.Path
.Style = msoButtonIcon
.FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

Cela me change le répertoire par défaut d'ouverture des docs..
puis cela change le bouton de la barre d'outils. comme ça je vois qu'el est
le rep sélectionné.
mais par ce biais je ne puis utiliser de boutons personalisés.
car ils n'ont pas de faceid.

je ne sais pas si mon expli est claire ?

"J-Dan" a écrit dans le message de
news:4a1801c490cd$1ddaf200$
Fredo,

en complément (décidemment je vais m'inscrire au prochain
championnat des réponses-tiroir !), tu peux modifier les
largeur et hauteur du bouton avec les propriétés Width et
Height.

J-Dan

-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi perso
y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.





Avatar
J-Dan
Fredo,

je ne sais pas si mon expli est claire ?
Pas trop, ... désolé


mais par ce biais je ne puis utiliser de boutons
personalisés.

De quels boutons s'agit-il ?

J-Dan

-----Message d'origine-----
Oui un grand merci
J'ai effectivement modifié mon apparence du bouton à mes
souhait.

Mais (parcequ'il y a toujours un mais)
voilà la macro que j'utilise :

Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

Cela me change le répertoire par défaut d'ouverture des
docs..

puis cela change le bouton de la barre d'outils. comme
ça je vois qu'el est

le rep sélectionné.
mais par ce biais je ne puis utiliser de boutons
personalisés.

car ils n'ont pas de faceid.

je ne sais pas si mon expli est claire ?

"J-Dan" a écrit
dans le message de

news:4a1801c490cd$1ddaf200$
Fredo,

en complément (décidemment je vais m'inscrire au prochain
championnat des réponses-tiroir !), tu peux modifier les
largeur et hauteur du bouton avec les propriétés Width et
Height.

J-Dan

-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi perso
y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.




.






Avatar
Fredo \(67\)
Bon voilà :
cette macro :
Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
.Caption = ThisWorkbook.Path
.Style = msoButtonIcon
.FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
.Caption = ThisWorkbook.Path
.Style = msoButtonIcon
.FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

fait ceci :
je clique sur le bouton, cela met le répertoire R: comme rép par défaut +
change l'apparence du bouton pour le Faceid 97 (un R)
si je reclique sur le bouton, cela met le répertoire Q: comme rép par
défaut + change l'apparence du bouton pour le Faceid 96 (un Q)

comment pourrais-je faire pour que l'apparence du bouton soit personnalisée
c'est à dire au premier clic, changement du répertoire + bouton perso 1
au deuxiéme clic, changement du répertoire + bouton perso 2.

"J-Dan" a écrit dans le message de
news:4a5101c490d1$b4cfd320$
Fredo,

je ne sais pas si mon expli est claire ?
Pas trop, ... désolé


mais par ce biais je ne puis utiliser de boutons
personalisés.

De quels boutons s'agit-il ?

J-Dan

-----Message d'origine-----
Oui un grand merci
J'ai effectivement modifié mon apparence du bouton à mes
souhait.

Mais (parcequ'il y a toujours un mais)
voilà la macro que j'utilise :

Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

Cela me change le répertoire par défaut d'ouverture des
docs..

puis cela change le bouton de la barre d'outils. comme
ça je vois qu'el est

le rep sélectionné.
mais par ce biais je ne puis utiliser de boutons
personalisés.

car ils n'ont pas de faceid.

je ne sais pas si mon expli est claire ?

"J-Dan" a écrit
dans le message de

news:4a1801c490cd$1ddaf200$
Fredo,

en complément (décidemment je vais m'inscrire au prochain
championnat des réponses-tiroir !), tu peux modifier les
largeur et hauteur du bouton avec les propriétés Width et
Height.

J-Dan

-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi perso
y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme bouton
de la barre nommée

STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.




.






Avatar
J-Dan
Fredo,

as-tu mis lors de la création de ta BO :
With CommandBars("standardfred").Controls(4)
.onAction = "changer_rep_par_defaut".
End With

Si non, il te faut ajouter cette ligne dans la macro de
création, et la relancer (ne pas oublier de la détruire
avant de la recréer)

J-Dan


-----Message d'origine-----
Bon voilà :
cette macro :
Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

fait ceci :
je clique sur le bouton, cela met le répertoire R:
comme rép par défaut +

change l'apparence du bouton pour le Faceid 97 (un R)
si je reclique sur le bouton, cela met le répertoire Q:
comme rép par

défaut + change l'apparence du bouton pour le Faceid 96
(un Q)


comment pourrais-je faire pour que l'apparence du bouton
soit personnalisée

c'est à dire au premier clic, changement du répertoire +
bouton perso 1

au deuxiéme clic, changement du répertoire + bouton
perso 2.


"J-Dan" a écrit
dans le message de

news:4a5101c490d1$b4cfd320$
Fredo,

je ne sais pas si mon expli est claire ?
Pas trop, ... désolé


mais par ce biais je ne puis utiliser de boutons
personalisés.

De quels boutons s'agit-il ?

J-Dan

-----Message d'origine-----
Oui un grand merci
J'ai effectivement modifié mon apparence du bouton à mes
souhait.

Mais (parcequ'il y a toujours un mais)
voilà la macro que j'utilise :

Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

Cela me change le répertoire par défaut d'ouverture des
docs..

puis cela change le bouton de la barre d'outils. comme
ça je vois qu'el est

le rep sélectionné.
mais par ce biais je ne puis utiliser de boutons
personalisés.

car ils n'ont pas de faceid.

je ne sais pas si mon expli est claire ?

"J-Dan" a écrit
dans le message de

news:4a1801c490cd$1ddaf200$
Fredo,

en complément (décidemment je vais m'inscrire au
prochain


championnat des réponses-tiroir !), tu peux modifier les
largeur et hauteur du bouton avec les propriétés Width
et


Height.

J-Dan

-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi
perso



y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme
bouton





de la barre nommée
STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.




.




.







Avatar
Fredo \(67\)
Bonjour
Et bien en fait cette barre de macro est créée, et ce depuis bien longtemps.
Elle contient certain Outils Excel, et certains outils perso (avec un
affichage perso)

Mais c'est pas grave.
Selon tes conseils, j'ai réussi à faire ce que je voulais.
Je vais me contenter de choisir des boutons de Excel.

Merci quand meme de ton aide

"J-Dan" a écrit dans le message de
news:002e01c49108$993e2850$
Fredo,

as-tu mis lors de la création de ta BO :
With CommandBars("standardfred").Controls(4)
.onAction = "changer_rep_par_defaut".
End With

Si non, il te faut ajouter cette ligne dans la macro de
création, et la relancer (ne pas oublier de la détruire
avant de la recréer)

J-Dan


-----Message d'origine-----
Bon voilà :
cette macro :
Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

fait ceci :
je clique sur le bouton, cela met le répertoire R:
comme rép par défaut +

change l'apparence du bouton pour le Faceid 97 (un R)
si je reclique sur le bouton, cela met le répertoire Q:
comme rép par

défaut + change l'apparence du bouton pour le Faceid 96
(un Q)


comment pourrais-je faire pour que l'apparence du bouton
soit personnalisée

c'est à dire au premier clic, changement du répertoire +
bouton perso 1

au deuxiéme clic, changement du répertoire + bouton
perso 2.


"J-Dan" a écrit
dans le message de

news:4a5101c490d1$b4cfd320$
Fredo,

je ne sais pas si mon expli est claire ?
Pas trop, ... désolé


mais par ce biais je ne puis utiliser de boutons
personalisés.

De quels boutons s'agit-il ?

J-Dan

-----Message d'origine-----
Oui un grand merci
J'ai effectivement modifié mon apparence du bouton à mes
souhait.

Mais (parcequ'il y a toujours un mais)
voilà la macro que j'utilise :

Sub changer_rep_par_defaut()
If CurDir = "q:" Then
ChDrive "r"
ChDir "r:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 97 '<== bouton avec l'apparence d'un R
End With
Else
ChDrive "q"
ChDir "q:"
With CommandBars("standardfred").Controls(4)
..Caption = ThisWorkbook.Path
..Style = msoButtonIcon
..FaceId = 96 '<== bouton avec l'apparence d'un Q
End With
End If
End Sub

Cela me change le répertoire par défaut d'ouverture des
docs..

puis cela change le bouton de la barre d'outils. comme
ça je vois qu'el est

le rep sélectionné.
mais par ce biais je ne puis utiliser de boutons
personalisés.

car ils n'ont pas de faceid.

je ne sais pas si mon expli est claire ?

"J-Dan" a écrit
dans le message de

news:4a1801c490cd$1ddaf200$
Fredo,

en complément (décidemment je vais m'inscrire au
prochain


championnat des réponses-tiroir !), tu peux modifier les
largeur et hauteur du bouton avec les propriétés Width
et


Height.

J-Dan

-----Message d'origine-----
Super...

Et si je veux que l'apparence du bouton soit aussi
perso



y'a t'il moyen ?


"J-Dan" a écrit
dans le message de

news:4a8501c490c5$96d5d650$
Fredo,

petite précision :
.Style = msoButtonIconAndCaption, pour icône et texte
sur le bouton,
.Style = msoButtonIcon, pour image seule
.Style = msoButtonCaption, pour texte seul.

J-Dan

-----Message d'origine-----
bonjour Fredo,

pour modifier le texte du bouton :
With CommandBars("STANDARD FRED").Controls(4)
..Caption = ThisWorkbook.Path

'pour modifier l'îcone du bouton :
..Style = msoButtonIconAndCaption
..FaceId = N°

'pour modifier l'aide contextuelle :
..TooltipText = ThisWorkbook.Path

End With

J-Dan


-----Message d'origine-----
Bonjour..
<<Rappel de l'épisode précédent>>
Je voulais par macro changer le répertoire par défaut
de


Excel
problème résolu
<< -- >>

Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le rep

définit.
J'ai donc ma macro qui fait le boulot et je dois à la
fin de celle ci

indiquer qu'il faut changer l'apparence du 4éme
bouton





de la barre nommée
STANDARD FRED.

Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.


--
**********************
Fredo
Strasbourg


.

.





.




.




.







1 2