re
je n'avais pas vu que les backslash disparaissent dans les messages
je reprends mon message en mettant $ pour les backslash
ActiveWorkbook.SaveAs Filename:= _
'D:$Facture$facture ' & Range('A2').Value & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
en regardant l'exemple ci-dessus, si sur D: tu as un répertoire Facture, tu sauvegarde un fichier
qui se nommera: facture 271, si tu as 271 en A2
A+