Sauvegarde Fichier avec date du jourRésolu

Question

Bonjour,

Un petit probl&#232;me pour finir mon code. J'utilise un prog qui copie un fichier en r&#233;seau d'un r&#233;pertoire &#224; un autre puis le renomme. Mon prob est que je n'arrive pas &#224; int&#233;grer la date du jour dans le fichier renomm&#233;.

Ci-dessous le code :
Private Sub Copy_Click()
FileCopy "T:\docs	oto.xls", "T:\docs\Archives\Jour.xls."
'Permet de copier le fichier d'origine vers un r&#233;pertoire Archive en le renommant par la date
Call ChangeNom

Public Sub ChangeNom()


Dim Jour As String
Dim Mondocument As String
Name "T:\docs\Archives\Jour.xls." As "T:\docs\Archives\Mondocument.xls."
'Renomme le fichier Jour par Mondocument

Je voudrais avoir "T:\docs\Archives\Mondocument dd-mm-yyyy.xls."
J'ai essay&#233; avec Format mais je n'y arrive pas. Il y a peut &#234;tre plus simple comme code.
Merci pour votre aide.

Jeje

Egyde · Accepted Answer

Name "T:\docs\Archives\Jour.xls." As "T:\docs\Archives\Mondocument " & Format(Date, "dd-mm-yyyy") & ".xls"

marche pas?

studentjeje · Answer

Oui, bien s&#251;r. Stupid boy. Je ne l'avais pas mis comme &#231;a. Merci Egyde. &#231;a marche.

Jeje

Sauvegarde Fichier avec date du jour

2 réponses

Discussions similaires