enregistrer sous

[jcc]

bonjour a tous
et oui encore une question
en fait mon patron m as demande de creer un document excel avec plusieurs requetes , c est pourquoi , vu mon faible niveau , je me permets de faire appel a vos connaissances .
pouvons nous , en cliquant sur un bouton , enregistrer un document dans un dossier mais en mettant comme nom du classeur le texte de la cellule A1

par exemple en A1 j ai la date 12/02/2003
quand je clique sur le bouton le document s'enregistre automatiquement avec comme nom du classeur 12fev2003.xls

merci beaucoup de votre aide precieuse

 

[Cathy]

Salut le forum, salut jcc

comme ça vient, vite fait, un exemple de code parmi d'autres possibles :

toto = Range("A1").Value

mois = Choose(Month(toto), "janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre")
toto1 = Day(toto) & mois & Year(toto)

ActiveWorkbook.SaveAs Filename:=toto1

Cathy

 

[Valérie]

Slt Cathy, jcc et les autres

Tu peux aussi utiliser la fonction format avec la valeur à formatter et le format souhaité :

ActiveWorkbook.SaveAs FileName:=Format(Range("A1"), "ddmmmyyyy")

@ bientôt
Valérie

 

[Cathy]

Merci Valérie, je cherchais text, j'avais oublié format.

Cathy