Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo erreur
varname = Sheets("Feuil1").Range("g17").Value
fname = InputBox("enregistrer le fichier sous le nom", "Enregistrement", varname)
ActiveWorkbook.SaveAs Filename:=fname
Exit Sub
erreur:
rep = MsgBox("Une erreur c'est produite, voulez vous quitter sans sauvegarder", vbYesNo)
If rep = 7 Then Cancel = True
End Sub