XL 2010 Renommer un fichier excel en ajoutant une date

[philmaure]

bonjour,

En supposant que j'ai un fichier excel qui s'appelle "Test.xlsx" enregistré sous P:\stats\service\

est il possible par vba de le renommer : 2016_07_29_Test.xlsx soit à la date du jour

et/ou de le renommer 2016_07_28_Test.xlsx soit la date de j-1 voir j-2

ma demande fait suite à une multitude de fichiers que je dois enregistrer sur un serveur puis le renommer soit à la date J-1 voir j-2 ou -3 si je le fais le lundi pour un fichier du vendredi précédent.

Merci pour votre aide
cdlt
Philmaure

 

[philmaure]

re,

j'ai trouvé une première solution

Sub Renommehdbur()
Dim AncienNom As String, NouveauNom As String
Application.DisplayAlerts = False
AncienNom = "D:\test\phil.xls"
NouveauNom = "D:\test\phil_" & Format(Now, "dd_mm_yyyy") & ".xls"
'Renomme le fichier
Name AncienNom As NouveauNom
End sub

Par contre si je veux la date aavant le nom du fichier cela ne focntionne pas

NouveauNom = "D:\test\Format(Now, "dd_mm_yyyy")" & "_phil.xls"

Merci pour votre aide
Cdlt
Philimaure

 

[philmaure]

re, je m'approche de la solution souhaitée mais je ne parviens pas à obtenir la date. J'ai pris l'option de saisir la date souhaitée et de la récupérer pour l'ajouter avant le nom du fichier sous la forme : 2016_07_29_phil.xls

Sub Renommehdbur()
Dim AncienNom As String, NouveauNom As String
Dim MaDate As Variant
MaDate = InputBox("Entrez une date", "Date", MaDate)

Application.DisplayAlerts = False
AncienNom = "D:\test\phil.xls"

NouveauNom = "D:\test\MaDate" & "phil.xls" => me renvoie Madatephil.xls

'Renomme le fichier
Name AncienNom As NouveauNom
End Sub

Merci pour votre aide
Cdlt
Philimaure

 

[philmaure]

re,

au cas où, j'ai trouvé la solution

NouveauNom = "D:\test\" & MaDate & "_phil.xls"

cldt
Philmaure

 

[Staple1600]

Bonjour à tous

Un peu tard, mais juste pour illustrer ce qu'on peut faire avec Format

Sub Renommehdbur()
Dim AncienNom$, NouveauNom$, MaDate
MaDate = InputBox("Entrez une date", "Date", Date)
AncienNom = "D:\test\phil.xls"
NouveauNom = Format(MaDate, """D:\test\""dd_mm_yyyy""_phil.xls""")
'Renomme le fichier
MsgBox NouveauNom 'pour tester la chaine renvoyée
'Name AncienNom As NouveauNom
End Sub

 

[philmaure]

bonjour,

super, il n'est jamais trop tard pour partager.
Je vais rajouter cette astuce.
un grand merci
Cdlt
philmaure