Rebonsoir st@tman
Je ne suis pas sur d’avoir bien compris ta requète : j’ai interprété que tu souhaitais fermer l’application Excel à la fermeture du fichier . j’espère que la modification ci dessous pourra t’aider
Attention : cela n’engage que moi , mais application.quit est , à mon avis , à utiliser avec parcimonie (je suis bien placé pour en parler car j’ai parfois fait des « bétises » en l’utilisant … ;o(….)
Je me suis permis d’ajouter un petit quelque chose dans le premier msgbox car il est important que les utilisateurs soient informés de la fermeture d’excel ( notamment pour la sauvegarde d’autres fichiers éventuellement ouverts…)
Sub Quitter()
Msg = "Vous voulez vraiment quitter le programme ? " & Chr(10) & " ATTENTION : cela signifie la fermeture d'Excel . Cliquez sur NON pour sauver préalablement vos autres fichiers . "
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Programme de St@tman" ' ici c'est clair tu mettra le nom de ton programme
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Msg = "Voulez-vous enregistrer les modifications apportées ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Programme de St@tman" ' ici c'est clair tu mettra le nom de ton programme
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Call Remettremenu2
Range("A1").Select
ActiveWorkbook.Save
Call fermer
Else
Call Remettremenu2
Application.DisplayAlerts = False
Call fermer
End If
Else
End If
End Sub
Sub fermer()
Application.Quit
End Sub
Bonne soirée
Michel