Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1978 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1245980
watashi
La démotivation : JAMAIS !
Posté le 15-11-2005 à 13:51:43  profilanswer
 

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 ;-)
mood
Publicité
Posté le 15-11-2005 à 13:51:43  profilanswer
 

n°1246062
watashi
La démotivation : JAMAIS !
Posté le 15-11-2005 à 15:12:01  profilanswer
 

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 ;-)
n°1246186
watashi
La démotivation : JAMAIS !
Posté le 15-11-2005 à 16:56:07  profilanswer
 

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

Aller à :
Ajouter une réponse
  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 -> MySQLExtraire 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)

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.044 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)