Discussion :

[Tydher]

Bonjour à tous,
Après avoir suivi le tutoriel qui se trouve ici http://silkyroad.developpez.com/vba/classefilesearch/
Je tente d'ouvrir mes fichier Excel afin de faire une série d'actions sur eux.

Voila ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set Recherche = ClFileSearch.Nouvelle_Recherche
With Recherche
    .FolderPath = "C:\Documents and Settings\Bureau\Etude\TestAutomatisation\Test\"
    .SubFolders = False
    .Execute
    For x = 1 To .FoundFilesCount
 'Ouverture de l'application
       Set appExcel = New Excel.Application
 'Ouverture d'un fichier Excel
        fichier = .Files(x).strFileName
        Set wbExcel = Application.Workbooks.Open(.FolderPath("fichier"))
        ....

Cependant, j'ai une erreur sur la dernière ligne de ce que j'ai posté, avec comme message d'erreur
"Utilisation incorrecte de la propriété" avec .FolderPath de surligné

J'ai testé divers syntaxe, sans succès...

Merci d'avance de votre aide !

[BlueMonkey]

Bonsoir,

La FolderPath n'est pas une méthode de Recherche, mais un propriété.

Essaye de remplacer la ligne 11 par celle-ci :

Code :

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

Set wbExcel = Application.Workbooks.Open(.FolderPath & "\" & fichier)

Ce code n'a pas été testé. Peut être que le & "\" est inutile.

[casefayere]

Bonsoir,
essayes comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim Fichier2
Set Recherche = ClFileSearch.Nouvelle_Recherche
With Recherche
    .FolderPath = "C:\Documents and Settings\Bureau\Etude\TestAutomatisation\Test\"
    .SubFolders = False
    .Execute
    For x = 1 To .FoundFilesCount
 'Ouverture de l'application
       'Set appExcel = New Excel.Application
 'Ouverture d'un fichier Excel
        Fichier = .Files(x).strFileName
        fichier2 = .Files(i).strpathName & "\" & Fichier
        Workbooks.Open (Fichier2)
        ....

[Tydher]

Merci de vos réponses.

J'ai testé dans un premier temps la solution de BlueMonkey, et j'ai le même message d'erreur (avec ou sans le \)

Ensuite la méthode de Casafayere qui fonctionne bien...

Merci beaucoup de vos réponses