OVH Cloud OVH Cloud

macro affectée à un seul classeur

5 réponses
Avatar
sympatix
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.

5 réponses

Avatar
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.



Avatar
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.







Avatar
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.


Avatar
sympatix
Bonjour !

supprimer 1 ou 2 "toto", sympatix?
Oui, c'est vrai, c'est peut-être pas très clair, du coup, j'ai changé ma

signature ;-)

Merci, à+

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

"sabatier" a écrit dans le message de
news:
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.





Avatar
Modeste
;-)))
en mettant Marie-Rose y-a-pu toto !!!!
-----Message d'origine-----
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.


.