Bonjour à tous,

Je viens de passer d'Excel 97 à Excel 2007 et donc de remplacer mon ancienne macro FileSearch (qui fonctionnait très bien) en macro ClFileSearch

Le problème c'est que le comptage est faux : j'obtiens systématiquement 3 fois plus de fiches comptées que ce qu'il y a réellement dans le dossier spécifié.

Pouvez-vous m'aider à trouver mon erreur ?

Merci !

Voici mon code :
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
Public Sub fiches()
 
Dim CL1 As Workbook
Dim numlig As Integer
Dim nom As String
 
Set CL1 = ThisWorkbook
numlig = 3
 
 
Dim i As Long
Dim Recherche As ClFileSearch.ClasseFileSearch
 
Set Recherche = ClFileSearch.Nouvelle_Recherche
 
chemin = InputBox("répertoire dans lequel chercher")
With Recherche
    .FolderPath = chemin
 
    .SubFolders = True
 
    .SortBy = sort_Name
 
    .Extension = "*.xls"
 
    .Execute
    If .Execute = 0 Then MsgBox ("Aucun fichier trouvé.")
    If .Execute <> 0 Then MsgBox (.FoundFilesCount & " fichiers trouvés.")
 
 
End With
 
Set Recherche = Nothing
 
End Sub