date au format yymmdd dans nom de fichier

Spitnolan08

XLDnaute Barbatruc

• 3 Janvier 2007

• #2

Re : date au format yymmdd dans nom de fichier

Bonjour j-phi,

As tu essayé de transformer le format de ta cellule en format texte ?

A+

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 3 Janvier 2007

• #3

Re : date au format yymmdd dans nom de fichier

Bonsoir,

essaie en utilisant cette macro :

Code:

Dim extension As String, nomfichier As String
extension = ".xls"
nomfichier = "essai" & Format(Range("A1"), "-yymmdd") & extension

A te lire

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 3 Janvier 2007

• #4

Re : date au format yymmdd dans nom de fichier

Re,

je viens de faire un essai et je ne comprends pas où est ton problème...
Peut être pourrait tu fournir un morceau de ton fichier avec le format exact de ta cellule...

Ci joint ex fonctionnant parfaitement

A ciao

 

Pièces jointes

• essai_210506.xls

  23.5 KB · Affichages: 49

Vote positif 0 Vote négatif

J

j-phi

Guest

• 3 Janvier 2007

• #5

Re : date au format yymmdd dans nom de fichier

Bonjour,

la formule :
nomfichier = "essai" & Format(Range("A1"), "yymmdd") & ".xls"

est exactement ce que je cherchais merci ! 🙂

Pour repondre a tes questions Spitnolan08 : en transformant le format de la cellule en texte, cela inscrit une chaine de chiffres qui n'a plus grand chose a voir avec la date ; et en regardant ton fichier, ce que tu as entre dans ta cellule de depart est au format standard (aucun probleme je suis d'accord) alors que je pars avec un format date, ce qui etait plus embetant.

@ bientot !

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 3 Janvier 2007

• #6

Re : date au format yymmdd dans nom de fichier

Hi j-phi et Dan,

Excuse moi je n'avais pas bien lu ta question...🙄 ni vu la réponse de Dan qui m'a mis sur la piste:
Voir fichier joint : ça marche avec ton format de cellule.

A ciao

 

Pièces jointes

• essai_120200.xls

  24.5 KB · Affichages: 59

Vote positif 0 Vote négatif

Z

zeh

Guest

• 26 Mars 2007

• #7

Re : date au format yymmdd dans nom de fichier

Bonjour à tous,

J'ai un soucis similaire de sauvegarde, je souhaiterais que la sauvegarde se fasse selon deux critères présent en A1 et B1, A1 et B1 étant des listes déroulantes de choix.

Au final la sauvegarde se présenterait sous la forme par ex:

Essais 26/03/2007 Matin.xls

Merci pour votre aide.

 

Pièces jointes

• Essais.zip

  7.5 KB · Affichages: 36
• Essais.zip

  7.5 KB · Affichages: 39
• Essais.zip

  7.5 KB · Affichages: 39

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mars 2007

• #8

Re : date au format yymmdd dans nom de fichier

Bonjour à tous

à ma connaissance tu ne peux nommer un ficher avec des "/" dans le nom.

bon après midi
@+

 

Vote positif 0 Vote négatif

Z

zeh

Guest

• 26 Mars 2007

• #9

Re : date au format yymmdd dans nom de fichier

Oui tu as raison, mais sous le format 26-03-2007 Matin.xls cela me convient, je cherche juste la macro qui permette d'intégrer les deux critères (date en A1 et texte en B1).

Merci d'avance

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mars 2007

• #10

Re : date au format yymmdd dans nom de fichier

Re

essaye peut être le code ci dessous :

Code:

ActiveWorkbook.SaveAs Format(Range("A1").Value, "dd-mm-yyyy") & " " & Range("B1").Value & ".xls"

@+

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 26 Mars 2007

• #11

Re : date au format yymmdd dans nom de fichier

Bonjour,
Tes valeurs sont en ligne 482 dans ton fichier...

Code:

Sub enregNom()
a = Format(Sheets("Feuil1").Range("A482"), "ddmmyy") & Sheets("Feuil1").Range("B482")
ActiveWorkbook.SaveAs Filename:="c:/essai_" & Format(a, "ddmmyy") & ".xls"
End Sub

Cordialement

Edit : Pas vu Pierrot

 

Vote positif 0 Vote négatif

Z

zeh

Guest

• 26 Mars 2007

• #12

Re : date au format yymmdd dans nom de fichier

Grand merci, c'est la bonne soluce.

 

Vote positif 0 Vote négatif