Autres Tests de diverses solution pour lister dans un dialog perso des fichiers en filtrant par expression et extension

[patricktoulon]

Bonjour à tous
si il y a des âmes charitables qui voudraient bien tester ma pseudo boite de dialogue fichier avec filtre ca m'arrangerait
en fait je l'ai créée sous trois formae différente

1° la filedilogspecial1
avec un dir en ligne de commande lancée par wscript.shell(.excec) et récupérée par le stdout.readall
ce qui implique une apparition brève mais tout de même de la fenêtre dos

2° la filedilogspecial2
avec un dir en ligne de commande lancée par wscript.shell (.run)et récupérée dans un fichier text temporaire
ce qui implique que la fenêtre dos n'apparait pas puisque je hide la fenêtre

3° la filedilogspecial3
dans celle ci j'utilise un hersats de ma fonction FSOGOSUB de 2021 avec FSO

tout les argument sont optionnels
le choix du fichier se fait au double click
possibilité d'annuler

vous avez 3 module pour tester chaque version
si vous pouviez donc tester la testA4 , TestB4 , TestC4 qui sont selon moi les plus importantes
et me dire si la différence de temps d'apparition de la fenêtre avec la liste de fichier filtrée avec les arguments envoyés par les sub de testsest importante ou pas
voir même cela vous gène t il plus que ça (que la fenêtre dos apparaisse brièvement (pour la fildialoSpecial1) )?

merci aux testeurs
après moult tests dans diverses situations la version 5 et celle qui a été retenu

 

[laurent950]

Bonjour @patricktoulon

j'ai fait le test pour toi a l'instant

Pour les :
--->> Test A4 = il y a aucune apparition brève de la fenêtre dos chez moi
--->> Test B4 = J'ai rien constaté
--->> Test C4 = Voir message VBA ci-dessous

TestC4

Je suis pas aller plus loin j'ai pas tester l'userform, j'ai fait un essaie mais ne connais pas le principe pour aller plus loin = le mode d'emplois

Laurent

 

[Staple1600]

Re

@laurent950
M'est avis que tu n'as pas de lecteur K

Sub testA3()
    'rechercher les fichiers  avec "cdo" dans le nom avec n'importe quelle extension sans récursivité
    MsgBox FilDialogSepcial1.File("K:\vba excel", "cdo", , True)
End Sub

Moi également, je ne suis pas allé plus loin.
Je n'ai pas de lecteur K et Windows Search me suffit amplement pour rechercher des fichiers
(D'autant plus que je peux enregistrer mes recherches)
Et ainsi je laisse Excel vivre sa vie de tableur.

 

[sylvanu]

Bonjour Patrick, Laurent, Staple,
( PC I5-2300 Win10 XL2007 VBA6 )

1° la filedilogspecial1
La fenêtre DOS n'apparait que 1 seconde, rien de rédhibitoire.... mais inesthétique.
2° la filedilogspecial2
Impec. Rapide et pas de fenêtre DOS.
( 1.76s pour 16921 fichiers récupérés en récursif )
3° la filedilogspecial3
Extrêmement long sur mon PC. 10s pour 2768 fichiers à récupérer.

Dans ma config, la 2 est indubitablement la meilleure.

 

[laurent950]

Bonjour @sylvanu

Tu as fait qu elle procédures pour récupérer les fichiers ?

Impec. Rapide et pas de fenêtre DOS.
( 1.76s pour 16921 fichiers récupérés en récursif )

 

[cathodique]

Bonjour tout le monde,

Mon test sans constaté quoique ce soit (Excel2010)

testA4, apparition Msgbox, puis userform

testB4, apparition Msgbox, puis userform

testC4, plante, chemin d'accès introuvable

 

[laurent950]

Re @patricktoulon

C'est exactement identique chez moi (Excel 2013 si cela peut t'aider aussi Patrick), très bonne description de @cathodique merci à toi.

Mon test sans constaté quoique ce soit (Excel2010)

testA4, apparition Msgbox, puis userform

testB4, apparition Msgbox, puis userform

testC4, plante, chemin d'accès introuvable

 

[sylvanu]

Re,
Ben ... j'ai lancé Sub testA1, Sub testB1 , et Sub testC1.
Pour récupérer le temps j'ai bidouillé "go_Click" en rajoutant "T = Timer" au début et
"TxtbExpression = Timer - T" à la fin. J'ai ainsi le temps dans l'userform.

NB: Pour le temps il y a plus esthétique. Modifier la ligne avec :

labelcount = .ListCount & " Fichiers trouvés en " & Format(Timer - T, "0.000s")

 

[laurent950]

Re @sylvanu

Merci, j'ai compris. Je teste en ce moment, ça fonctionne bien chez moi aussi. Le principe est intéressant.

 

[Staple1600]

Re

@laurent950
Toutes les macros où figurent une référénce à un lecteur K planteront
si sur vos PC vous n'avez pas de lecteur K
(voir mon précédent message)

Tester à partir des Userform, là vous pourrez choisir votre dossier

 

[laurent950]

Re @Staple1600

Un grand merci à toi @Staple1600, j'ai compris le principe suite à ton message auquel j'ai ajouté un like pour te remercier de ton message.

Toutes les macros où figurent une référence à un lecteur K planteront
si sur vos PC vous n'avez pas de lecteur K
(voir mon précédent message)

Laurent

 

[Staple1600]

Re

@patricktoulon et @Valtrase
=> userform : FilDialogSepcial3
Une erreur si le dossier est vide

 

[laurent950]

Re @patricktoulon

Suite au test sur un lecteur (Excel 2013 si cela peut t'aider aussi Patrick),

je suis allé plus loin dans les tests @patricktoulon. Ci-dessous :

testA1, apparition Msgbox, puis userform
Puis recherche = fenêtre du DOS à l'écran le temps de la recherche avec récursif (trop long et gênant)
testB1, apparition Msgbox, puis userform = pas de fenêtre DOS mais très long et plantage (erreur d'exécution '14':
Espace de chaîne insuffisant
Arrêt sur la ligne

testC1, plante, chemin d'accès introuvable
suite choix d'un lecteur et récursif
message

débug

 

[Staple1600]

Re

Suite
Le message n'est pas en adéquation avec la boulette de l'utilisateur final

 

[Staple1600]

Re

@laurent950
Ca veut dire ce que cela veut dire
J'ai cerclé en rouge sur la copie d'écran la boulette de l'utilisateur final (donc ici moi)