Discussion :

[shadok6]

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

[LeForestier]

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

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
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+

[shadok6]

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