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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.