Discussion :

[rom05]

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.

[SilkyRoad]

bonsoir


je ne connais pas ta sous fonction "Macro_corresp_nom_espece" mais j'utiliserais plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Macro_corresp_nom_espece CL1, .Files(z).strFileName

et déclarerais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

z as Long

Ce qui donne :

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
Sub ouverture_fichier_txt()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Dim Recherche As ClFileSearch.ClasseFileSearch
Dim CL1 As Workbook
Dim z As Long
Dim Rep As String
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, .Files(z).strFileName
            Next
          'Else
            'MsgBox "Aucun fichier dans le répertoire " & Rep
        'End If
    End With
End Sub

bonne soirée
michel