Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
FichierEnregistrerSous = Application.GetSaveAsFilename("v:\cotations\", _
fileFilter:="Classeur Excel (*.xlsx),*.xlsx", Title:="Sauvegarde localisée v2014")
If FichierEnregistrerSous <> False Then
Affichage = MsgBox("Vous allez enregistrer " & NomFichier & " sous :" & _
Chr(10) & Chr(10) & FichierEnregistrerSous, , "Enregistrement du fichier")
End If
End Sub