creer un nom de fichier automatique

[Didier]

second ....

dans une case A1 je recupere une date .....

je voudrais pouvoir executer une macro avec un enregistrment de fichier dont le nom contiendrait la date ....

des amateurs ????

MERCI A TOUS

 

[William]

Salut,

Tu peux passer par l'enregistrer une macro sous un nom de fichier différent, puis il te suffira de remplacer une partie du nom par la date...


Exemple : sauvegarde_01-05-03.xls donne :

Dim Fich as Date
Fich = Range("A1").Value


Nom = "sauvegarde_" & Format(Fich, "dd") & "-" & Format(Fich, "mm") & "-" & Format(Fich, "yy")

PS j'ai pas testé, je n'ai pas d'excell sur ce PC, mais ça devrait fonctionner.

Courage,

William

 

[Didier]

ok !! ca fonctionne

mais le seul probleme c que la date est 30 12 99 .....
et apparement fixe !!!!

 

[@Christophe@]

Bonsoir

Ben la Didier, je vois pas, William te donne la réponse, et tu ne trouve pas

Récap:

Peu importe le date dans A1, exemple 01/12/2003

Petit problème, dans l'enregistrement pas de caractère spéciaux comme /, donc, il faut les filtré, voila pourquoi William utilise Format

Il déclare la variable, fixe ou pas, rire, ton A1 = Date
NomFichier, est le nom que tu veux donné a ton fichier

'Donc

Dim DateFichier as Date
Dim NomFichier as String

'ensuite, ou est la DateFichier

DateFichier = Range("A1").Value

NomFichier = "Mon Fichier " & Format(DateFichier, "yyyy") & Format(DateFichier, "mm") & Format(DateFichier, "dd")

ThisWorkbook.SaveAs Filename:=NomFichier


Ton code complet de ton commandbutton donne donc:


Private Sub Commandbutton1_Click
Dim DateFichier as Date
Dim NomFichier as String

DateFichier = Range("A1").Value

NomFichier = "Mon Fichier " & Format(DateFichier, "yyyy") & Format(DateFichier, "mm") & Format(DateFichier, "dd")

ThisWorkbook.SaveAs Filename:=NomFichier
End sub


Ton fichier seras donc enregistré sous; Mon Fichier 20031201

Voila

Bonne soirée

@Christophe@