Ouverture de fichier avec le complement File Search pour Excel 2007

Version imprimable

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:

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 !

07/03/2012, 22h26
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:

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

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

Bonsoir,
essayes comme ça

Code:

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)
        ....

08/03/2012, 10h00
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... :ccool:

Merci beaucoup de vos réponses