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

Problèmes Filesearch (FoundFiles et lenteur) (résolu) - VB/VBA/VBS - Programmation

Marsh Posté le 15-11-2005 à 13:51:43    

Sous Excel 2002 SP3
 
J'ai la macro suivante :

Code :
  1. Sub ListeFichier()
  2.      Dim i, chemin
  3.      Dim Dossier As FileDialog
  4.      Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
  5.      With Dossier
  6.           .AllowMultiSelect = False
  7.           .InitialFileName = "C:\"
  8.           .Title = "Choix d'un dossier"
  9.           If .Show = -1 Then
  10.                chemin = .SelectedItems(1)
  11.           Else: chemin = 0
  12.           End If
  13.      End With
  14.      If chemin <> 0 Then
  15.           With Application.FileSearch
  16.                .NewSearch
  17.                .FileType = msoFileTypeExcelWorkbooks
  18.                .LookIn = chemin
  19.                .Execute
  20.                MsgBox (.LookIn)
  21.                MsgBox (.FoundFiles.Count)
  22.                For i = 1 To .FoundFiles.Count
  23.                     MsgBox .FoundFiles(i)
  24.                Next i
  25.           End With
  26.      Else
  27.      End If
  28. 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 :
  1. .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 ;-)
Reply

Marsh Posté le 15-11-2005 à 13:51:43   

Reply

Marsh Posté le 15-11-2005 à 15:12:01    

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 ;-)
Reply

Marsh Posté le 15-11-2005 à 16:56:07    

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 ;-)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed