fenêtre de confirmation

[kinel]

Bonjour à tous

je recherche le moyen d'ouvrir automatiquement une pop up avec option "oui" "non" avant l'application d'une macro qui dans ce cas ferme le programme



merci de votre aide


Michel

 

[Pierrot93]

Re : fenêtre de confirmation

Bonjour,

peut être ceci :

If MsgBox("Voulez vous fermer excel ??", vbYesNo) = vbYes Then Application.Quit

bonne journée
@+

 

[kinel]

Re : fenêtre de confirmation

Bonjour pierrot93

merci pour cette réponse
c'est quasi ce que je cherche mais pour quitter je lance une macro qui sauvegarde automatiquement
la confirmation vbyes doit donc appliquer la macro en question et vbno doit annuler la commande

 

[Pierrot93]

Re : fenêtre de confirmation

Re,

pas tout compris moi.... peut être placer le code en question....

 

[Dull]

Re : fenêtre de confirmation

Salut kinel, Pierrot 🙂, le Forum

Peut être comme cela

Dim Quit As String
Quit = MsgBox("Etes-vous sûr(e) de vouloir quitter l'Application ?", vbYesNo + vbInformation, "TonProjet")
If Quit = vbYes Then ThisWorkbook.Close Savechanges:=True

Bonne Journée

 

[kinel]

Re : fenêtre de confirmation

merci à tous pour vos réponses

voici la macro qui me sert à fermer le fichier
Sub fermerprog()
'
' fermerprog Macro
' Macro enregistrée le pa Mic
'

Sheets("SSR 1").Select
Application.Quit
'
End Sub

je voudrai juste demander une confirmation à la sortie du type " voulez vous quitter votre travail ? oui, non"
les commandes de sauvegarde automatiques que j'ai placées dans "workbook" désactivent la fenêtre classique de sortie d'excel afin de créer une sauvegarde incrémentée

 

[kinel]

Re : fenêtre de confirmation

je viens d'essayer la proposition de Dull en changeant juste la fin et ça fonctionne pil poil


Sub fermerprog()
'
' fermerprog Macro
' Macro enregistrée le pa Mic
'

Sheets("SSR 1").Select
Dim Quit As String
Quit = MsgBox("Etes-vous sûr(e) de vouloir quitter l'Application ?", vbYesNo + vbInformation, "TonProjet")
If Quit = vbYes Then Application.Quit
'
End Sub


grand merci à tous
Michel