'....
For Each oFich In oFld.Files
[COLOR="Blue"]If Right(oFich.ShortName, 3) = "xls" Then[/COLOR]
With ListView1
'LISTE DES FICHIERS
.ListItems.Add , , oFich.Name
x = .ListItems.Count
.ListItems(x).Checked = True
'POIDS DES FICHIERS
.ListItems(x).ListSubItems.Add , , _
Format(Round(oFich.Size / 1024, 2), "###0.00")
' DATE DE CREATION NUMERIQUE
.ListItems(x).ListSubItems.Add , , _
CDec(CDate(oFich.DateLastModified))
'TRADUCTION DE LA DATE EN JOUR
.ListItems(x).ListSubItems.Add , , _
Format(.ListItems(x).ListSubItems(2), "dddd d mmmm yyyy ")
'TRADUCTION DE LA DATE EN HEURE
.ListItems(x).ListSubItems.Add , , _
Format(.ListItems(x).ListSubItems(2), "hh ""h.""mm")
.ListItems(x).ListSubItems.Add , , oFich.Path
End With
[COLOR="Blue"]End If[/COLOR]
Next
'....