Insertion d'une date dans le nom d'un fichier

[Johanna]

Bonjour le forum !

Je voudrais renommer en VB un fichier sous le schéma suivant : DateD'aujourdhui_Nom.

Visiblement j'ai un problème avec la date puisque j'arrive à mettre que le nom. Voici ma ligne de code :

ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\Mes documents\Johanna\" + Now() + "_" + Nom, FileFormat:=xlText, CreateBackup:=False

Nom est une variable de type string qui me renvoie le nom du fichier de format texte.

Quelqu'un sait-il comment insérer la date ? Faut-il utiliser une variable contenant la date ?

Merci pour votre aide !
Johanna

 

[Pascal76]

Bonjour

Tu dois modifier ton format de date car tu ne peux enregistrer un fichier avec des "/".

donc tu peux faire un truc du genre

madate=day(date) & "_" & month(date) & "_" & year(date)

et ensuite

ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\Mes documents\Johanna\" & madate & "_" & Nom, FileFormat:=xlText, CreateBackup:=False

Bon courage

Pascal

 

[Pascal76]

re

encore plus simple

madate = Format(Date, "dd_mm_yyyy")

Pascal

 

[Johanna]

Merci énormément !
A bientôt,
Johanna ;-)