FONCTION QUI LISTE LE CONTENU D'UN FICHIER SUR UNE FEUILLE EXCEL.

Sub Listage()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.CutCopyMode = False
'On Error Resume Next        'evite les erreurs merci Nix
Directory_0 = "Z:\Alex\William\Fourre tout\Classeur1.xls"
Directory_1 = "\\Laplink\apave\"

Sheets("WWW").Select
Cells(1, 1) = "Nom"
Cells(1, 2) = "Taille"
Cells(1, 3) = "Date"
Range("A1:C1").Font.Bold = True
Columns("C:C").NumberFormat = "m/d/yy"

r = 2
With Application.FileSearch
 .NewSearch
 .LookIn = Directory_1
 .Filename = "??????????.xls"   'spécifique à mon format de fichieer
 .SearchSubFolders = False
 .Execute
 
 For i = 1 To .FoundFiles.Count
 Cells(r, 1) = .FoundFiles(i)
 Cells(r, 2) = FileLen(.FoundFiles(i))
 Cells(r, 3) = FileDateTime(.FoundFiles(i))
 r = r + 1
 Next i
End With

Directory_2 = "\\Laplink\apave\S204190322.xls"
Directory_3 = "Z:\Alex\William\Fourre tout\Classeur2.xls\"
FileCopy Directory_2, Directory_3

Sheets("WWW").Select


nbligne = Sheets("WWW").UsedRange.Rows.Count
    nbligne = nbligne + ActiveSheet.UsedRange.Row - 1
    MsgBox (nbligne)
    

End Sub