Enregistrer fichier avec date

[sweat]

Salut le forum,

J'ai écri une macro pour enregistrer automatiquement un fichier avec une valeur qui est en cellule A1 :

Voila ce que cela donne :

ChDir "C:\bATEAU"
ActiveWorkbook.SaveAs Filename:="C:\bATEAU\essais" & Range("a1") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

En A1 j'ai une date sous la forme "15/12/2004". Mon problème bien sur est que la macro essaie de l'enregistrer sous la forme : essais15/12/2004, et bien sur cela bug car il y a les ///.

En fait j'aimerai qu'elle l'enregistre sous la forme : essais_15.12.2004.xls
car à chaque fois bien sur ma cellule A1 changera de date.

Merci d'avance

A+

 

[juju]

Hello,

Que penses tu de mettre dans une cellule cachée un truc du genre :
=CONCATENER(JOUR(A1) & "." & MOIS(A1) & "." & ANNEE(A1))

Mais bon je pense que les points c po terrible non plus.

Par contre il y a plus simple, il faut que tu modifies le format de ta cellule : dans format tu sélectionnes personnalisée et tu indiques jj-mm-aaaa. Et woila le tour est joué 🙂

Bye

Ju

 

[STéphane]

bonjour

ou alors tu utlises la fonction Format
msgbox fornat(date,"ddmmyyyy")


stephane