Bonsoir
ce code permet de sauvegarder ce classeur sous le nom = date
ActiveWorkbook.SaveAs Filename:=Format(Date, "ddmmyy") & ".xls"
celui ci , copie le classeur , sauvegarde le nouveau classeur, et le ferme
Worksheets.Copy
ActiveWorkbook.SaveAs Filename:=Format(Date, "ddmmyy") & ".xls"
ActiveWorkbook.close
Salut
Hervé