(résolu) Problèmes Filesearch (FoundFiles et lenteur)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : (résolu) Problèmes Filesearch (FoundFiles et lenteur)

watashi

La démotivation : JAMAIS !

Sous Excel 2002 SP3

J'ai la macro suivante :

Code :

Sub ListeFichier()
Dim i, chemin
Dim Dossier As FileDialog
Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
With Dossier
.AllowMultiSelect = False
.InitialFileName = "C:\"
.Title = "Choix d'un dossier"
If .Show = -1 Then
chemin = .SelectedItems(1)
Else: chemin = 0
End If
End With
If chemin <> 0 Then
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = chemin
.Execute
MsgBox (.LookIn)
MsgBox (.FoundFiles.Count)
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
End With
Else
End If
End Sub

dans mon dossier j'ai 6 classeurs mais en foundfiles.count je n'en ai que 5 il ne me prends pas classeur2.xls.
J'ai essayé au lieu de

Code :

.FileType = msoFileTypeExcelWorkbooks

.FileType = xlWorkbook => me donne tous les fichiers y compris ceux qui ne sont pas excel.
.FileName = "*.xls" => multiplie le temps de traitement par 3, me donne bien les 6 classeur mais si je choisi D:\Nomenclature en lookin il me donne 0 alors que j'ai 2 classeurs excel.

Si quelqu'un a une idée de la cause de ce bug ou une idée sur quoi faire...
merci d'avance

Message édité par watashi le 19-11-2005 à 14:28:58

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Publicité

watashi

La démotivation : JAMAIS !

Pour info,

J'ai remarqué que les fichiers non pris en compte sont des fichiers excels avec macros.

J'ai essayé :
.FileTypes.Add msoFileTypeExcelWorkbooks => donne toujours les 5 fichiers dans c:\ et aucun dans d:\Nomenclature
comme .FileType = msoFileTypeExcelWorkbooks

...

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

watashi

La démotivation : JAMAIS !

Bon ben j'ai trouvé !

Aucun problème avec excel ou le code juste un problème sur XP

Dans les paramètres de recherche dans l'explorateur il faut retirer l'indexation. La recherche est instantanée, et tous les fichiers sont pris en compte

Vive XP :pt1cable:

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

(résolu) Problèmes Filesearch (FoundFiles et lenteur)

Sujets relatifs
[Résolu] [Firefox] Pourquoi title="" ne marche pas chez moi ?	[Resolu][CSS] Mozilla / IE - div et contenu
[Résolu] Fichier texte <- PHP -> MySQL	Extraire des int et des float d'un string [résolu]
BufferedReader en attente pendant lecture socket[Resolu]	Problemes dans ma boucle
Liens vers problèmes d'algo	[resolu] xml et namespace
Problèmes pour envoyer fichiers excel avec javaMail	[CSS] - Probleme double marge IE : position:absolute [résolu]
Plus de sujets relatifs à : (résolu) Problèmes Filesearch (FoundFiles et lenteur)

Page générée en 0.031 secondes