Finaliser mon code

Bonsoir à toutes et tous,

Le code ci-dessous enregistre bien le fichier, mais ne se ferme pas si on répond non

Que changer ? pour avoir une fermeture si réponse négative

 Sub Sauver()
    If MsgBox("Confirmez-vous l'enregistrement de ce dossier ?", vbYesNo, "Demande de confirmation d'enregistrement") <> vbYes Then Exit Sub
       ActiveCell.Select
        ActiveWorkbook.Save
        Application.Quit
    End Sub

Merci de votre attention

Amicalement

Pierrot

bonsoir cappe-pierre

en enlevant

ActiveCell.Select

est ce que c'est mieux car autrement je ne vois pas

Pascal

Bonjour

ActiveCell.Select

Pour moi c'est un pléonasme informatique, c'est à dire inutile

Si tu veux fermer le fichier sans enregistrer, modifies le code

Sub Sauver()
  If MsgBox("Confirmez-vous l'enregistrement de ce dossier ?", vbYesNo, "Demande de confirmation d'enregistrement") = vbYes Then
    ActiveWorkbook.Save
  End If
  Application.Quit
End Sub

Banzai64 et grisan29

Je ne sais plus si je vous ai remercié pour votre intervention, en tout cas ça marche

Un grand merci à vous deux

Amicalement

Pierrot