Modification du comportement de l'article Fermer du menu Fichier
4 réponses
Jean-Marie Lambert
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer"
quand je choisis Fichier / Fermer.
Private Sub Workbook_Open()
nomMenu = "&Fichier"
nomArticle = "&Fermer"
Application.CommandBars("Worksheet Menu
Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer"
End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer
le document, Comment puis-je faire ?
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
LSteph
Bonjour,
Si j'ai bien compris au lieu defaire ceci dans le _Open Mets directement ce que doit faire ta macro autrefermer avant de fermer dans le _BeforeClose exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "aurevoir" End Sub
lSteph
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
Bonjour,
Si j'ai bien compris au lieu defaire ceci dans le _Open
Mets directement ce que doit faire ta macro autrefermer avant de fermer
dans le _BeforeClose exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "aurevoir"
End Sub
lSteph
"Jean-Marie Lambert" <JeanMarieLambert@discussions.microsoft.com> a écrit
dans le message de news:
E04221BB-6BF0-4839-9A91-55CB0EE19EAE@microsoft.com...
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro
"autreFermer"
quand je choisis Fichier / Fermer.
Private Sub Workbook_Open()
nomMenu = "&Fichier"
nomArticle = "&Fermer"
Application.CommandBars("Worksheet Menu
Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer"
End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer
le document, Comment puis-je faire ?
Si j'ai bien compris au lieu defaire ceci dans le _Open Mets directement ce que doit faire ta macro autrefermer avant de fermer dans le _BeforeClose exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "aurevoir" End Sub
lSteph
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
LSteph
...j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean) If IsEmpty([a1]) Then MsgBox "Vous devez remplir A1" Cancel = True Else MsgBox "au revoir" End If End Sub
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
...j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty([a1]) Then
MsgBox "Vous devez remplir A1"
Cancel = True
Else
MsgBox "au revoir"
End If
End Sub
"Jean-Marie Lambert" <JeanMarieLambert@discussions.microsoft.com> a écrit
dans le message de news:
E04221BB-6BF0-4839-9A91-55CB0EE19EAE@microsoft.com...
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro
"autreFermer"
quand je choisis Fichier / Fermer.
Private Sub Workbook_Open()
nomMenu = "&Fichier"
nomArticle = "&Fermer"
Application.CommandBars("Worksheet Menu
Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer"
End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer
le document, Comment puis-je faire ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) If IsEmpty([a1]) Then MsgBox "Vous devez remplir A1" Cancel = True Else MsgBox "au revoir" End If End Sub
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
Jean-Marie Lambert
Merci pour vos réponses.
Mais je voudrais utiliser cette macro pour tous les classeurs ouverts (sans insérer ce code VBA dans ces classeurs).
Jean-Marie
....j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean) If IsEmpty([a1]) Then MsgBox "Vous devez remplir A1" Cancel = True Else MsgBox "au revoir" End If End Sub
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
Merci pour vos réponses.
Mais je voudrais utiliser cette macro pour tous les classeurs ouverts (sans
insérer ce code VBA dans ces classeurs).
Jean-Marie
....j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty([a1]) Then
MsgBox "Vous devez remplir A1"
Cancel = True
Else
MsgBox "au revoir"
End If
End Sub
"Jean-Marie Lambert" <JeanMarieLambert@discussions.microsoft.com> a écrit
dans le message de news:
E04221BB-6BF0-4839-9A91-55CB0EE19EAE@microsoft.com...
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro
"autreFermer"
quand je choisis Fichier / Fermer.
Private Sub Workbook_Open()
nomMenu = "&Fichier"
nomArticle = "&Fermer"
Application.CommandBars("Worksheet Menu
Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer"
End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer
le document, Comment puis-je faire ?
Mais je voudrais utiliser cette macro pour tous les classeurs ouverts (sans insérer ce code VBA dans ces classeurs).
Jean-Marie
....j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean) If IsEmpty([a1]) Then MsgBox "Vous devez remplir A1" Cancel = True Else MsgBox "au revoir" End If End Sub
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
Ange Ounis
Utilise un module de classe pour personnaliser le comportement d'Excel pour tous les classeurs ouverts. Un exemple ici (mdp zaza) :
Mais je voudrais utiliser cette macro pour tous les classeurs ouverts (sans insérer ce code VBA dans ces classeurs).
Jean-Marie
....j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean) If IsEmpty([a1]) Then MsgBox "Vous devez remplir A1" Cancel = True Else MsgBox "au revoir" End If End Sub
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?
Bonne fête à tous.
Jean-Marie Lambert
Utilise un module de classe pour personnaliser le comportement d'Excel pour tous
les classeurs ouverts. Un exemple ici (mdp zaza) :
Mais je voudrais utiliser cette macro pour tous les classeurs ouverts (sans
insérer ce code VBA dans ces classeurs).
Jean-Marie
....j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty([a1]) Then
MsgBox "Vous devez remplir A1"
Cancel = True
Else
MsgBox "au revoir"
End If
End Sub
"Jean-Marie Lambert" <JeanMarieLambert@discussions.microsoft.com> a écrit
dans le message de news:
E04221BB-6BF0-4839-9A91-55CB0EE19EAE@microsoft.com...
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro
"autreFermer"
quand je choisis Fichier / Fermer.
Private Sub Workbook_Open()
nomMenu = "&Fichier"
nomArticle = "&Fermer"
Application.CommandBars("Worksheet Menu
Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer"
End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer
le document, Comment puis-je faire ?
Mais je voudrais utiliser cette macro pour tous les classeurs ouverts (sans insérer ce code VBA dans ces classeurs).
Jean-Marie
....j'oubliais si besoin d'alternative exemple
Private Sub Workbook_BeforeClose(Cancel As Boolean) If IsEmpty([a1]) Then MsgBox "Vous devez remplir A1" Cancel = True Else MsgBox "au revoir" End If End Sub
"Jean-Marie Lambert" a écrit dans le message de news:
Bonjour,
A l'aide de la macro suivante, je parviens à executer la macro "autreFermer" quand je choisis Fichier / Fermer.
Private Sub Workbook_Open() nomMenu = "&Fichier" nomArticle = "&Fermer" Application.CommandBars("Worksheet Menu Bar").Controls(nomMenu).Controls(nomArticle).OnAction = "autreFermer" End Sub
MAIS cette macro ne s"exécute pas quand on clique sur la croix pour fermer le document, Comment puis-je faire ?