Renommer un fichier avec la date

Bonjour,

J'ai l'impression d'avoir tous les éléments mais je n'y arrive pas.

Je veux copié un fichier en le renommant avec la date du jour.

J'arrive a copié le fichier, j'arrive à récupérer la date du jour mais associé les deux impossibles.
Voici mon code

Code:

---

1 2 3 4 5 6 7

Dim madate madate = Date   Set fso = CreateObject("Scripting.FileSystemObject") fso.copyfile "C:\titi.xls", "C:\Archive\titi.xls" fso.movefile "C:\Archive\titi.xls", "C:\Archive\titi"&madate&".xls"

---

Ici j'ai décomposé pour essayer de trouver ou ca bloque. Au départ j'ai testé de renommer directement dans mon copyfile
Ca a planté.
J'ai essayé sans passé par la variable madate mais en mettant Date directement dans le chemin.
Ca a planté.
J'ai essayé sans mettre de date dedans.
Le renommage a fonctionné.
Le message d'erreur est path not found.

Merci par avance.

salut,
la fonction date renvoie un variant de type date conforme au format date courte des options régionales du système
ex pour la france: jj/mm/aaaaa
or le caractère / est proscrit pour définir un nom de fichier :aie:
le + simple est d'utiliser la fonction replace:

Code:

---

madate = Replace(CStr(Date),"/","_")

---

moi perso j'aime bien reformater ma Date à ma façon dans les noms de fichiers, pour que sous windows mes fichiers soit ranger en fonction du jour, du mois, ou de l'année au choix en fonction des besoins.
Donc j'utilise les fonctions Day, Month, Year et je concatène le retour de ces fonctions avec le nom de mon futur fichier et des _