Sub SaveFeuilleDeRoute()
Worksheets("Feuille de route").Copy
ActiveWorkbook.SaveAs Filename:="F:\EXPLOITATION\" & Format(Date, "ddmmyyyy")
End Sub
Sub Copie2()
Dim chemin As String
nom = ActiveWorkbook.Name
chemin = "F:\EXPLOITATION\"
Application.DisplayAlerts = False
With Sheets
.Copy
End With
MyDate = Date
ActiveWorkbook.SaveAs Filename:=chemin + Format(MyDate, "dd mm yyyy") & ".xls"
Workbooks(nom).Activate
ActiveWorkbook.Sheets(1).[a1].Select
End Sub