Fonction qui liste le contenu d'un fichier sur une feuille excel.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 770 fois - Téléchargée 36 fois

Contenu du snippet

A adapter en fonction de vos directory et du format de vos fichier excels.

Source / Exemple :


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

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.