Bonjour a tous, forum bonjour

Excel 2007 et Windows 7 32 bits

Le code ci-dessous a pour rôle de m'afficher dans une colonne (C) (feuil1) la durée de mes fichiers, elle
fonctionne très bien SAUF qu'elle est un peu trop longue, ce code mets 2Mn 20s pour 2010 fichiers.

Mon PC est équiper correctement.

Je pense qu'il doit être possible d'améliorer le code, j'ai du sans doute mal faire, ca me parait bizarre
que ce soit aussi long a s'afficher. 2010 fichiers c'est pas beaucoup pour un ordi.

Merci a vous et si votre temps le permets de bien vouloir regarder le code.

Bonne journée a tous

Cdlt Ray

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'### AFFICHE LA (DUREE) DES FICHIERS
 
Public Sub Listing_Affiche_la_Durée()
Application.EnableEvents = False
            Range("C1:C4000").ClearContents                   'Efface colonne C
 
   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.Namespace("H:\")                'Adapter le chemin du Disque dur
 
         R = 1
For Each strFileName In objFolder.Items                       'Boucle sur les fichiers "avi" du répertoire
 
      If Right(objFolder.GetDetailsOf(strFileName, 0), 4) = ".avi" Then _
         Cells(R, 3) = objFolder.GetDetailsOf(strFileName, 27)   'Durée
 
         R = R + 1
Next
         MsgBox "terminer"    'Cells(3, 6) = "Terminer"      'Fin de chargement(Durée)
Application.EnableEvents = True
End Sub