Microsoft 365 Problème avec NAME AncienNom as Nouveau

[DCH64]

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

 

[Bernard_XLD]

Bonjour DCH64, le forum

tu ne peux pas renommer un fichier ouvert avec Name, fichier forcément en lecture seule, regardes plutôt du coté de SaveCopyAs plus adapté à ce que tu veux faire.
https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.savecopyas

Bien cordialement, @+

 

[DCH64]

Bonjour Yeahou,

Merci pour ton retour