Sub Enregistrement_Fichiers()
Dim Titre_Box As String, Nom_Fichier As String, Test_Fichier As Integer
Application.DisplayAlerts = False
Titre_Box = 'Enregistrement du fichier'
Nom_Fichier = 'D:\\Copy\\Essai.xls'
Do
Test_Fichier = 0
Nom_Fichier = Application.GetSaveAsFilename(Nom_Fichier, FileFilter:='Fichiers Excel (*.Xls),*.Xls', Title:=Titre_Box)
If Not (Dir$(Nom_Fichier, vbNormal) = '') Then Test_Fichier = MsgBox(LCase(Nom_Fichier) & ' existe déja' & Chr(10) & _
'en date du ' & DateValue(FileDateTime(Nom_Fichier)) & Chr(10) & 'voulez vous l'écraser ?', vbYesNo + vbQuestion)
If Test_Fichier = 7 Then Titre_Box = 'Redéfinissez le nom d'enregistrement'
If Nom_Fichier = 'Faux' Then MsgBox 'Fichier non enregistré !', vbOKOnly + vbExclamation: Exit Sub
Loop While Test_Fichier = 7
ActiveWorkbook.SaveAs Filename:=Nom_Fichier, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False
End Sub