Sub Testsave()
Dim Nom As Variant
Nom = Application.GetSaveAsFilename(ThisWorkbook.Path & "\ordo" & Format(Range("A1").Value + 1, "ddmmyyyy"), _
filefilter:="Classeur Microsoft Excel (*.xls),*.xls")
If Nom = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=Nom
End Sub