Nom de fichier

Bonjour à tous

serait il possible pour cette macro qui fonctionne très bien, lors de l'enregistrement du fichier se mette automatiquement la date du jour en plus du nom de fichier que j ai déjà donné.

Actuellement quand je lance, le fichier s'enregistre et se nom "fichier de temps ", j aimerais qu il se nomme " fichier de temps + la date du jour" comme tel "fichier de temps 01/01/2017" .

Comme d'habitude merci de votre aide précieuse.

Sub LUNDI()

'

' Macro8 Macro

'

'

Sheets("LUNDI").Visible = True

Sheets("LUNDI").Select

Cells.Select

Selection.Copy

Workbooks.Add

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Columns("H:H").Select

Application.CutCopyMode = False

Selection.NumberFormat = "0.0"

Sheets("Feuil1").Select

Sheets("Feuil1").Name = "TRS"

Range("E1").Select

ActiveWorkbook.SaveAs Filename:="C:\Users\CAPITANF\Documents\fichier de temps.xls", _

FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWindow.Close

Sheets("LUNDI").Select

ActiveWindow.SelectedSheets.Visible = False

End Sub

Bonjour,

tiens ta macros modifié:

Sub LUNDI()
'
' Macro8 Macro
'

'
Sheets("LUNDI").Visible = True
Sheets("LUNDI").Select
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:H").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.0"
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "TRS"
Range("E1").Select
ActiveWorkbook.SaveAs Filename:="C:\Users\CAPITANF\Documents\fichier de temps - " & Format(Now, "dd-mm-yyyy") & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("LUNDI").Select
ActiveWindow.SelectedSheets.Visible = False

End Sub

Confirme moi que cela te conviens,

Bonne journée,

RemBabar

bonsoir babar,

Pour la date mettre

Format(date, "dd-mm-yyyy")

fredolilo :

il n'est pas possible d'utiliser le caractère "/" dans les noms de fichiers...

A+

Merci Rembabar c est impeccable, par con,tre pourrais tu encore m aider si je refuse d enregister le fin cela met un message d erreur avec débogage,

Vois tu de quoi cela peut venir?

Merci Galopin je débute vraiment mais c était surtout pour l esprit de ce que je voulais les ///

Bonjour Fredolilo !

Je n'ai pas bien compris ton problème, tu as un débogage quand ? Tu parle de si le fichier existe déjà et qu'il te demande de confirmer ?

Si c'est bien ça, tu veux qu'il ne te pose plus la question, et qu'il enregistre ?

Merci du conseil galopin01, je ne sais pas pourquoi, mais j'ai une préférence pour Now() et non pour Date, mais je ne sais pas si l'un est mieux que l'autre ...

RemBabar

bonjour,

[babar] : En l'espèce il n'y a pas grande importance, VBA faisant la conversion nécessaire.

Dans la plupart des autres situations (faisant appel à des variables) cela pourrait poser problème :

Une date pouvant être stockée sous la forme d'une variable de type "Long"

"Now" étant nécessairement du type Date ou Double

Appliqué à une cellule l'un ou l'autre appliqueraient un format différent à la cellule.

A+