Microsoft 365 Problème avec NAME AncienNom as Nouveau

Bonjour,

Je souhaite archiver un fichier ouvert en le renommant en rajoutant la date du jour et le copiant avant d'appliquer une autre macro pour sauvegarder le fichier ouvert. Pour faire cela, j'appelle le nom du fichier qui est dans la case M1 de mon fichier Excel. Le débogage s'arrêt sur Name AncienNom As NouveauNom.

Merci de votre aide



Sub Archivage()

'renommer un fichier
Dim AncienNom As String
Dim NouveauNom As String

MonDossier = "\\outils\di_stg$\dupond_d\Suivi projet\Fiches projets\"

AncienNom = (MonDossier & Range("M1") & ".xls")
NouveauNom = (MonDossier & Range("M1") & (" ") & Format(Date, "yyyymmdd") & ".xls")

Name AncienNom As NouveauNom

Call Enregistrement()

End Sub