Discussion :

[Djohn]

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

[Djohn]

je viens de penser a un truc pour le faire,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helios77]

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

essaie çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[doringen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[Djohn]

tu peux m'expliquer cette ligne sur ton premier code

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

thx

[helios77]

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

[Djohn]

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

[illight]

essaie çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
Dim stNom As String
 
stNom = "essai" & Format(Now(), "ddmmyyyy") & "paris.xls"
MsgBox stNom
 
End Sub

[helios77]

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

[AlainTech]

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.