Bonjour
avec l'enregistreur de macro le code généré est :
ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\Eric\Mes documents\Classeur1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
dans ton cas, tu peux utiliser (exemple avec donnée en A10):
répertoire = "C:\......................\"
ActiveWorkbook.SaveAs FileName:= _
répertoire & range("a10").value & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
tu peux appeler ta macro par bouton ou la faire s'exécuter avant fermeture du classeur
Eric