Sub SVG_v2()
Dim Jour, x, z, NomFic As String
x = Application.WorksheetFunction.Find(':\\', ActiveWorkbook.FullName)
z = Mid(ActiveWorkbook.FullName, x + 2, Len(ActiveWorkbook.FullName))
NomFic = Left(z, Len(z) - 4)
Jour = Format(Date, 'ddmmyyyy')
ThisWorkbook.SaveCopyAs Filename:='C:\\Sauvegardes\\' & NomFic & '-' & Jour & '.xls'
End Sub