J'ai affecté une macro à un bouton, dans la barre d'outil d'un classeur.
Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un autre
fichier excel.
Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai crée
la macro.
En d'autres termes, je voudrais que la macro ne soit utilisable que dans
le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement
Sympatix
Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, supprimer "toto" merci.
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
ChrisV
Bonjour sympatix,
Un petit exemple...
Dans un module du classeur
Sub CreateMyBO() Set myBO = CommandBars("Standard").Controls.Add With myBO .Caption = "Informations" .FaceId = 487 .OnAction = "zaza" End With End Sub
Sub DeleteMyBO() On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Delete End Sub
Sub zaza() MsgBox "A bientôt sur MPFE" End Sub
dans la feuille de code de ThisWorbook
Private Sub Workbook_Open() CreateMyBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) DeleteMyBO End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = True End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = False End Sub
ChrisV
"sympatix" a écrit dans le message de news: #
Bonjour à tous !
J'ai affecté une macro à un bouton, dans la barre d'outil d'un classeur. Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un autre fichier excel. Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai crée la macro. En d'autres termes, je voudrais que la macro ne soit utilisable que dans le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement Sympatix
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
Bonjour sympatix,
Un petit exemple...
Dans un module du classeur
Sub CreateMyBO()
Set myBO = CommandBars("Standard").Controls.Add
With myBO
.Caption = "Informations"
.FaceId = 487
.OnAction = "zaza"
End With
End Sub
Sub DeleteMyBO()
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("Informations").Delete
End Sub
Sub zaza()
MsgBox "A bientôt sur MPFE"
End Sub
dans la feuille de code de ThisWorbook
Private Sub Workbook_Open()
CreateMyBO
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteMyBO
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("Informations").Visible = True
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("Informations").Visible = False
End Sub
ChrisV
"sympatix" <totosympatix@tototele2.fr> a écrit dans le message de news:
#clU6n07DHA.2404@TK2MSFTNGP11.phx.gbl...
Bonjour à tous !
J'ai affecté une macro à un bouton, dans la barre d'outil d'un classeur.
Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un autre
fichier excel.
Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai crée
la macro.
En d'autres termes, je voudrais que la macro ne soit utilisable que dans
le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement
Sympatix
Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, supprimer "toto" merci.
Sub CreateMyBO() Set myBO = CommandBars("Standard").Controls.Add With myBO .Caption = "Informations" .FaceId = 487 .OnAction = "zaza" End With End Sub
Sub DeleteMyBO() On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Delete End Sub
Sub zaza() MsgBox "A bientôt sur MPFE" End Sub
dans la feuille de code de ThisWorbook
Private Sub Workbook_Open() CreateMyBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) DeleteMyBO End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = True End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = False End Sub
ChrisV
"sympatix" a écrit dans le message de news: #
Bonjour à tous !
J'ai affecté une macro à un bouton, dans la barre d'outil d'un classeur. Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un autre fichier excel. Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai crée la macro. En d'autres termes, je voudrais que la macro ne soit utilisable que dans le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement Sympatix
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
sympatix
Salut !
Merci pour tes inhfos... Mais entre temps, j'ai trouvé une manipe qui correspond peut-être plus à ce que je cherche, c'est de lancer ma macro par le clic dans une cellule. ça n'apparait alors qu'en local (dans le classeur , ou la feuille souhaitée), et permet d'éviter les boutons.
Merci encore :-) à+
Cordialement Sympatix
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
"ChrisV" a écrit dans le message de news:
Bonjour sympatix,
Un petit exemple...
Dans un module du classeur
Sub CreateMyBO() Set myBO = CommandBars("Standard").Controls.Add With myBO .Caption = "Informations" .FaceId = 487 .OnAction = "zaza" End With End Sub
Sub DeleteMyBO() On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Delete End Sub
Sub zaza() MsgBox "A bientôt sur MPFE" End Sub
dans la feuille de code de ThisWorbook
Private Sub Workbook_Open() CreateMyBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) DeleteMyBO End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = True End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = False End Sub
ChrisV
"sympatix" a écrit dans le message de news:
#
Bonjour à tous !
J'ai affecté une macro à un bouton, dans la barre d'outil d'un classeur.
Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un autre
fichier excel. Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai crée
la macro. En d'autres termes, je voudrais que la macro ne soit utilisable que dans
le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement Sympatix
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
Salut !
Merci pour tes inhfos...
Mais entre temps, j'ai trouvé une manipe qui correspond peut-être plus à
ce que je cherche, c'est de lancer ma macro par le clic dans une
cellule.
ça n'apparait alors qu'en local (dans le classeur , ou la feuille
souhaitée), et permet d'éviter les boutons.
Merci encore :-)
à+
Cordialement
Sympatix
Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, supprimer "toto" merci.
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:eh7vQQ17DHA.2480@TK2MSFTNGP10.phx.gbl...
Bonjour sympatix,
Un petit exemple...
Dans un module du classeur
Sub CreateMyBO()
Set myBO = CommandBars("Standard").Controls.Add
With myBO
.Caption = "Informations"
.FaceId = 487
.OnAction = "zaza"
End With
End Sub
Sub DeleteMyBO()
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("Informations").Delete
End Sub
Sub zaza()
MsgBox "A bientôt sur MPFE"
End Sub
dans la feuille de code de ThisWorbook
Private Sub Workbook_Open()
CreateMyBO
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteMyBO
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("Informations").Visible = True
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("Informations").Visible = False
End Sub
ChrisV
"sympatix" <totosympatix@tototele2.fr> a écrit dans le message de
news:
#clU6n07DHA.2404@TK2MSFTNGP11.phx.gbl...
Bonjour à tous !
J'ai affecté une macro à un bouton, dans la barre d'outil d'un
classeur.
Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un
autre
fichier excel.
Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai
crée
la macro.
En d'autres termes, je voudrais que la macro ne soit utilisable que
dans
le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement
Sympatix
Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, supprimer "toto" merci.
Merci pour tes inhfos... Mais entre temps, j'ai trouvé une manipe qui correspond peut-être plus à ce que je cherche, c'est de lancer ma macro par le clic dans une cellule. ça n'apparait alors qu'en local (dans le classeur , ou la feuille souhaitée), et permet d'éviter les boutons.
Merci encore :-) à+
Cordialement Sympatix
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
"ChrisV" a écrit dans le message de news:
Bonjour sympatix,
Un petit exemple...
Dans un module du classeur
Sub CreateMyBO() Set myBO = CommandBars("Standard").Controls.Add With myBO .Caption = "Informations" .FaceId = 487 .OnAction = "zaza" End With End Sub
Sub DeleteMyBO() On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Delete End Sub
Sub zaza() MsgBox "A bientôt sur MPFE" End Sub
dans la feuille de code de ThisWorbook
Private Sub Workbook_Open() CreateMyBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) DeleteMyBO End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = True End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next Application.CommandBars("Standard") _ .Controls("Informations").Visible = False End Sub
ChrisV
"sympatix" a écrit dans le message de news:
#
Bonjour à tous !
J'ai affecté une macro à un bouton, dans la barre d'outil d'un classeur.
Le problème, c'est que ce bouton apparait aussi lorsque j'ouvre un autre
fichier excel. Comment faire pour qu'il n'apparaisse que dans le classeur où j'ai crée
la macro. En d'autres termes, je voudrais que la macro ne soit utilisable que dans
le classeur où je l'ai crée.
Merci d'avance :-)
Cordialement Sympatix
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
sabatier
supprimer 1 ou 2 "toto", sympatix? enfin, moi je dis ça dans un souci de clarté absolue... jps
sympatix a écrit:
Attention, est mon adresse antispam non valide. Pour me répondre, supprimer "toto" merci.
supprimer 1 ou 2 "toto", sympatix?
enfin, moi je dis ça dans un souci de clarté absolue...
jps
sympatix a écrit:
Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, supprimer "toto" merci.