Comment faire pour Ajouter la Date et l'Heure De Nom de Fichier à l'Aide de VBA dans Excel

Grâce à Siddharth Déroute à ce Post j'ai appris à enregistrer la feuille de calcul dans une Feuille de calcul. Maintenant, ma question est comment je peux ajouter la Date et l'Heure de création du fichier comme:

TestSheet_25May2013_5pm.xls

Sub SaveSheet()
    Dim FName As String

    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False


    FName = "C:\Users\somebody\Documents\TestSheet" & Format(Range("E19"), "mmm-d-yyyy") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=FName, _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled



End Sub

pouvez-vous s'il vous plaît laissez-moi savoir comment faire cela?

OriginalL'auteur Behseini | 2013-12-17