Insertion de la date du jour dans le nom d'un fichier
Bonjour,
A la suite du lancement d'une macro, les données d'une feuille de calcul sont enregistrées dans un nouveau fichier et je souhaiterais insérer la date du jour dans le nom du fichier que la macro va créer, je voudrais que cette date apparaisse à la suite de RETOUR CONSO ...
j'ai essayé en utilisant la variable Dim mais cela n'a pas marché.
Merci par avance pour votre retour.
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "D:\FICHIER\Retour EBS"
ActiveWorkbook.SaveAs Filename:= _
"D:\FICHIER\Retour EBS\RETOUR CONSO.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Bonjour,
Une proposition à tester :
Cells.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "D:\FICHIER\Retour EBS"
ActiveWorkbook.SaveAs Filename:= "D:\FICHIER\Retour EBS\RETOUR CONSO" & Format(Date, "ddmmyyyy") & ".xlsx", FileFormat:=xlOpenXMLWorkbookBonjour le forum
Bonjour SAM77170
Oupssss : pas rafraîchi : Bonjour Pedro22
Peut être avec ceci :
"D:\FICHIER\Retour EBS\RETOUR CONSO " & Format(Date, "d mmmm yyyy") & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False@+ Ericcool02
Ps : Dim sert à déclarer et allouer de l’espace de stockage pour une ou plusieurs variables.
Bonjour, merci pour votre réponse à tous les deux. C'est parfait cela marche à merveille.