Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Problème avec NAME AncienNom as Nouveau

DCH64

XLDnaute 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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…