ChDir "F:\Dir.\C.\C-S"
ActiveWorkbook.SaveAs Filename:=Date
"F:\Dir.\C.\C-S\date.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Voilà le code, moi je souhaiterai qu'à chaque sauvegarde (tous les jours donc à une nouvelle date) le classeur s'enregistre automatiquement avec comme nom la date du jour. Je ne sais pas si c'est possible mais ca éviterai une manipulation qui pourrait être source d'erreurs.