Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strDate As String, Fichier As String, Chemin As String
Msg = "Désirez-vous enregistrer ce fichier ?"
Réponse = MsgBox(Msg, vbYesNo)
If Réponse = vbYes Then ActiveWorkbook.Save
Msg = "Désirez-vous sauvegarder ce fichier ?"
Réponse = MsgBox(Msg, vbYesNo)
If Réponse = vbYes Then
strDate = Format(Date, "dd-mm-yy") & "_" & Hour(Time) & "h" & Format(Minute(Time), "00")
Fichier = Sheets("Menu").Range("E8")
Chemin = "\\Ventoux\Documents communs\CNDS\" & Fichier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin 'crée le répertoire s'il n'existe pas
If Dir(Chemin & "\*.xlsm") <> "" Then Kill Chemin & "\" & Dir(Chemin & "\*.xlsm")
ActiveWorkbook.SaveAs Chemin & "\" & "fichier du_" & strDate & ".xlsm"
End If
End Sub