Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui" je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui" je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui" je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui" je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui" je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui" je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Salut Mathieu
ceci devrait te convenir :
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
Else
Exit Sub
End If
End If
dit moi ??Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Salut Mathieu
ceci devrait te convenir :
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
Else
Exit Sub
End If
End If
dit moi ??
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Salut Mathieu
ceci devrait te convenir :
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
Else
Exit Sub
End If
End If
dit moi ??Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demande
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
merci de m'avoir répondu FFO
ton code me donne me lance une boite de dialogue si la cellule est non vide,
ok !!
mais le pti souci c'est qu'après ta boite de dial, j'ai toujours la boite
d'excel me domandant si je veux sauvegarder ou pas avec le "oui" "non"
"annuler" et j'aimerais justement me passer de cette boite pour ne pas que
les utilisateur fasse n'importe quoi... (oui je fais parti de ceux qui ne
prefere pas trop laisser de liberté sur certaine chose, ça évite d'avoir des
enquiquinements ;-)
merci
Mathieu
"FFO" a écrit dans le message de news:Salut Mathieu
ceci devrait te convenir :
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
Else
Exit Sub
End If
End If
dit moi ??Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
merci de m'avoir répondu FFO
ton code me donne me lance une boite de dialogue si la cellule est non vide,
ok !!
mais le pti souci c'est qu'après ta boite de dial, j'ai toujours la boite
d'excel me domandant si je veux sauvegarder ou pas avec le "oui" "non"
"annuler" et j'aimerais justement me passer de cette boite pour ne pas que
les utilisateur fasse n'importe quoi... (oui je fais parti de ceux qui ne
prefere pas trop laisser de liberté sur certaine chose, ça évite d'avoir des
enquiquinements ;-)
merci
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
693FC0A7-080F-4323-933A-BA058A4B7AAD@microsoft.com...
Salut Mathieu
ceci devrait te convenir :
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
Else
Exit Sub
End If
End If
dit moi ??
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
merci de m'avoir répondu FFO
ton code me donne me lance une boite de dialogue si la cellule est non vide,
ok !!
mais le pti souci c'est qu'après ta boite de dial, j'ai toujours la boite
d'excel me domandant si je veux sauvegarder ou pas avec le "oui" "non"
"annuler" et j'aimerais justement me passer de cette boite pour ne pas que
les utilisateur fasse n'importe quoi... (oui je fais parti de ceux qui ne
prefere pas trop laisser de liberté sur certaine chose, ça évite d'avoir des
enquiquinements ;-)
merci
Mathieu
"FFO" a écrit dans le message de news:Salut Mathieu
ceci devrait te convenir :
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
Else
Exit Sub
End If
End If
dit moi ??Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
je viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
je viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4877135E-6FD5-4625-AA6D-5BEFC8710D52@microsoft.com...
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demande
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
je viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si "oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisionsje viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisions
je viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4877135E-6FD5-4625-AA6D-5BEFC8710D52@microsoft.com...
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demande
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisionsje viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
merci de m'aider ds mon pti souci
ce que j'ai fait c'est que j'ai copié ton code direct ds un nouveau fichier
excel dans ThisWorkBook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
End Sub
voici mes résultats :
- si A1 est vide :
je fais fichier quitter => message "le fichier est vide" puis fermeture
du classeur
- si A1 est remplie :
je fais fichier quitter => message "voulez vous ..."
si je clique sur "oui" rien ne se passe, je doit recliquer sur oui
et le classeur se ferme
si je clique sur "non" un message d'excel me demande si je veux
enregistrer les modif (oui, non, annuler)
si je fais "annuler" : je reste bien ds le fichier
si je fais "non" : fermeture d'excel
si je fais "oui" : sauvegarde du fichier puis fermeture d'excel
je sais c'est un peu bizarre, mais n'y aurait il pas des options à cocher ou
décocher ou un pb de version (excel 2003)
mais cela m'étonnerait fort...
as tu une idée avec ce que je viens de te décrire ??
merci beaucoup
Mathieu
"FFO" a écrit dans le message de news:Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisionsje viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
merci de m'aider ds mon pti souci
ce que j'ai fait c'est que j'ai copié ton code direct ds un nouveau fichier
excel dans ThisWorkBook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
End Sub
voici mes résultats :
- si A1 est vide :
je fais fichier quitter => message "le fichier est vide" puis fermeture
du classeur
- si A1 est remplie :
je fais fichier quitter => message "voulez vous ..."
si je clique sur "oui" rien ne se passe, je doit recliquer sur oui
et le classeur se ferme
si je clique sur "non" un message d'excel me demande si je veux
enregistrer les modif (oui, non, annuler)
si je fais "annuler" : je reste bien ds le fichier
si je fais "non" : fermeture d'excel
si je fais "oui" : sauvegarde du fichier puis fermeture d'excel
je sais c'est un peu bizarre, mais n'y aurait il pas des options à cocher ou
décocher ou un pb de version (excel 2003)
mais cela m'étonnerait fort...
as tu une idée avec ce que je viens de te décrire ??
merci beaucoup
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
8FFD5956-7234-4549-B02E-28EF56A1247F@microsoft.com...
Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisions
je viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4877135E-6FD5-4625-AA6D-5BEFC8710D52@microsoft.com...
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demande
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
merci de m'aider ds mon pti souci
ce que j'ai fait c'est que j'ai copié ton code direct ds un nouveau fichier
excel dans ThisWorkBook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
End Sub
voici mes résultats :
- si A1 est vide :
je fais fichier quitter => message "le fichier est vide" puis fermeture
du classeur
- si A1 est remplie :
je fais fichier quitter => message "voulez vous ..."
si je clique sur "oui" rien ne se passe, je doit recliquer sur oui
et le classeur se ferme
si je clique sur "non" un message d'excel me demande si je veux
enregistrer les modif (oui, non, annuler)
si je fais "annuler" : je reste bien ds le fichier
si je fais "non" : fermeture d'excel
si je fais "oui" : sauvegarde du fichier puis fermeture d'excel
je sais c'est un peu bizarre, mais n'y aurait il pas des options à cocher ou
décocher ou un pb de version (excel 2003)
mais cela m'étonnerait fort...
as tu une idée avec ce que je viens de te décrire ??
merci beaucoup
Mathieu
"FFO" a écrit dans le message de news:Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisionsje viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
En aucun cas tu peux avoir en exécutant mon code un message avec une
information du type "enregistrer les modif (oui, non, annuler)"
Cette invitation n'intervient que suite à des modifications effectuées
indépendemment de celles de la macro que tu n'aurais pas enregistrées
(modification du code, saisie quelconque dans le classeur)
Avant donc tout essai faire un enregistrement
Il ya quelque chose que je ne comprends dans le résultat à obtenir :
cellule vide : MsgBox "Le fichier est vide" et fermeture (OK)
Cellule remplie : 2 options avec message MsgBox("Voulez vous quitter sans
enregistrer ???", vbYesNo)
Oui fermeture sans enregistrer (OK)
Et pour non : ?????
Ton souhait jusqu'à lors était de maintenir ton document ouvert en l'état
Si tu utilises ThisWorkBook en déclarant la macro avec Private Sub
Workbook_BeforeClose(Cancel As Boolean) celà devient contradictoire
Merci de m'éclaircir et surtout de me dire ce que tu attends avec l'option
"Non"
En tout état de cause modifies le code ainsi :
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
Application.EnableEvents = False
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
La 2° confirmation intempestive sera supprimée
Dans l'attente de tes précisionsmerci de m'aider ds mon pti souci
ce que j'ai fait c'est que j'ai copié ton code direct ds un nouveau
fichier
excel dans ThisWorkBook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) =
vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
End Sub
voici mes résultats :
- si A1 est vide :
je fais fichier quitter => message "le fichier est vide" puis
fermeture
du classeur
- si A1 est remplie :
je fais fichier quitter => message "voulez vous ..."
si je clique sur "oui" rien ne se passe, je doit recliquer sur
oui
et le classeur se ferme
si je clique sur "non" un message d'excel me demande si je veux
enregistrer les modif (oui, non, annuler)
si je fais "annuler" : je reste bien ds le fichier
si je fais "non" : fermeture d'excel
si je fais "oui" : sauvegarde du fichier puis fermeture
d'excel
je sais c'est un peu bizarre, mais n'y aurait il pas des options à cocher
ou
décocher ou un pb de version (excel 2003)
mais cela m'étonnerait fort...
as tu une idée avec ce que je viens de te décrire ??
merci beaucoup
Mathieu
"FFO" a écrit dans le message de news:Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisionsje viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus
le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte
pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) =
vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si
elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant
si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
En aucun cas tu peux avoir en exécutant mon code un message avec une
information du type "enregistrer les modif (oui, non, annuler)"
Cette invitation n'intervient que suite à des modifications effectuées
indépendemment de celles de la macro que tu n'aurais pas enregistrées
(modification du code, saisie quelconque dans le classeur)
Avant donc tout essai faire un enregistrement
Il ya quelque chose que je ne comprends dans le résultat à obtenir :
cellule vide : MsgBox "Le fichier est vide" et fermeture (OK)
Cellule remplie : 2 options avec message MsgBox("Voulez vous quitter sans
enregistrer ???", vbYesNo)
Oui fermeture sans enregistrer (OK)
Et pour non : ?????
Ton souhait jusqu'à lors était de maintenir ton document ouvert en l'état
Si tu utilises ThisWorkBook en déclarant la macro avec Private Sub
Workbook_BeforeClose(Cancel As Boolean) celà devient contradictoire
Merci de m'éclaircir et surtout de me dire ce que tu attends avec l'option
"Non"
En tout état de cause modifies le code ainsi :
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
Application.EnableEvents = False
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
La 2° confirmation intempestive sera supprimée
Dans l'attente de tes précisions
merci de m'aider ds mon pti souci
ce que j'ai fait c'est que j'ai copié ton code direct ds un nouveau
fichier
excel dans ThisWorkBook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) =
vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
End Sub
voici mes résultats :
- si A1 est vide :
je fais fichier quitter => message "le fichier est vide" puis
fermeture
du classeur
- si A1 est remplie :
je fais fichier quitter => message "voulez vous ..."
si je clique sur "oui" rien ne se passe, je doit recliquer sur
oui
et le classeur se ferme
si je clique sur "non" un message d'excel me demande si je veux
enregistrer les modif (oui, non, annuler)
si je fais "annuler" : je reste bien ds le fichier
si je fais "non" : fermeture d'excel
si je fais "oui" : sauvegarde du fichier puis fermeture
d'excel
je sais c'est un peu bizarre, mais n'y aurait il pas des options à cocher
ou
décocher ou un pb de version (excel 2003)
mais cela m'étonnerait fort...
as tu une idée avec ce que je viens de te décrire ??
merci beaucoup
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
8FFD5956-7234-4549-B02E-28EF56A1247F@microsoft.com...
Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisions
je viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus
le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte
pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4877135E-6FD5-4625-AA6D-5BEFC8710D52@microsoft.com...
Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) =
vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demande
Hello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si
elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant
si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu
En aucun cas tu peux avoir en exécutant mon code un message avec une
information du type "enregistrer les modif (oui, non, annuler)"
Cette invitation n'intervient que suite à des modifications effectuées
indépendemment de celles de la macro que tu n'aurais pas enregistrées
(modification du code, saisie quelconque dans le classeur)
Avant donc tout essai faire un enregistrement
Il ya quelque chose que je ne comprends dans le résultat à obtenir :
cellule vide : MsgBox "Le fichier est vide" et fermeture (OK)
Cellule remplie : 2 options avec message MsgBox("Voulez vous quitter sans
enregistrer ???", vbYesNo)
Oui fermeture sans enregistrer (OK)
Et pour non : ?????
Ton souhait jusqu'à lors était de maintenir ton document ouvert en l'état
Si tu utilises ThisWorkBook en déclarant la macro avec Private Sub
Workbook_BeforeClose(Cancel As Boolean) celà devient contradictoire
Merci de m'éclaircir et surtout de me dire ce que tu attends avec l'option
"Non"
En tout état de cause modifies le code ainsi :
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) = vbYes
Then
Application.EnableEvents = False
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
La 2° confirmation intempestive sera supprimée
Dans l'attente de tes précisionsmerci de m'aider ds mon pti souci
ce que j'ai fait c'est que j'ai copié ton code direct ds un nouveau
fichier
excel dans ThisWorkBook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A1").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) =
vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Else
Exit Sub
End If
End If
End Sub
voici mes résultats :
- si A1 est vide :
je fais fichier quitter => message "le fichier est vide" puis
fermeture
du classeur
- si A1 est remplie :
je fais fichier quitter => message "voulez vous ..."
si je clique sur "oui" rien ne se passe, je doit recliquer sur
oui
et le classeur se ferme
si je clique sur "non" un message d'excel me demande si je veux
enregistrer les modif (oui, non, annuler)
si je fais "annuler" : je reste bien ds le fichier
si je fais "non" : fermeture d'excel
si je fais "oui" : sauvegarde du fichier puis fermeture
d'excel
je sais c'est un peu bizarre, mais n'y aurait il pas des options à cocher
ou
décocher ou un pb de version (excel 2003)
mais cela m'étonnerait fort...
as tu une idée avec ce que je viens de te décrire ??
merci beaucoup
Mathieu
"FFO" a écrit dans le message de news:Dans mon code si tu réponds non tu sort de la macro et tu reste sur ton
fichier comme si rien ne c'était passé
Ce n'est pas ce que tu obtiens ???
Merci pour tes précisionsje viens de tester ton nouveau code (tu as vite rép !!!!), j'ai plus
le
message d'excel me demandant si oui ou non je veux save !! cool merci
bien
mais y a t il une solution si quand je clique sur "non" je ne quitte
pas
l'application (comme si rien ne c'était passé) ??
merci FFO
Mathieu
"FFO" a écrit dans le message de news:Petite erreur si tu veux fermer sans enregistrer remplace dans ma
proposition :
If MsgBox("Voulez vous enregistrer ???", vbYesNo) = vbYes Then
ThisWorkbook.Close SaveChanges
par
If MsgBox("Voulez vous quitter sans enregistrer ???", vbYesNo) =
vbYes
Then
ThisWorkbook.Close SaveChanges:úlse
Mille excuses erreur de compréhension dans ta demandeHello a tous !!
J'aimerais une petite aide pour mes macros !!
Qd je quitte l'appli excel, je test si une celulle est vide, si
elle
l'est,
un message s'affiche puis quitte l'appli,
mais si elle ne l'est pas, j'aimerais avoir un message me demandant
si
je
veux vraiment quitter sans sauvegarder ou pas (avec oui et non) si
"oui"
je
quitte sans sauvegarder si non je reviens ds la feuille.
j'ai dejà écris cela :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Range("A15").Value = vbNullString Then
MsgBox "Le fichier est vide"
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Close
Else
...
End If
End Sub
Merci a tous de votre aide!!
Mathieu