Discussion :

[RG25550]

Bonjour,

Comment à la fermeture d’un classeur excel , intercepter si l’utilisateur a cliqué sur oui ou non Au message ‘’ voulez- vous enregistrer les modifications ‘’

Merci par avance pour vos réponses

[Le Pierre]

bonsoir

tu peux essayer d'intercepter la procédure de fermeture et poser la question "Voulez-vous enregistrer ?"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Auto_Close()
   Select Case MsgBox(prompt:="Vous quitter : voulez-vous enregistrer ce fichier ?", Buttons:=vbYesNoCancel)
        Case vbYes
          With ActiveWorkbook
              .Save
              .Close
          End With
        Case vbNo
            ActiveWorkbook.Close SaveChanges:=False
        Case Else
   End Select
End Sub

à plus

[fring]

Bonsoir tlm,

Perso, je mettrais le petit bout de code dans l'évènement Before Close de Thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo) = vbNo Then
    ActiveWorkbook.Saved = True
Else
    ActiveWorkbook.Save
End If
End Sub

[RG25550]

Mille mercis avec les 2 bouts de code cela marche à merveille