ClassFileSearch: Correspondance du code 2003->2010

Bonjour,

Deja merci à ceux qui liront ce message de désespoir (que j'ai posté sur d'autres forum sans succès). En gros j'utilise une macro assez fat qui utilise la bien nommé feu-fonction "ClassFileSearch". Feu-fonction car comme vous le savez tous elle n'existe plus sous 2007 donc sous 2010.
Ma macro fonctionnait très bien sous 2003 puis passé sous 2010, "HIC"...je vous passe donc les détail j'ai suivi les instructions de ce site et d'autres en installant les macros complémentaires...et j'ai un petit soucis pour traduire une partie de mon code (certaine méthodes et propriété ayant changé de nom ou disparu dans le clone pour 2010 de class file search:

Code:

---

1 2 3 4 5 6 7 8 9

Set RecFichier = ClFileSearch.Nouvelle_recherche With RecFichier .FolderPath = MyPath .Filename = sFeuille & "*" .FileType = msoFileTypeExcelWorkbooks If .Execute(SortBy:=msoSortByLastModified, sortorder:=msoSortOrderDescending) > 0 Then sMyName = Mid(.FoundFiles(1), Len(MyPath) + 1) End If End With

---

Jusqu'a la selection du répertoire de recherche pas de soucis, c'est après que cela ne fonctionne plus. Plus précisement je ne trouve pas la correspondance de la macro complémentaire avec ".Filename=", ".FileType=" ainsi que la condition sur Execute et ".FoundFiles(1)". En gros j'ai du mal.

Si ma demande est incomplète n'hésitez pas à me le dire.

Quelqu'un aurait il une idée pour faire avancé cette macro ?

Merci d'avance !

Bonjour,

As-tu eu l'occasion de voir ceci --> http://silkyroad.developpez.com/vba/classefilesearch/ :question:

Bien évidemment ! Et je remercie d'ailleurs les concepteur de ce tutoriel qui m'a servi et à fonctionné sans trop d'encombre dans d'autres macro utilisant Classfilesearch dont j'avais besoin.
Et justement les macros complémentaires sensé remplacer le classfilesearch (que j'utilise donc) qui tournait sous 2003 viennent de ce tutoriel.
J'ai ensuite fait quelques ajustement toujours grâce à ce tutoriel car la macro bloquait avant ce stade avec ma macro telle qu'elle était programmé sous 2003.
Ma derniere modification en date (qui fonctionne) est d'avoir remplacé ".LookIn=" (ou quelque chose du style) par ".FolderPath=" toujours en suivant le tutoriel.

Et c'est à ce stade que je suis bloqué et ne trouve pas la correspondance pour le reste du code avec les nouvelles méthodes de la macro complémentaire du tutoriel.