salut,
quand j'execute ce code le programe se bloc et ca prend du temps avant de finir l'execution estce que il ya un moyen pour faire plus vite


merci



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub ParcoursRep(oFolder As Scripting.Folder)
  Dim oFile As File
  Dim oSousRep As Folder
For Each oFile In oFolder.Files
If (oFile.DateCreated > Label1.Caption) Then List1.AddItem oFile
Next
For Each oSousRep In oFolder.SubFolders
ParcoursRep oSousRep
Next
End Sub