salut,

j'essai de vous expliquer ce qui se passe. j'ai un repertoire qui est alimenté de temps en temps par des fichiers que je dois traiter. le nom du fichier n'est pas toujours le même. Alors ce que je fais, c'est que je vais extraire le fichier qui se trouve dans le repertoire afin de le traiter. voici un bout du programme qui fait l'extraction.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Set Cherche_Zins = XlApp.FileSearch
 
With Cherche_Zins
    .LookIn = "E\ROMARIQUE\ZinstalNF\"
    .Filename = ".xls"
 
End With
 
Chemin_Zins = Cherche_Zins.FoundFiles(1)
le programme marche; mais le problème qui se pose est le suivant: la methode FoundFiles(1) marche une fois sur deux, et c'est très embêtant, il m'affiche l'erreur "la méthode 'foundfiles de l'objet 'filesearch' a échoué'". si vous avez une idée, je suis prenneuse

merci