Erreur d'exécution 1004 d'une macro SaveAs automatique

Bonjour,

Je me permets de solliciter votre aide au sujet d'une macro me permettant d'archiver une copie de mon classeur en cours d'utilisation dans un emplacement défini. Cet archivage, ce réalisant au début d'une nouvelle journée, j'ai indiqué dans le code un nom spécifique à donner au classeur archivé.

NOM DU CLASSEUR + DATE DE L'ARCHIVE + EXTENSION .XLSM

La date de l'archive est récupérée depuis la cellule A5 de la Feuil1 et doit s'afficher en jj-mm-aaaa dans le nom du fichier.

Toutefois, en exécutant ma macro, j'ai une erreur d'exécution '1004' qui s'affiche et qui pointe en débogage sur cette ligne (peut importe le chemin de destination) :

ActiveWorkbook.SaveCopyAs "C:\Users\bapti\Documents\Archivage TEST\" + LeNom

Je vous joins un classeur de test avec la macro et la cellule où est récupérée la date.

Je vous remercie d'avance pour l'aide que vous m'apporter

Bonnes fêtes de fin d'année.

Bapt"

Bonjour,

Ce sont les ":" qui posent problème. En les remplaçant par un "_" disons, ça passe bien.

Sub Archive()
    date_archive = Replace(Feuil1.Range("A5").Value, "/", "-")
    wk = ActiveWorkbook.Name

    lenom = Left(wk, Len(wk) - 5) & " (" & date_archive & ")" & ".xlsm"
    lenom = Replace(lenom, ":", "_")      ' <<< ici
    ActiveWorkbook.SaveCopyAs "C:\Users\bapti\Documents\Archivage TEST\" + LeNom
End Sub

ric

Bonjour horusbk, bonjour ric

tu peux aussi utiliser cette instruction

date_archive = Format(Feuil1.Range("A5").Value, "yyyy-mm-dd hh\hmm")

je trouve cela plus propre ... tu maîtrises ici le format

Bonjour ric, Steelson et le Forum

Merci pour vos réponses.

Steelson, tu indiques que je peux également utiliser cette procédure :

date_archive = Format(Feuil1.Range("A5").Value, "yyyy-mm-dd hh\hmm")

Si je souhaite ne pas afficher l'heure, je peux la réécrire ainsi ?

date_archive = Format(Feuil1.Range("A5").Value, "yyyy-mm-dd")

Merci d'avance,

Bapt"

Oui,

note que j'inverse toujours année que je mets en tête, puis mois et jour de façon à pouvoir trier ensuite sur les noms.

Bonsoir

Merci beaucoup pour le coup de pouce.

Je passe en résolu !

Baptiste