rendre inactif le menu "Outils/Options..." dans Excel

Excusez moi, mais je ne comprends pas bien... Qd je tape
ce que me propose ru-th, cad : Private Sub Workbook_Open
()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que m'explique
jps... Il me semble pourtan que la macro est ben dans le
classeur correspondant... A quoi puis-je voir cela ? Je
ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le
module du classeur

qui t'intéresse mais dans le classeur de macros
personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce
classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:=522).enabled=false" pour les options et avec
l'id:=30017, pour les macros, cela me désactive bien
ce

que je veux, mais sur l'ensemble des classeurs Excel.
Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi, ce
que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui permet
de

gérer informatiquement résultats et classements d'une
compétition de Gym...), qu'il n'aille pas bidouiller
dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je veux
dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce qui
est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je
bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la méthode "Controls" de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce lâcheur...
jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne vient

pas de ces variables.

.

.

bonjour JPhL
pour mieux verstander, il faut absolument -et ce, dès maintenant sinon
je sévis- que tu ailles faire un tour dans le VBE (Visual Basic Editor),
ce que tu ne sembles pae encore bien connaître....
fais un chtiot coup de Alt + F11 quand tu es sur ton classeur et regarde
l'arborescence à gauche de la fenêtre qui s'ouvre (tu dois y voir ton
classeur avec son module ThisWorkbook) puis à droite les modules où se
trouvent écrites les procs ; tu vérifies si ce que tu dis avoir écrit
est bien dans le module This Workbook de ton classeur...
HTH
jps

JPhL a écrit:

Excusez moi, mais je ne comprends pas bien... Qd je tape
ce que me propose ru-th, cad : Private Sub Workbook_Open
()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que m'explique
jps... Il me semble pourtan que la macro est ben dans le
classeur correspondant... A quoi puis-je voir cela ? Je
ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le

module du classeur

qui t'intéresse mais dans le classeur de macros

personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce

classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:R2).enabledúlse" pour les options et avec
l'id:0017, pour les macros, cela me désactive bien

ce

que je veux, mais sur l'ensemble des classeurs Excel.
Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi, ce

que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui permet

de

gérer informatiquement résultats et classements d'une
compétition de Gym...), qu'il n'aille pas bidouiller

dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je veux
dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce qui

est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je

bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la méthode "Controls" de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce lâcheur...
jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne vient

pas de ces variables.

.

.

Mais, j'étais déjà allé dans VBE... Mais, jamais fait le
rapprochement avec "This Workbook " du classeur ! Bon,
j'ai bien mis les formules suivantes dans "This Workbook"

"Sub Désactiver_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:=30017).Enabled = False
End Sub" et

"Sub Activation_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:=30017).Enabled = True
End Sub"

Et, quand j'execute, toujours pareil, valable ^pour tout
classeur que j'ouvre... Alosr là, je bloque encore...

Et encore merci pour vos lumières...

JPhL

-----Message d'origine-----
bonjour JPhL
pour mieux verstander, il faut absolument -et ce, dès
maintenant sinon

je sévis- que tu ailles faire un tour dans le VBE
(Visual Basic Editor),

ce que tu ne sembles pae encore bien connaître....
fais un chtiot coup de Alt + F11 quand tu es sur ton
classeur et regarde

l'arborescence à gauche de la fenêtre qui s'ouvre (tu
dois y voir ton

classeur avec son module ThisWorkbook) puis à droite
les modules où se

trouvent écrites les procs ; tu vérifies si ce que tu
dis avoir écrit

est bien dans le module This Workbook de ton classeur...
HTH
jps

JPhL a écrit:

Excusez moi, mais je ne comprends pas bien... Qd je
tape

ce que me propose ru-th, cad : Private Sub
Workbook_Open

()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que m'explique
jps... Il me semble pourtan que la macro est ben dans
le

classeur correspondant... A quoi puis-je voir cela ?
Je

ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le

module du classeur

qui t'intéresse mais dans le classeur de macros

personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce

classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:=522).enabled=false" pour les options et avec
l'id:=30017, pour les macros, cela me désactive bien

ce

que je veux, mais sur l'ensemble des classeurs Excel.
Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi, ce

que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui permet

de

gérer informatiquement résultats et classements d'une
compétition de Gym...), qu'il n'aille pas bidouiller

dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je veux
dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce qui

est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je

bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la méthode "Controls"
de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de
LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce lâcheur...
jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand
ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne vient

