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

[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

[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