Macro Word "enregistrer sous"

Bonjour,

Je génère des documents word en grande quantité à partir de fichiers déja existants auxquels j'apporte une simple modification ; je dois ensuite les enregistrer dans un autre répertoire.
J'ai enregistré la macro suivante :

ActiveDocument.SaveAs FileName:="nom_fichier.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub

Elle fonctionne, les fichiers sont enregistrés dans le bon répertoire, mais tous les fichiers sont enregsitrés sous le même nom, écrasant le fichier précédent à chaque nouvel enregistrement. Je voudrais tout simplement enregistrer en conservant le nom initial du fichier.

Merci de votre aide.