pas de ces variables.

.

.

.

bonjour JPhL,

ne te décourage pas tu va y arrivé.

se n'est pas les macro que tu vient de décrire qu'il faut mettre sur la
page code de ThisWokbook, mais celle ci

Private Sub Workbook_Open()
application.commandbars("Tools").findcontrol(id:R2).enabledúlse
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
application.commandbars("Tools").findcontrol(id:R2).enabled=true
End Sub

ensuite tu enregistre le classeur, tu le ferme et le réouvre. et là le
menu Outils/Options sera (grisé) non disponible.

isabelle

Mais, j'étais déjà allé dans VBE... Mais, jamais fait le
rapprochement avec "This Workbook " du classeur ! Bon,
j'ai bien mis les formules suivantes dans "This Workbook"

"Sub Désactiver_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:0017).Enabled = False
End Sub" et

"Sub Activation_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:0017).Enabled = True
End Sub"

Et, quand j'execute, toujours pareil, valable ^pour tout
classeur que j'ouvre... Alosr là, je bloque encore...

Et encore merci pour vos lumières...

JPhL

-----Message d'origine-----
bonjour JPhL
pour mieux verstander, il faut absolument -et ce, dès
maintenant sinon

je sévis- que tu ailles faire un tour dans le VBE
(Visual Basic Editor),

ce que tu ne sembles pae encore bien connaître....
fais un chtiot coup de Alt + F11 quand tu es sur ton
classeur et regarde

l'arborescence à gauche de la fenêtre qui s'ouvre (tu
dois y voir ton

classeur avec son module ThisWorkbook) puis à droite
les modules où se

trouvent écrites les procs ; tu vérifies si ce que tu
dis avoir écrit

est bien dans le module This Workbook de ton classeur...
HTH
jps

JPhL a écrit:

Excusez moi, mais je ne comprends pas bien... Qd je
tape

ce que me propose ru-th, cad : Private Sub
Workbook_Open

()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que m'explique
jps... Il me semble pourtan que la macro est ben dans
le

classeur correspondant... A quoi puis-je voir cela ?
Je

ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le

module du classeur

qui t'intéresse mais dans le classeur de macros

personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce

classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:R2).enabledúlse" pour les options et avec
l'id:0017, pour les macros, cela me désactive bien

ce

que je veux, mais sur l'ensemble des classeurs Excel.
Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi, ce

que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui permet

de

gérer informatiquement résultats et classements d'une
compétition de Gym...), qu'il n'aille pas bidouiller

dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je veux
dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce qui

est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je

bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la méthode "Controls"
de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de
LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce lâcheur...
jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand
ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne vient

pas de ces variables.

.

.

.

j'oubliais, la commande est rendu INdisponible à l'ouverture du classeur
par la macro événementiel
Private Sub Workbook_Open()

et rétablie lors de fermeture du fichier par la macro événementiel
Private Sub Workbook_BeforeClose

donc tu peux en déduire que cette effet n'est valable que sur ce
classeur et non sur les autres.

isabelle

Mais, j'étais déjà allé dans VBE... Mais, jamais fait le
rapprochement avec "This Workbook " du classeur ! Bon,
j'ai bien mis les formules suivantes dans "This Workbook"

"Sub Désactiver_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:0017).Enabled = False
End Sub" et

"Sub Activation_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:0017).Enabled = True
End Sub"

Et, quand j'execute, toujours pareil, valable ^pour tout
classeur que j'ouvre... Alosr là, je bloque encore...

Et encore merci pour vos lumières...

JPhL

-----Message d'origine-----
bonjour JPhL
pour mieux verstander, il faut absolument -et ce, dès
maintenant sinon

je sévis- que tu ailles faire un tour dans le VBE
(Visual Basic Editor),

ce que tu ne sembles pae encore bien connaître....
fais un chtiot coup de Alt + F11 quand tu es sur ton
classeur et regarde

l'arborescence à gauche de la fenêtre qui s'ouvre (tu
dois y voir ton

classeur avec son module ThisWorkbook) puis à droite
les modules où se

trouvent écrites les procs ; tu vérifies si ce que tu
dis avoir écrit

est bien dans le module This Workbook de ton classeur...
HTH
jps

JPhL a écrit:

Excusez moi, mais je ne comprends pas bien... Qd je
tape

ce que me propose ru-th, cad : Private Sub
Workbook_Open

()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que m'explique
jps... Il me semble pourtan que la macro est ben dans
le

