Private Sub UserForm_Initialize()
With Me.ListView1
.Gridlines = True
.View = 3
.Left = 4
.Top = 0
.Width = 350
.Height = Me.Height - 70
.CheckBoxes = True
With .ColumnHeaders
.Add , , "CDES", 100
.Add , , "DATE NUMERIQUE", 0 ' 0 => NON VISIBLE
.Add , , "DERNIERE MISE A JOUR", 140, lvwColumnRight
.Add , , "HEURE", 50 ' HEURE
End With
End With
Set DOSSIER_A_FOUILLER = CreateObject("Shell.Application")
Set CLASSEURS_EXISTANTS = DOSSIER_A_FOUILLER.Namespace(ThisWorkbook.Keywords & "\RESULTAT ECO suivi quotidien\Synthèse\")
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
With UserForm1.ListView1
.ListItems.Add , , CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 0) ' NOM DU FICHIER
.ListItems(.ListItems.Count).ListSubItems.Add , , _
CDec(CDate(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3))) ' DATE NUMERIQUE
.ListItems(.ListItems.Count).ListSubItems.Add , , _
Format(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3), "dddd d mmmm yyyy ") ' DATE MISE A JOUR
.ListItems(.ListItems.Count).ListSubItems.Add , , _
Format(CLASSEURS_EXISTANTS.GetDetailsOf(ELEMENT, 3), "hh ""h.""mm") 'HEURE MISE A JOUR
End With
End If
Next ELEMENT
' TRI DE LA LISTE SUIVANT LA DERNIERE MODIFICATION
UserForm1.ListView1.Sorted = False
UserForm1.ListView1.SortKey = 1
UserForm1.ListView1.SortOrder = lvwDescending
UserForm1.ListView1.Sorted = True
UserForm1.ListView1.ListItems(1).Checked = True
End Sub