bonjour rene , le forum essai ce code en attendant mieux Sub Macro2()
Dim var As String
var = [a2]' a2=test.xls pour ex
ChDir 'D:\\essai'
ActiveWorkbook.SaveAs Filename:=var, FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub ' dans le cas present le fichier le fichier se sauve dans dans 'D:\\essai' autrement en a2 rentre le chemin complet & supprime la ligne chdir 'd:\\essai ' salutations