-----Message d'origine---
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 pardéfaut + change l'apparence du bouton pour le Faceid 96
(un Q)
comment pourrais-je faire pour que l'apparence du bouton
soit personnaliséec'est à dire au premier clic, changement du répertoire +
bouton perso 1au deuxiéme clic, changement du répertoire + bouton
perso 2.
"J-Dan" a écrit
dans le message denews: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 estle 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 denews:4a1801c490cd$1ddaf200$
Fredo,
en complément (décidemment je vais m'inscrire au
prochainchampionnat des réponses-tiroir !), tu peux modifier
les
largeur et hauteur du bouton avec les propriétés Width
etHeight.
J-Dan-----Message d'origine-----
Super...
Et si je veux que l'apparence du bouton soit aussi
persoy'a t'il moyen ?
"J-Dan" a écrit
dans le message denews: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
deExcelproblème résolu
<< -- >>
Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le repdéfinit.
J'ai donc ma macro qui fait le boulot et je dois à
la
fin de celle ciindiquer qu'il faut changer l'apparence du 4éme
boutonde la barre nomméeSTANDARD FRED.
Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.
--
**********************
Fredo
Strasbourg
.
.
.
.
.
.
-----Message d'origine---
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:002e01c49108$993e2850$a401280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:4a5101c490d1$b4cfd320$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:4a1801c490cd$1ddaf200$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:4a8501c490c5$96d5d650$a601280a@phx.gbl...
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
.
.
.
.
.
.
-----Message d'origine---
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 pardéfaut + change l'apparence du bouton pour le Faceid 96
(un Q)
comment pourrais-je faire pour que l'apparence du bouton
soit personnaliséec'est à dire au premier clic, changement du répertoire +
bouton perso 1au deuxiéme clic, changement du répertoire + bouton
perso 2.
"J-Dan" a écrit
dans le message denews: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 estle 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 denews:4a1801c490cd$1ddaf200$
Fredo,
en complément (décidemment je vais m'inscrire au
prochainchampionnat des réponses-tiroir !), tu peux modifier
les
largeur et hauteur du bouton avec les propriétés Width
etHeight.
J-Dan-----Message d'origine-----
Super...
Et si je veux que l'apparence du bouton soit aussi
persoy'a t'il moyen ?
"J-Dan" a écrit
dans le message denews: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
deExcelproblème résolu
<< -- >>
Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le repdéfinit.
J'ai donc ma macro qui fait le boulot et je dois à
la
fin de celle ciindiquer qu'il faut changer l'apparence du 4éme
boutonde la barre nomméeSTANDARD FRED.
Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.
--
**********************
Fredo
Strasbourg
.
.
.
.
.
.
-----Message d'origine---
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 pardéfaut + change l'apparence du bouton pour le Faceid 96
(un Q)
comment pourrais-je faire pour que l'apparence du bouton
soit personnaliséec'est à dire au premier clic, changement du répertoire +
bouton perso 1au deuxiéme clic, changement du répertoire + bouton
perso 2.
"J-Dan" a écrit
dans le message denews: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 estle 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 denews:4a1801c490cd$1ddaf200$
Fredo,
en complément (décidemment je vais m'inscrire au
prochainchampionnat des réponses-tiroir !), tu peux modifier
les
largeur et hauteur du bouton avec les propriétés Width
etHeight.
J-Dan-----Message d'origine-----
Super...
Et si je veux que l'apparence du bouton soit aussi
persoy'a t'il moyen ?
"J-Dan" a écrit
dans le message denews: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
deExcelproblème résolu
<< -- >>
Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le repdéfinit.
J'ai donc ma macro qui fait le boulot et je dois à
la
fin de celle ciindiquer qu'il faut changer l'apparence du 4éme
boutonde la barre nomméeSTANDARD FRED.
Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.
--
**********************
Fredo
Strasbourg
.
.
.
.
.
.
-----Message d'origine---
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:002e01c49108$993e2850$a401280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:4a5101c490d1$b4cfd320$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:4a1801c490cd$1ddaf200$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:4a8501c490c5$96d5d650$a601280a@phx.gbl...
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
.
.
.
.
.
.
-----Message d'origine---
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 pardéfaut + change l'apparence du bouton pour le Faceid 96
(un Q)
comment pourrais-je faire pour que l'apparence du bouton
soit personnaliséec'est à dire au premier clic, changement du répertoire +
bouton perso 1au deuxiéme clic, changement du répertoire + bouton
perso 2.
"J-Dan" a écrit
dans le message denews: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 estle 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 denews:4a1801c490cd$1ddaf200$
Fredo,
en complément (décidemment je vais m'inscrire au
prochainchampionnat des réponses-tiroir !), tu peux modifier
les
largeur et hauteur du bouton avec les propriétés Width
etHeight.
J-Dan-----Message d'origine-----
Super...
Et si je veux que l'apparence du bouton soit aussi
persoy'a t'il moyen ?
"J-Dan" a écrit
dans le message denews: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
deExcelproblème résolu
<< -- >>
Maintenant je voudrais voir indiqué dans la barre
d'outils quel est le repdéfinit.
J'ai donc ma macro qui fait le boulot et je dois à
la
fin de celle ciindiquer qu'il faut changer l'apparence du 4éme
boutonde la barre nomméeSTANDARD FRED.
Quelle est la procédure ?
je n'ai rien trouvé sur Excel Labo.
--
**********************
Fredo
Strasbourg
.
.
.
.
.
.
