Bonjour,
J'essaie de proposer une option au moment de quitter une macro.
Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation
Titre = "Fermeture d'Excel"
MsgBox Msg, Boutons, Titre
If Response = vbYes Then
Application.Quit 'Fermer Excel
Else
ActiveWorkbook.Close
End If
Ou bien celui là
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation ' Définit les boutons.
Titre = "Fermeture d'Excel" ' Définit le titre.
MsgBox Msg, Boutons, Titre
If vbYes Then
Application.Quit
Else
ActiveWorkbook.Close
End If
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
Daniel
Bonjour. Mets : rep = MsgBox(Msg, Boutons, Titre) rep=6 si "oui", et 7 si "non". Cordialement. Daniel "Jdel" a écrit dans le message de news: 46701460$0$5098$
Bonjour, J'essaie de proposer une option au moment de quitter une macro. Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" MsgBox Msg, Boutons, Titre
If Response = vbYes Then Application.Quit 'Fermer Excel Else ActiveWorkbook.Close End If
Ou bien celui là
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation ' Définit les boutons. Titre = "Fermeture d'Excel" ' Définit le titre. MsgBox Msg, Boutons, Titre If vbYes Then Application.Quit Else ActiveWorkbook.Close End If
Bonjour.
Mets :
rep = MsgBox(Msg, Boutons, Titre)
rep=6 si "oui", et 7 si "non".
Cordialement.
Daniel
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
46701460$0$5098$ba4acef3@news.orange.fr...
Bonjour,
J'essaie de proposer une option au moment de quitter une macro.
Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation
Titre = "Fermeture d'Excel"
MsgBox Msg, Boutons, Titre
If Response = vbYes Then
Application.Quit 'Fermer Excel
Else
ActiveWorkbook.Close
End If
Ou bien celui là
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation ' Définit les boutons.
Titre = "Fermeture d'Excel" ' Définit le titre.
MsgBox Msg, Boutons, Titre
If vbYes Then
Application.Quit
Else
ActiveWorkbook.Close
End If
Bonjour. Mets : rep = MsgBox(Msg, Boutons, Titre) rep=6 si "oui", et 7 si "non". Cordialement. Daniel "Jdel" a écrit dans le message de news: 46701460$0$5098$
Bonjour, J'essaie de proposer une option au moment de quitter une macro. Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" MsgBox Msg, Boutons, Titre
If Response = vbYes Then Application.Quit 'Fermer Excel Else ActiveWorkbook.Close End If
Ou bien celui là
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation ' Définit les boutons. Titre = "Fermeture d'Excel" ' Définit le titre. MsgBox Msg, Boutons, Titre If vbYes Then Application.Quit Else ActiveWorkbook.Close End If
JB
Bonjour,
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" response = MsgBox(Msg, Boutons, Titre) If response = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
ou
Msg = "Vous quittez l'application" & Chr(10) & "Voulez-vous également quitter Excel" If MsgBox(Msg, vbYesNo + vbInformation, "Fermeture d'Excel") = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
JB
On 13 juin, 17:59, Jdel wrote:
Bonjour, J'essaie de proposer une option au moment de quitter une macro. Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" MsgBox Msg, Boutons, Titre
If Response = vbYes Then Application.Quit 'Fermer Excel Else ActiveWorkbook.Close End If
Ou bien celui là
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation ' Définit les boutons. Titre = "Fermeture d'Excel" ' Définit le titre. MsgBox Msg, Boutons, Titre If vbYes Then Application.Quit Else ActiveWorkbook.Close End If
Bonjour,
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation
Titre = "Fermeture d'Excel"
response = MsgBox(Msg, Boutons, Titre)
If response = vbYes Then
MsgBox "ok"
Else
MsgBox "ko"
End If
ou
Msg = "Vous quittez l'application" & Chr(10) & "Voulez-vous également
quitter Excel"
If MsgBox(Msg, vbYesNo + vbInformation, "Fermeture d'Excel") = vbYes
Then
MsgBox "ok"
Else
MsgBox "ko"
End If
JB
On 13 juin, 17:59, Jdel <j...@wanadoo.fr> wrote:
Bonjour,
J'essaie de proposer une option au moment de quitter une macro.
Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation
Titre = "Fermeture d'Excel"
MsgBox Msg, Boutons, Titre
If Response = vbYes Then
Application.Quit 'Fermer Excel
Else
ActiveWorkbook.Close
End If
Ou bien celui là
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation ' Définit les boutons.
Titre = "Fermeture d'Excel" ' Définit le titre.
MsgBox Msg, Boutons, Titre
If vbYes Then
Application.Quit
Else
ActiveWorkbook.Close
End If
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" response = MsgBox(Msg, Boutons, Titre) If response = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
ou
Msg = "Vous quittez l'application" & Chr(10) & "Voulez-vous également quitter Excel" If MsgBox(Msg, vbYesNo + vbInformation, "Fermeture d'Excel") = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
JB
On 13 juin, 17:59, Jdel wrote:
Bonjour, J'essaie de proposer une option au moment de quitter une macro. Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" MsgBox Msg, Boutons, Titre
If Response = vbYes Then Application.Quit 'Fermer Excel Else ActiveWorkbook.Close End If
Ou bien celui là
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation ' Définit les boutons. Titre = "Fermeture d'Excel" ' Définit le titre. MsgBox Msg, Boutons, Titre If vbYes Then Application.Quit Else ActiveWorkbook.Close End If
Jdel
Merci JB, je testerai ça demain matin Cordialement Jdel
Bonjour,
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" response = MsgBox(Msg, Boutons, Titre) If response = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
ou
Msg = "Vous quittez l'application" & Chr(10) & "Voulez-vous également quitter Excel" If MsgBox(Msg, vbYesNo + vbInformation, "Fermeture d'Excel") = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
JB
On 13 juin, 17:59, Jdel wrote:
Bonjour, J'essaie de proposer une option au moment de quitter une macro. Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" MsgBox Msg, Boutons, Titre
If Response = vbYes Then Application.Quit 'Fermer Excel Else ActiveWorkbook.Close End If
Ou bien celui là
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation ' Définit les boutons. Titre = "Fermeture d'Excel" ' Définit le titre. MsgBox Msg, Boutons, Titre If vbYes Then Application.Quit Else ActiveWorkbook.Close End If
Merci JB, je testerai ça demain matin
Cordialement
Jdel
Bonjour,
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation
Titre = "Fermeture d'Excel"
response = MsgBox(Msg, Boutons, Titre)
If response = vbYes Then
MsgBox "ok"
Else
MsgBox "ko"
End If
ou
Msg = "Vous quittez l'application" & Chr(10) & "Voulez-vous également
quitter Excel"
If MsgBox(Msg, vbYesNo + vbInformation, "Fermeture d'Excel") = vbYes
Then
MsgBox "ok"
Else
MsgBox "ko"
End If
JB
On 13 juin, 17:59, Jdel <j...@wanadoo.fr> wrote:
Bonjour,
J'essaie de proposer une option au moment de quitter une macro.
Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation
Titre = "Fermeture d'Excel"
MsgBox Msg, Boutons, Titre
If Response = vbYes Then
Application.Quit 'Fermer Excel
Else
ActiveWorkbook.Close
End If
Ou bien celui là
Msg = "Vous quittez l'application"
Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel"
Boutons = vbYesNo + vbInformation ' Définit les boutons.
Titre = "Fermeture d'Excel" ' Définit le titre.
MsgBox Msg, Boutons, Titre
If vbYes Then
Application.Quit
Else
ActiveWorkbook.Close
End If
Merci JB, je testerai ça demain matin Cordialement Jdel
Bonjour,
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" response = MsgBox(Msg, Boutons, Titre) If response = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
ou
Msg = "Vous quittez l'application" & Chr(10) & "Voulez-vous également quitter Excel" If MsgBox(Msg, vbYesNo + vbInformation, "Fermeture d'Excel") = vbYes Then MsgBox "ok" Else MsgBox "ko" End If
JB
On 13 juin, 17:59, Jdel wrote:
Bonjour, J'essaie de proposer une option au moment de quitter une macro. Fermer le programme en laissant ou non Excel ouvert.
J'ai essayé deux codes mais sans résultat
Quelqu'un peut-y me dire ce qui cloche
Merci
1er essai
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation Titre = "Fermeture d'Excel" MsgBox Msg, Boutons, Titre
If Response = vbYes Then Application.Quit 'Fermer Excel Else ActiveWorkbook.Close End If
Ou bien celui là
Msg = "Vous quittez l'application" Msg = Msg & Chr(10) & "Voulez-vous également quitter Excel" Boutons = vbYesNo + vbInformation ' Définit les boutons. Titre = "Fermeture d'Excel" ' Définit le titre. MsgBox Msg, Boutons, Titre If vbYes Then Application.Quit Else ActiveWorkbook.Close End If