Sub saveExcel()
Dim fichier As String
On Error Resume Next
ChDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel"
If Err Then MkDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel" 'pour le créer
On Error GoTo 0
Application.DisplayAlerts = False
[A1] = Now
Workbooks.Open Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\SITUATION RELAIS BIS.xlsm"
ActiveSheet.Copy
fichier = "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".xlsx"
ActiveWorkbook.SaveAs fichier
ActiveWorkbook.Close saveChanges:=False
Application.DisplayAlerts = True
End Sub