Discussion :

[romrai]

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

[loufab]

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)

Bonjour,

Es-tu sûr(e) de ton code ?
Il me semble qu'il manque les : après le E (unité disque)
"E:\....."

[romrai]

oui t'a raison, je l'ai rectifié, mais le problème ne vient pas de là; il m'affiche toujours le message d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set Cherche_Zins = Application.FileSearch
 
With Cherche_Zins
 
    .LookIn = "E:\ROMARIQUE\ZinstalNF\"
    .Filename = ".xls"
 End With
 
Chemin_Zins = Cherche_Zins.FoundFiles(1)

merci.

[romrai]

j'ai trouvé où ça bloquait. je remet le code corrigé; ça pourrait aider d'autres personnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set cherche_zins = Application.FileSearch
 
With cherche_zins
 
    .LookIn = "E:\ROMARIQUE\ZinstalNF"
    .Filename = ".xls"
    .Execute
 
 End With
 
Chemin_Zins = cherche_zins.FoundFiles(1)

en fait j'avais omis le.Execute

merci encore

[loufab]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function fouine()
 
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\Documents and Settings\Administrateur\Mes documents"
    .SearchSubFolders = False
    .MatchTextExactly = True
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
    fouine = .FoundFiles(1)
End With
 
 
End Function

Effectivement après quelques essais je suis tombé sur la même explication.

[romrai]

merci encore

ton programme est plus complet, je crois que je vais l'adapter au mien