Bonjour,

A l'aide! J'ai une instruction en code :
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
18
 
With Application.FileSearch
 
        .LookIn = "C:\monchemindacces"
        .Filename = "*.xls"
        If .Execute() > 0 Then
        MsgBox "" & .FoundFiles.Count & _
            " fichier(s) trouvé(s)"
 
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
        Else
        MsgBox "Les fichiers ne sont pas disponibles."
        Exit Sub
 
        End If
    End With
ça marche sur mon poste habituel, mais sur un micro que je viens d'acquérir, ça marche pas (en fait, l'ordi n'arrive pas à détecter les fichiers dans le chemin d'accès spécifié)!!

quand je lance la macro pas à pas, l'instruction ne semble pas reconnaitre le parametre .Execute()>0

les bibliothèques sont les memes en plus !! que faire ?


Merci d'avance pour votre aide si précieuse car la je suis bloqué dans mon projet !!