Excel 2007 : ClasseFileSearch
Bonjour à tous,
voilà je viens de passer sur la version excel 2007 et je cherche une équivalence à la fonction Application.FileSearch des versions antérieures à 2007... J'ai trouvé la fonction ClasseFileSearch qui est présentée comme équivalente...
Ma problématique est la suivante : dans un même répertoire j'ai de nombreux fichiers texte que je dois ouvrir l'un après l'autre pour y effectuer une macro, mais mon script bug :
Code:
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
| Sub ouverture_fichier_txt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Recherche As ClFileSearch.ClasseFileSearch
Dim CL1 As Workbook, z As Integer, Rep$
Dim FL1 As Worksheet
Set CL1 = ThisWorkbook
'Répertoire des fichiers à copier
Rep = "F:\ROMAIN\these\travail\BD\Sophy_2004_origine\essai\"
'Crée le tableau des fichiers du répertoire
Set Recherche = ClFileSearch.Nouvelle_Recherche
'Ouverture des fichiers du répertoire
With Recherche
.FolderPath = Rep
.SubFolders = False
.SortBy = sort_Name
.Execute
For z = 1 To .FoundFilesCount
DoEvents
Macro_corresp_nom_espece CL1, .FoundFilesCount(z)
Next
'Else
'MsgBox "Aucun fichier dans le répertoire " & Rep
'End If
End With
End Sub |
çà bug au niveau de :
Code:
Macro_corresp_nom_espece CL1, .FoundFilesCount(z)
Excel renvoie une erreur de compilation : Nombre d'arguments incorrect ou affectation de propriété incorrecte???????????
Si quelqu'un peut m'aider...
Merci d'avance.
