Bonjour !

J'ai un problème avec une fonction fileSearch qui évidemment ne fonctionne plus avec les versions récentes d'Excel :

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
With Application.FileSearch
             .NewSearch
             .LookIn = PublicationFolder
             .FileName = "*.xml"
             .SearchSubFolders = True
             .Execute
               For i = 1 To .FoundFiles.Count
                  ' Application.Cursor = xlWait
                   Range("A" & IndLigne) = .FoundFiles(i)
                   Range("B" & IndLigne) = FileLen(.FoundFiles(i))
                  ' Range("C" & IndLigne) = FileDateTime(.FoundFiles(I))
                   OkP = MarquerLesFichiersADetruire(Range("A" & IndLigne), PatternList, IndLigne)
                   IndLigne = IndLigne + 2
                   Application.Cursor = xlDefault
                   NbFichiers = NbFichiers + OkP
               Next i
    End With

(Le but du code complet est de récupérer le xml existant, l'ouvrir, récupérer les données, supprimer les lignes qu'on ne veut plus, puis refaire le xml (je crois qu'on supprime l'existant pour en recréer un autre)) ...

Fuuuu c'est dur de reprendre du code de quelqu'un ...

Je suis allée voir ceci : http://silkyroad.developpez.com/vba/classefilesearch/

mais je n'arrive pas à importer le complément. Je l'ai téléchargé, je l'ajoute avec Options, puis je vais dans références pour cocher ClFileSearch et il me met une erreur..

La bibliothèque de types ou l'Assistant requis n'est pas un projet VBA
Il me l'importe à part...

Imprim Ecran :
http://hpics.li/124c20a

Du coup j'ai essayé de faire glisser les modules et classe dans mon projet, mais je ne reconnais toujours pas fileSearch ?:

Help please...