FileSearch sous 2003 et 2007

Version imprimable

18/09/2009, 09h32
shadok6

FileSearch sous 2003 et 2007

Salut,

J'ai écrit une macro sous excel 2003 utilisant la fonction FileSearch. Mon fichier est utilise par nombreux utilisateurs et certains sont sous Excel 2007, la macro ne fonctionne donc plus chez eux.

Y'a-t-il une solution pour la faire fonctionner sous les 2003 et 2007 dans le meme temps? car je ne peux pas expliquer aux utilisateurs sous Excel 2007 (qui ne sont pas programmeurs VBA) comment installer le complement ClasseFileSearch.
merci de votre aide
Celine

Bonjour,
Je ne sais pas ce que tu veux faire mais tu peu remplacer FileSearch par...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub LireRepertoir2()
'lire les fichiers d'un répertoir
Dim fs, F, f1, s, sf
Dim Ext As String, Chemin As String
    Chemin = "E:\" 'adapter au répertoir où sont situés les fichiers.
    Ext = "xls" 'adapter l'extension
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    For Each f1 In sf
        If Right(f1.Name, 3) = Ext Then 'pour être certain que c'est un bon fichier
            'ici tester le nom
            'et en faire ce que l'ont veux
        End If
    Next
End Sub

qui fonctionne sur Excel 2000....2007
A+

18/09/2009, 17h17
shadok6

Impec, ca marche nickel!
C'etait la solution simple que j'attendais!
Merci