[VBA-E] mon code ne marche pas sur un autre PC

Bonjour,

A l'aide! J'ai une instruction en code :

Code:

---

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 !! :(

Citation:

---

Filename = "*.xls"
If .Execute() > 0

---

Tu es en VB ou en VBA ?
En VBA (97), c'est "*.xls" qui n'est pas reconnu
Pour les fichiers Excel, tu as "NomFich(n)= Dir(Chemin, vbNormal) dans une boucle, pour avoir les noms des classeurs Excel.

Tu dis

A+

super merci pour l'info je v voir si ça marche :D

sinon je suis en vb (Excel 2003)

Code:

---

"C:\monchemindacces"

---

Ce chemin d'acces existe-t-il aussi sur l'autre pc (le dossier existe et est rigoureusement au même endroit ?)