classeur correspondant... A quoi puis-je voir cela ?
Je

ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le

module du classeur

qui t'intéresse mais dans le classeur de macros

personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce

classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:R2).enabledúlse" pour les options et avec
l'id:0017, pour les macros, cela me désactive bien

ce

que je veux, mais sur l'ensemble des classeurs Excel.
Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi, ce

que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui permet

de

gérer informatiquement résultats et classements d'une
compétition de Gym...), qu'il n'aille pas bidouiller

dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je veux
dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce qui

est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je

bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la méthode "Controls"
de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de
LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce lâcheur...
jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand
ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne vient

pas de ces variables.

.

.

.

Bonsoir Isabelle et merci de te mêler à la convrsation...
Bon, j'ai fait tout comme t'as dit et ca marche... Merci
beaucoup... par contre, si je veux faire la même
opération avec le menu Macros (ID:=30017) et que je
réécris les forumules en ne changeant que les ID, un
mesage d'erreur... Je viens d'avoir une idée, je viens
d'essayer et ça marche ! Je commence à comprendre la

Private Sub Workbook_Open()
Application.CommandBars("Tools").FindControl
(ID:=522).Enabled = False
Application.CommandBars("Tools").FindControl
(ID:=30017).Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tools").FindControl
(ID:=522).Enabled = True
Application.CommandBars("Tools").FindControl
(ID:=30017).Enabled = True
End Sub

En cumulant les formules des deux ID à désactiver...
Ouf...

Un immense merci à tout le monde car, les réponses ont
fusées dans tous les sens et ca a été efficace...

Un grand merci !

-----Message d'origine-----
j'oubliais, la commande est rendu INdisponible à
l'ouverture du classeur

par la macro événementiel
Private Sub Workbook_Open()

et rétablie lors de fermeture du fichier par la macro
événementiel

Private Sub Workbook_BeforeClose

donc tu peux en déduire que cette effet n'est valable
que sur ce

classeur et non sur les autres.

isabelle

Mais, j'étais déjà allé dans VBE... Mais, jamais fait
le

rapprochement avec "This Workbook " du classeur ! Bon,
j'ai bien mis les formules suivantes dans "This
Workbook"

"Sub Désactiver_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:=30017).Enabled = False
End Sub" et

"Sub Activation_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:=30017).Enabled = True
End Sub"

Et, quand j'execute, toujours pareil, valable ^pour
tout

classeur que j'ouvre... Alosr là, je bloque encore...

Et encore merci pour vos lumières...

JPhL

-----Message d'origine-----
bonjour JPhL
pour mieux verstander, il faut absolument -et ce, dès
maintenant sinon

je sévis- que tu ailles faire un tour dans le VBE
(Visual Basic Editor),

ce que tu ne sembles pae encore bien connaître....
fais un chtiot coup de Alt + F11 quand tu es sur ton
classeur et regarde

l'arborescence à gauche de la fenêtre qui s'ouvre (tu
dois y voir ton

classeur avec son module ThisWorkbook) puis à droite
les modules où se

trouvent écrites les procs ; tu vérifies si ce que tu
dis avoir écrit

est bien dans le module This Workbook de ton
classeur...

HTH
jps

JPhL a écrit:

Excusez moi, mais je ne comprends pas bien... Qd je
tape

ce que me propose ru-th, cad : Private Sub
Workbook_Open

()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que
m'explique

jps... Il me semble pourtan que la macro est ben
dans

le

classeur correspondant... A quoi puis-je voir cela ?
Je

ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le

module du classeur

qui t'intéresse mais dans le classeur de macros

personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce

classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:=522).enabled=false" pour les options et avec
l'id:=30017, pour les macros, cela me désactive
bien

ce

que je veux, mais sur l'ensemble des classeurs
Excel.

Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi,
ce

que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui
permet

de

gérer informatiquement résultats et classements
d'une

compétition de Gym...), qu'il n'aille pas
bidouiller

dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je
veux

dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce
qui

est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je

bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la
méthode "Controls"

de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de
LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce
lâcheur...

jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand
ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne
vient

pas de ces variables.

.

.

.

.

attends-toi à ce que philippe R réponde à tes mercis, JPhL : il adore,
surtout quand il n'est pour rien dans la réussite du demandeur....
jps
PS j'ai fait une recherche sur Google : j'ai trouvé 14729 posts où
philippe répond "C'était avec plaisir" et 23456 avec seulement "Avec
plaisir"


