Hello,
Essai ça :
dans ta cellule A1 : nom du rep => D:\toto\facture\"
dans ta cellule A2 : nom du fichier => Test.xls
Sub enregistrement ()
Dim a,b
a=Range("A1")
b=Range("A2")
ActiveWorkbook.SaveAs Filename:= a & b
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End sub
@ + bye
Ju