[Excel] Pb de recherche de fichier

Question

Bonjour, 
voilà le bout de code qui pose problème : 

Set fs = Application.FileSearch 
With fs 
.LookIn = racineArborescence & "copies_reporting" 
.FileName = "reporting_*.xls" 
If .Execute = 8 Then.... 
End If 
End With 

A l'exécution Excel me sort : 

Erreur d'exécution 5 
Argument ou appel de procédure incorrect 
et le débogger surligne en jaune la ligne .FileName="reporting_*.xls" 

Le problème c'est que ce bout de code fait partie d'une appli qui fonctionnait au poil depuis 6 mois. Et là d'un coup, il me sort cette erreur. 
La seule chose qui est changée est le système d'exploitation (je suis passé à Windows 2000 pro). 
Avez vous une idée pour corriger ce problème ou, sinon, une solution alternative me permettant de faire de la recherche de fichiers. 
Merci d'avance. 
Nicolas.

BruNews · Answer

API:
FindFirstFile(...)
FindNextFile(...)
FindClose(...)
Tu commences avec *.xls et tu regardes a chaque tour si te convient.
BruNews, ciao...

[Excel] Pb de recherche de fichier

1 réponse

Discussions similaires