JPhL a écrit:

Un immense merci à tout le monde car, les réponses ont
fusées dans tous les sens et ca a été efficace...

Un grand merci !

-----Message d'origine-----
j'oubliais, la commande est rendu INdisponible à

l'ouverture du classeur

par la macro événementiel
Private Sub Workbook_Open()

et rétablie lors de fermeture du fichier par la macro

événementiel

Private Sub Workbook_BeforeClose

donc tu peux en déduire que cette effet n'est valable

que sur ce

classeur et non sur les autres.

isabelle

Mais, j'étais déjà allé dans VBE... Mais, jamais fait

le

rapprochement avec "This Workbook " du classeur ! Bon,
j'ai bien mis les formules suivantes dans "This

Workbook"

"Sub Désactiver_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:0017).Enabled = False
End Sub" et

"Sub Activation_macro_HG()
Application.CommandBars("Tools").FindControl
(ID:0017).Enabled = True
End Sub"

Et, quand j'execute, toujours pareil, valable ^pour

tout

classeur que j'ouvre... Alosr là, je bloque encore...

Et encore merci pour vos lumières...

JPhL

-----Message d'origine-----
bonjour JPhL
pour mieux verstander, il faut absolument -et ce, dès

maintenant sinon

je sévis- que tu ailles faire un tour dans le VBE

(Visual Basic Editor),

ce que tu ne sembles pae encore bien connaître....
fais un chtiot coup de Alt + F11 quand tu es sur ton

classeur et regarde

l'arborescence à gauche de la fenêtre qui s'ouvre (tu

dois y voir ton

classeur avec son module ThisWorkbook) puis à droite

les modules où se

trouvent écrites les procs ; tu vérifies si ce que tu

dis avoir écrit

est bien dans le module This Workbook de ton

classeur...

HTH
jps

JPhL a écrit:

Excusez moi, mais je ne comprends pas bien... Qd je

tape

ce que me propose ru-th, cad : Private Sub

Workbook_Open

()... ou Private Sub Workbook_BeforeClose(Cancel As
Boolean)..., les macros n'apparaissent pas dans le
classeur. Par contre, je ne vois pas ce que

m'explique

jps... Il me semble pourtan que la macro est ben

dans

le

classeur correspondant... A quoi puis-je voir cela ?

Je

ne verstande rien du tout...

Merci de m'éclairer de vos lumières...

-----Message d'origine-----
bonjour annnymous
c'est parce que ta macro n'a pas été écrite dans le

module du classeur

qui t'intéresse mais dans le classeur de macros

personnelles (alias

perso.xls)...vire-la de là et mets-la dans "ce

classeur"...

verstanden?
jps

anonymous@discussions.microsoft.com a écrit:

Merci à tous pour vos réponses qui m'ont été très
instructive. Par contre, petit pb encore :
Quand j'applque ces macros :

"application.commandbars("Tools").findcontrol
(id:R2).enabledúlse" pour les options et avec
l'id:0017, pour les macros, cela me désactive

bien

ce

que je veux, mais sur l'ensemble des classeurs

Excel.

Même si celui avec lequel j'ai créé les macros est
fermé ! Même si aucun classeur n'est ouvert ! Moi,

ce

que

je voudrais, si c'est possible, c'est que cela ne
s'applique qu'au classeur concerné pour que, quand
qlqu'un se sert de mon classeur (classeur qui

permet

de

gérer informatiquement résultats et classements

d'une

compétition de Gym...), qu'il n'aille pas

bidouiller

dans

les macros et autres liens pour que mon truc ne
fonctionne plus ensuite... Vous voyez ce que je

veux

dire ?

-----Message d'origine-----
oui, tu as misé juste, nicolas
j'avais, par je ne sais quel hasard I = 0 et (ce

qui

est

juste) J = 1 ;

j'ai donc créé un I = 1 mais voilà-t-y pas que je

bogue

maintenant sur

For Each Ctrl In CmdB.Controls

avec une erreur d'exécution : la

méthode "Controls"

de

l'objet

"CommandBarPopup" a échoué....

mais qu'est ce qu'il a fichu encore ce charlot de

LL?

l'a pas testé, je

suis certain, sûr de lui comme il était ce

lâcheur...

jps

Nicolas B. a écrit:

Qu'est-ce que tu as comme valeurs de I et J quand

ça

plante ?

Si les valeurs sont 1 et 1, alors l'erreur ne

vient

pas de ces variables.

.

.

.

.