XL 2010 SaveAs Filename

TheProdigy · 21 Juin 2018

Bonjour,

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

VB:

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 · 21 Juin 2018

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

Staple1600 · 21 Juin 2018

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 ?

Lone-wolf · 21 Juin 2018

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 · 21 Juin 2018

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

Lone-wolf · 21 Juin 2018

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 · 21 Juin 2018

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 · 21 Juin 2018

Re

@Staple1600

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

Staple1600 · 21 Juin 2018

Re

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

Staple1600 · 21 Juin 2018

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

Lone-wolf · 21 Juin 2018

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 · 21 Juin 2018

Re,

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

Lone-wolf · 21 Juin 2018

Re

@Staple1600

Ok chef

Lone-wolf · 21 Juin 2018

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 · 22 Juin 2018

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

XL 2010 SaveAs Filename

TheProdigy

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires