Sub Exemple_Six()
'[X] Reférence Shell & Automation
Dim ftpFolder As Shell32.Folder
Dim Fich As Shell32.FolderItem
Dim i&, vDate
i = 2
Set myShell = New Shell
Set ftpFolder = myShell.Namespace("ftp://anonymous:anonymous@speedtest.tele2.net/upload")
[A1:D1] = Array("Nom", "Date modif", "Heure modif", "Taille")
For Each Fich In ftpFolder.Items
Cells(i, 1) = Fich.Name 'Nom fichier
vDate = Split(ftpFolder.GetDetailsOf(Fich, 3))
Cells(i, 2) = Format(CDate(Mid(vDate(0), 2, 3) & Mid(vDate(0), 6, 3) & Right(vDate(0), 4)), "dddd dd mmmm yyyy")
Cells(i, 3) = vDate(1)
Cells(i, 4) = CStr(ftpFolder.GetDetailsOf(Fich, 1)) 'taille
i = i + 1
Next
End Sub