XL 2010 SaveAs Filename

[TheProdigy]

Bonjour,

Comment enregistrer le fichier sous le nom " achat le dd/mm/yyyy à hh:mm ? dans le code

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False

ActiveWorkbook.SaveAs Filename:=fName & "xls", _
FileFormat:=xlWorkbookNormal, CreateBackup:=False

Si vous avez un autre code mieux que celui là n'hésitez pas à me le communiquer car même dans ce code il m'affiche une erreur quand il me dit le fichier classeur 1 existe déjà voulez vous remplacer le classeur 1 (déjà existant) je clique sur annuler il affiche une erreur 1004 la méthode 'SaveAs' de objet '_Workbook' a échoué

Merci

 

[Lone-wolf]

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

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

 

[Staple1600]

Bonsoir le fil, le forum

Une autre syntaxe

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 ?

 

[Lone-wolf]

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.

 

[Staple1600]

Re

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

Bonsoir adil

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

 

[Lone-wolf]

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.

 

[Staple1600]

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 )

 

[Lone-wolf]

Re

@Staple1600

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

 

[Staple1600]

Re

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

 

[Staple1600]

Re,

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

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

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

 

[Lone-wolf]

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.

 

[Staple1600]

Re,

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

 

[Lone-wolf]

Re

@Staple1600

Ok chef

 

[Lone-wolf]

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

 

[Staple1600]

Re,

Merci d'emprunter ma syntaxe Lone-Wolf

Bonsoir le fil, le forum

Une autre syntaxe

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