Bonjour,
ci-après la sauvegarde d'un fichier avec chemin du répertoire et nom de fichier dans des variables, procédure annulée si a1 est vide.
sub sauve()
dim chemin as string, fichier_dest as string
if range("a1").value = "" then exit sub
chemin = activeworkbook.path & "\"
fichier_dest = range("a1").value
ActiveWorkbook.SaveAs FileName:=chemin & fichier_dest _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
end sub
cela doit fonctionner et correspondre à ton approche
A+
Eric