Recuperer date fichier dans une cellule excel

Private Sub CommandButton1_Click()

Set DOSSIER_A_FOUILLER = CreateObject("Shell.Application")
Set CLASSEURS_EXISTANTS = DOSSIER_A_FOUILLER.Namespace(ActiveWorkbook.Path)

For Each ELEMENT In CLASSEURS_EXISTANTS.Items

On Error Resume Next 'Au cas où il n'y ait pas de Fichier

If CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 2) Like "Feuille*Excel*" Then
 
 N = N + 1
   With Worksheets("Feuil1")
   .Cells(N, 1).Value = CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 0) ' NOM DU CLASSEUR
   .Cells(N, 2).Value = Format(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3), "dddd d mmmm yyyy ") ' DATE MISE A JOUR
   .Cells(N, 3).Value = Format(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3), "hh ""h.""mm") 'HEURE MISE A JOUR
    End With
 End If
  
Next ELEMENT

End Sub