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

• LISTER TOUS LES FICHIERS D'UN DOSSIER ET DE SES SOUS-DOSSIERS
• LISTER LES RÉPERTOIRES ET SOUS RÉPERTOIRES D'UN DOSSIER
• PROTÉGER ET DÉPROTÉGER TOUTES LES FEUILLES D'UN CLASSEUR
• REPÉRER VISUELLEMENT DANS UNE FEUILLE DE CALCUL LES CELLULES NON PROTÉGÉES
• REMPLACER EN VBA LE POINT PAR UNE VIRGULE

• GESTION DES INTERVENTIONS SUR UN PARC MACHINES
• USF_DATES.XLS (API VBA)
• UN GRAPHIQUE 3D TOUT EN MOUVEMENT
• GESTION DES STYLES DE MS WORD 2003
• CONTROL_PROCESS PROCESS_VIEWER