[VBA-E] une macro qui enregistre mon fichier Excel

Bonjour,

J'ai besoin de vos lumières, pour creer un programme qui enregistre le fichier Excel sur lequel je travail sous la nomination suivante :

essaiDATEDUJOURparis.xls

J'ai besoin que DATEDUJOUR soit remplacé, par la date du jour sous ce format 01032007.

exemple :

essai01032007paris.xls

merci

je viens de penser a un truc pour le faire,

de creer peut etre d'abord une variable pour le nom.

Code:

---

1 2 3

dim NOM as string   NOM = "essai"&"formatdate"&"paris"

---

pour format date je ne sais pas comment la trouver, et je ne suis pas sur que NOM, soit une variable string, car les caractères sont alphanumériques

Pour répondre à ta question, un string accept tous les caractères que ce soit de l'alphanumérique ou non

essaie çà

Code:

---

1 2 3 4 5

dim nomFichier,repertoire as string repertoire = "C:\" nomFichier = "essai" & Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4) & "paris" ActiveWorkbook.SaveAs Filename:= repertoire & nomFichier & ".xls"

---

Tu n'as plus rien à t'occuper si ce n'est de mettre le chemin où tu sauvegarderas
Ensuite, la date du jour sera toujours calculer correctement sans que tu n'aies rien à renseigner

J´ai testé, un NOM dimensionné en string prend aussi les chiffres
Pour la date, je passe par une cellule d´onglet:

Code:

---

1 2 3 4 5

dim nom as string   nom = "essai " & Sheets("START").Range("G21").Value b = Application.GetSaveAsFilename(nom, "Microsoft Excel-Arbeitsmappe (*.xls), *.xls", , "Choose a saving location for your copy")

---

tu peux m'expliquer cette ligne sur ton premier code

Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4)

thx

bien sur
Now() retourne la date du jour ==> 01/03/2007 14:22:35:00
La fonction Mid permet de décoper la chaine de caractère
Ainsi Mid(chaine,debut,longueur)
Mid(Now(), 1, 2) ==> 2 caractères à partir du premier ==> 01
Mid(Now(), 4, 2) ==> 2 caractère à partir du quatrième ==> 03
Mid(Now(), 7, 4) ==> 4 caractères à partir du septième ==> 2007

Voilà, en concaténant le tout, tu trouves 01032007

ca m'a l'air tout bon, je vais tester ton code

;)

Citation:

---

Envoyé par helios77

essaie çà

Code:

---

1 2 3 4 5

dim nomFichier,repertoire as string repertoire = "C:\" nomFichier = "essai" & Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4) & "paris" ActiveWorkbook.SaveAs Filename:= repertoire & nomFichier & ".xls"

---

---

Pourquoi tu t'embete avec un Mid ?

Suffit de faire

Code:

---

1 2 3

day(date) month(date) year(date)

---

ça te donnera le jour, le mois et l'année :)

Meme si tu veux faire plus précis encore ut peux faire comme ça :

Code:

---

1 2 3 4 5 6 7

dim date_du_jour,jour,mois,annee jour = day(date) mois = month(date) annee = year(date) if jour < 10 then jour = 0 & jour if mois < 10 then mois = 0 & mois date_du_jour = jour & mois & annee

---

A toid e mettre dans l'ordre après :mrgreen:

tiens j'en remet une couche...
il y as aussi format... ;)

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim stNom As String   stNom = "essai" & Format(Now(), "ddmmyyyy") & "paris.xls" MsgBox stNom   End Sub

---

oui je sais mais je voulais justement éviter de rajouter les tests pour concatener un 0 en cas de besoin

D'après cesbesoins, il voulais les jour et les mois sur 2 caractères

En même temps ta version permettrait de mettre l'application à l'international

ton code tient sur 6 linges moi sur une seule

par contre le coup du format je ne connaissais pas sous Excel

Juste une petite remarque pratique...

Si, dans un nom de fichier, on utilise une date au format "jjmmaaaa", le tri se fera sur le jour, puis le mois et, enfin, l'année.
Pas très pratique pour faire des recherches.

Il est plus intéressant d'utiliser le format date japonais "aaaammjj" qui permettra de trier dans un ordre logique: année, puis mois, puis jour.