XL 2010 SaveAs Filename

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #2

Bonsoir adil

Tu as plusieures cellules avec des dates différentes? 🙄 Mais il serais mieux de joindre le fichier.
Et pas besoin de getsaveasfilename. Si tu as plusieures dates

VB:

chemin = ThisWorkbook.Path  & "\Fichiers\"
With Sheets("xxxx")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
tm = Format(Time, "hh:mm")
For  i = 2 to derlig
temp = Format(.Range("a" & i), "dd_mm_yyyy")
nom = "achat le " & temp & " à " & tm
ActiveWorkbook.SaveAs Filename:=  chemin & nom & "xls", _
FileFormat:=xlExcel8, CreateBackup:=False
t = Timer + 1: Do Until Timer > t: DoEvents: Loop
Next i
End With

 

Dernière édition: 21 Juin 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2018

• #3

Bonsoir le fil, le forum

Une autre syntaxe

VB:

Sub a()
Dim strPath$, fn$
strPath = ThisWorkbook.Path & "\"
fn = strPath & Format(Now, """achat le ""dd_mm_yyyy"" à ""hh""h""mm"".xls""")
ActiveWorkbook.SaveAs fn, 56
End Sub

@Lone-wolf
Euh, Windows ne va pas aimer ton nom de fichier, non ? 🙄 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #4

Bonsoir Jean Marie 🙂

@Staple1600

Si tu parle de la boucle, je ne sais pas. D'après le Do Loop Until de notre ami, je suppose qu'il y a plusieures dates, donc divers classeurs à créer.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2018

• #5

Re

Non, je te parle de ton format! 😱
Essaie de d'avoir un / dans un nom de fichier... (lol)

Lone-wolf à dit:

Bonsoir adil

VB:

chemin = ThisWorkbook.Path  & "\Fichiers\"
temp = Format(.Range("a" & i), "dd/mm/yyyy") 'arrrrrghhhhhh ;-)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #6

Re

@Staple1600

Oui, c'est vrai tu as raison, maintenant ça me fait tilt. Ce format là n'est pas accepté dans un nom de classeur. 😳

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2018

• #7

Re

Pas que dans les classeurs!!!
Clic-droit sur le bureau -> Nouveau document Texte
Essaie de de le renommer en 01/01/2018.txt et tu verras illico Windows broncher 😉

EDITION: Vu que tu as édité ta macro sans dire pourquoi tu l'as fait, la lecture du fil est tout de suite moins fluide 😉
(Heureusement que je t'avais quoté avant l'édition 😉)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #8

Re

@Staple1600

Ah! D'accord. Merci pour l'info. 😉 Je n'ai jamais essaié avec d'autre types de fichier.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2018

• #9

Re

Voir l'édition de mon précédent message 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2018

• #10

Re,

@Lone-wolf
Et rebim 😉
Un petit coup de mou ? 😉

Lone-wolf à dit:

Bonsoir adil

Tu as plusieures cellules avec des dates différentes? 🙄 Mais il serais mieux de joindre le fichier.
Et pas besoin de getsaveasfilename. Si tu as plusieures dates

VB:

chemin = ThisWorkbook.Path  & "\Fichiers\"
With Sheets("xxxx")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
tm = Format(Time, "hh:mm") 'Arggggh  le retour ;-)
For  i = 2 to derlig
temp = Format(.Range("a" & i), "dd_mm_yyyy")
nom = "achat le " & temp & " à " & tm
ActiveWorkbook.SaveAs Filename:=  chemin & nom & "xls", _
FileFormat:=xlExcel8, CreateBackup:=False
t = Timer + 1: Do Until Timer > t: DoEvents: Loop
Next i
End With

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #11

Re

@Staple1600 : oui j'ai vu mais je n'ai pas fait le test, j'était concentrer sur ma macro. Mais si c'est le classeur qu'il veux enregistrer sous un nouveau nom, ma macro est obsolète. Normalement c'est ancien nom > nouveau nom, mais je ne souviens plus de la syntaxe exacte.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2018

• #12

Re,

@Lone-wolf
Je voulais juste te dire que Windows t'avais prévenu

😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #13

Re

@Staple1600

Ok chef 😉

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Juin 2018

• #14

Re à tous

@adilprodigy : si ton fichier est différent de celui-ci, il faut supprimer tmp et faire comme ceci
temp = Format(.Cells(i, 1), "dd_mm_yyyy à h""h ""mm")

Crée un nouveau classeur sur le bureau et comme nom tu met "Fichiers".

 

Pièces jointes

• Classeur exemple.xlsm

  17.2 KB · Affichages: 25

Dernière édition: 22 Juin 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juin 2018

• #15

Re,

Merci d'emprunter ma syntaxe Lone-Wolf 😉

Staple1600 (il était 19h24 quand grignotant une pomme) à dit:

Bonsoir le fil, le forum

Une autre syntaxe

VB:

Sub a()
Dim strPath$, fn$
strPath = ThisWorkbook.Path & "\"
fn = strPath & Format(Now, """achat le ""dd_mm_yyyy"" à ""hh""h""mm"".xls""")
ActiveWorkbook.SaveAs fn, 56
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif