Excel Importer et Enregistrer le nom de fichier de macro

Question

J'ai un document Excel qu'un employé doit remplir l'information. Après cela, j'ai fait une macro qui enregistre le fichier dans 2 dossiers différents et l'imprime. Mon problème est le nom du fichier. Comment puis-je faire qu'il nomme le fichier par exemple

QualityReportN où N est un nombre ou date_time exact (secondes)

voici le code à ce jour:

`Sub PrintSave() 
' 
' PrintSave Macro 
' 
' Print on default printer save 
' Save in two place: 
' 1.Specific folder on desktop (named quality cards) 
' 2.Network server (location eg. \\HOMEGROUP\QualityCards\) 
' 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
     IgnorePrintAreas:=False 
    ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Users\Logical\Desktop\EXEL\QualityReprotN.xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 
    ChDir "C:\Users\Logical\Desktop\New folder" 
    ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Users\Logical\Desktop\Network\QualityReportN2.xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 
End Sub` 

Answer 1

ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Users\Logical\Desktop\Network\QualityReportN" & format(now(),"yyddmm_hhmmss") & ".xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 

Answer 2

vous pouvez utiliser la fonction Now()

Sub PrintSave() 
' 
' PrintSave Macro 
' 
' Print on default printer save 
' Save in two place: 
' 1.Specific folder on desktop (named quality cards) 
' 2.Network server (location eg. \\HOMEGROUP\QualityCards\) 
' 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
     IgnorePrintAreas:=False 
    ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Users\Logical\Desktop\EXEL\QualityReprotN" & format(now(),"yyddmm_hhmmss") & ".xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 
    ChDir "C:\Users\Logical\Desktop\New folder" 
    ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Users\Logical\Desktop\Network\QualityReportN2" & format(now(),"yyddmm_hhmmss") & ".xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 
End Sub 

EDIT:

Consultez la bibliothèque VBA pour un autre formatage! Link