Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
exportFile = Application.GetSaveAsFilename(Filename)
If exportFile = False Then
MsgBox "Votre fichier " & Filename & " n'a pas été sauvegardé.", vbCritical, "Création interrompue"
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Exit Sub
Else
ActiveWorkbook.SaveAs exportFile
MsgBox "Votre fichier " & exportFile & " a bien été sauvegardé.", vbInformation, "Création réussie"
End If
ActiveWorkbook.Close
End Sub