Dans une feuille de calcul, je veux créer par faciliter la vie de
l'utilisateur un bouton associant l'execution d'une macro se nommant
Transfert. Ce bouton doit se trouver dans la barre d'outils Standard.
J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il
disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur de
macro mais il me crée bien un bouton mais c'est celui par défaut et non
celui que j'avais personnalisé et en plus la macro associée à ce bouton n' y
est plus.
La ligne de commande de l'enregistreur est :
Application.CommandBars("Standard").Controls.Add Type:=msControlButton,
ID:=2950, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton
associé à la macro Transfert quand le fichier Excel s'ouvre et pour que ce
bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout merci
d'avance pour les réponses.
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
papou
Bonjour Place ceci dans un module standard et adpates avec tes besoins : '*** début code **** Sub Auto_Open() Dim cb As CommandBarControl Set cb = Application.CommandBars("Standard").Controls.Add(msoControlButton, , , 9, True) With cb .OnAction = "Macro1" .FaceId = 44 End With End Sub Sub Auto_CLose() Application.CommandBars("Standard").Controls(9).Delete End Sub '*** Fin *** Cordialement Pascal
"Martin" a écrit dans le message de news:426f51a0$0$1247$
Bonjour à vous tous
Dans une feuille de calcul, je veux créer par faciliter la vie de l'utilisateur un bouton associant l'execution d'une macro se nommant Transfert. Ce bouton doit se trouver dans la barre d'outils Standard. J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur de
macro mais il me crée bien un bouton mais c'est celui par défaut et non celui que j'avais personnalisé et en plus la macro associée à ce bouton n' y
est plus. La ligne de commande de l'enregistreur est : Application.CommandBars("Standard").Controls.Add Type:=msControlButton, ID:)50, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton associé à la macro Transfert quand le fichier Excel s'ouvre et pour que ce bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout merci
d'avance pour les réponses.
Martin
Bonjour
Place ceci dans un module standard et adpates avec tes besoins :
'*** début code ****
Sub Auto_Open()
Dim cb As CommandBarControl
Set cb = Application.CommandBars("Standard").Controls.Add(msoControlButton,
, , 9, True)
With cb
.OnAction = "Macro1"
.FaceId = 44
End With
End Sub
Sub Auto_CLose()
Application.CommandBars("Standard").Controls(9).Delete
End Sub
'*** Fin ***
Cordialement
Pascal
"Martin" <absolut67@voila.fr> a écrit dans le message de
news:426f51a0$0$1247$8fcfb975@news.wanadoo.fr...
Bonjour à vous tous
Dans une feuille de calcul, je veux créer par faciliter la vie de
l'utilisateur un bouton associant l'execution d'une macro se nommant
Transfert. Ce bouton doit se trouver dans la barre d'outils Standard.
J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il
disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur
de
macro mais il me crée bien un bouton mais c'est celui par défaut et non
celui que j'avais personnalisé et en plus la macro associée à ce bouton n'
y
est plus.
La ligne de commande de l'enregistreur est :
Application.CommandBars("Standard").Controls.Add Type:=msControlButton,
ID:)50, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton
associé à la macro Transfert quand le fichier Excel s'ouvre et pour que ce
bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout
merci
Bonjour Place ceci dans un module standard et adpates avec tes besoins : '*** début code **** Sub Auto_Open() Dim cb As CommandBarControl Set cb = Application.CommandBars("Standard").Controls.Add(msoControlButton, , , 9, True) With cb .OnAction = "Macro1" .FaceId = 44 End With End Sub Sub Auto_CLose() Application.CommandBars("Standard").Controls(9).Delete End Sub '*** Fin *** Cordialement Pascal
"Martin" a écrit dans le message de news:426f51a0$0$1247$
Bonjour à vous tous
Dans une feuille de calcul, je veux créer par faciliter la vie de l'utilisateur un bouton associant l'execution d'une macro se nommant Transfert. Ce bouton doit se trouver dans la barre d'outils Standard. J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur de
macro mais il me crée bien un bouton mais c'est celui par défaut et non celui que j'avais personnalisé et en plus la macro associée à ce bouton n' y
est plus. La ligne de commande de l'enregistreur est : Application.CommandBars("Standard").Controls.Add Type:=msControlButton, ID:)50, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton associé à la macro Transfert quand le fichier Excel s'ouvre et pour que ce bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout merci
d'avance pour les réponses.
Martin
Martin
Bonjour
Je te remercie pour ta réponse qui est exactement ce que je voulais. Merci pour ce coup de pouce.
Martin "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ceci dans un module standard et adpates avec tes besoins : '*** début code **** Sub Auto_Open() Dim cb As CommandBarControl Set cb = Application.CommandBars("Standard").Controls.Add(msoControlButton, , , 9, True) With cb .OnAction = "Macro1" .FaceId = 44 End With End Sub Sub Auto_CLose() Application.CommandBars("Standard").Controls(9).Delete End Sub '*** Fin *** Cordialement Pascal
"Martin" a écrit dans le message de news:426f51a0$0$1247$
Bonjour à vous tous
Dans une feuille de calcul, je veux créer par faciliter la vie de l'utilisateur un bouton associant l'execution d'une macro se nommant Transfert. Ce bouton doit se trouver dans la barre d'outils Standard. J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur de
macro mais il me crée bien un bouton mais c'est celui par défaut et non celui que j'avais personnalisé et en plus la macro associée à ce bouton n' y
est plus. La ligne de commande de l'enregistreur est : Application.CommandBars("Standard").Controls.Add Type:=msControlButton, ID:)50, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton associé à la macro Transfert quand le fichier Excel s'ouvre et pour que ce bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout merci
d'avance pour les réponses.
Martin
Bonjour
Je te remercie pour ta réponse qui est exactement ce que je voulais.
Merci pour ce coup de pouce.
Martin
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
eoGOC2xSFHA.140@TK2MSFTNGP10.phx.gbl...
Bonjour
Place ceci dans un module standard et adpates avec tes besoins :
'*** début code ****
Sub Auto_Open()
Dim cb As CommandBarControl
Set cb =
Application.CommandBars("Standard").Controls.Add(msoControlButton,
, , 9, True)
With cb
.OnAction = "Macro1"
.FaceId = 44
End With
End Sub
Sub Auto_CLose()
Application.CommandBars("Standard").Controls(9).Delete
End Sub
'*** Fin ***
Cordialement
Pascal
"Martin" <absolut67@voila.fr> a écrit dans le message de
news:426f51a0$0$1247$8fcfb975@news.wanadoo.fr...
Bonjour à vous tous
Dans une feuille de calcul, je veux créer par faciliter la vie de
l'utilisateur un bouton associant l'execution d'une macro se nommant
Transfert. Ce bouton doit se trouver dans la barre d'outils Standard.
J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il
disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur
de
macro mais il me crée bien un bouton mais c'est celui par défaut et non
celui que j'avais personnalisé et en plus la macro associée à ce bouton
n'
y
est plus.
La ligne de commande de l'enregistreur est :
Application.CommandBars("Standard").Controls.Add Type:=msControlButton,
ID:)50, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton
associé à la macro Transfert quand le fichier Excel s'ouvre et pour que
ce
bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout
merci
Je te remercie pour ta réponse qui est exactement ce que je voulais. Merci pour ce coup de pouce.
Martin "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Place ceci dans un module standard et adpates avec tes besoins : '*** début code **** Sub Auto_Open() Dim cb As CommandBarControl Set cb = Application.CommandBars("Standard").Controls.Add(msoControlButton, , , 9, True) With cb .OnAction = "Macro1" .FaceId = 44 End With End Sub Sub Auto_CLose() Application.CommandBars("Standard").Controls(9).Delete End Sub '*** Fin *** Cordialement Pascal
"Martin" a écrit dans le message de news:426f51a0$0$1247$
Bonjour à vous tous
Dans une feuille de calcul, je veux créer par faciliter la vie de l'utilisateur un bouton associant l'execution d'une macro se nommant Transfert. Ce bouton doit se trouver dans la barre d'outils Standard. J'aimerais que ce bouton apparaisse à l'ouverture du fichier et qu'il disparaisse à sa fermeture.
Pour le premier point je pensais pouvoir m'en sortir avec l'enregistreur de
macro mais il me crée bien un bouton mais c'est celui par défaut et non celui que j'avais personnalisé et en plus la macro associée à ce bouton n' y
est plus. La ligne de commande de l'enregistreur est : Application.CommandBars("Standard").Controls.Add Type:=msControlButton, ID:)50, Before:=9
Pouriez vous m'aider pour avoir les lignes de code pour avoir mon Bouton associé à la macro Transfert quand le fichier Excel s'ouvre et pour que ce bouton disparaisse à sa fermeture. J'en demande beaucoup mais en tout merci
