bonjour,
le code ci-dessous devrait fonctionner :
dim chemin as string, fichier_dest as string
chemin = "c:\...\" (mettre le chemin exact du répertoire souhaité)
range ("a3").select (supposition nom dans cellule A3)
fichier_dest = activecell.value
ActiveWorkbook.SaveAs FileName:=chemin & fichier_dest _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Essaie et tiens moi au courant
A+
Eric