Discussion :

[Scoubi7]

Bonjour !

Etant passé d'Office 2000 à 2010, j'ai essayé d'adapter à mon ancien FileSearch la méthode proposée ici

J'ai tenté d'incorporer le 1° code du chapitre II dans ma Macro, mais pardonnez mon ignorance, dois-je incorporer un des codes contenus dans le chapitre III ?

[Scoubi7]

j'ai vu que les codes du chapitre III se sont "intégrés à Excel" mais cependant j'ai toujours une erreur sur la ligne :

Code :

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

Dim Recherche As ClFileSearch.ClasseFileSearch

-> Type défini par l'utilisateur non défini

A savoir que j'ai incorporé dans

Code :

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

Private Sub Workbook_Open()

l'ensemble du code

Code :

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

Sub Test ()

du chapitre II

Quelqu'un aurait-il un classeur où cette commande y serait pour que je puisse comprendre comment l'intégrer au mien ?

A savoir que je veux juste rechercher les fichiers *.xls présent dans un dossier spécifique...

[Scoubi7]

En fait j'ai trouvé une solution avec la commande "Dir" qui est beaucoup moins lourde et qui me suffit amplement.

[arnaudTHE]

Bonjour Scoubi7 !

Oui les macros du chapitre 3 doivent en effet être insérées.
Mais si tu as installé CFileSearch, en principe tu as un module 2 qui a le code Public Type InfosResultFichiers.
D'autre part, Public Function Nouvelle_Recherche() As ClasseFileSearch est dans le module 1.
Et enfin un module de classe qui comprend le long code du chapitre 3.

Après si tu dis que tout est bien présent, le problème doit venir du Private Sub Workbook_Open().
Mais pour en savoir plus il faudrait ton fichier...

[Scoubi7]

Merci pour tes précisions mais comme indiqué j'ai utilisé la commande "Dir" dans mon fichier