Voulez-vous sauvegarder ? (Oui, Non ou Annuler)
Bonjour,
J'ai créé un bouton sur mon classeur excel pour pouvoir le fermer et demander à l'utilisateur de sauvegarder. L'ennui, c'est qu'un fois appliqué je n'ai le choix que entre oui ou non et je ne peux pas annuler. Auriez vous une solution pour rajouter cette option?
Sub Fermeture_Fichier()
Dim Fichier As String
Fichier = "Feuille_Commande_Client.xlsm"
If MsgBox("Voulez-vous sauvegarder ?", vbQuestion + vbYesNo) = vbYes Then
Application.DisplayFullScreen = False
Workbooks(Fichier).Save
Workbooks(Fichier).Close
Else
Application.DisplayFullScreen = False
ThisWorkbook.Saved = True
Workbooks(Fichier).Close
End If
End Sub
Bonjour,
Modifie la ligne comme suivante et teste en prévoyant en cas d'annulation une bifurcation du programme :
If MsgBox("Voulez-vous sauvegarder ?", vbQuestion + vbYesNoCancel) = vbYes ThenMerci Raja j'ai adapté mon code avec le Cancel en plus en rajoutant une condition et cela fonctionne très bien.