Autres tester ma pseudo boite de dialogue fichier avec filtre

laurent950

XLDnaute Barbatruc

• Dimanche à 13:15

• #2

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

patricktoulon à dit:

TestC4

Cliquez pour agrandir...

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

 

Dernière édition: Dimanche à 13:41

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Dimanche à 13:17

• #3

Re

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

Enrichi (BBcode):

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Dimanche à 13:36

• #4

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.

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• Dimanche à 13:42

• #5

Bonjour @sylvanu

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

sylvanu à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• Dimanche à 13:47

• #6

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• Dimanche à 13:50

• #7

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.

cathodique à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Dimanche à 13:52

• #8

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 :

VB:

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• Dimanche à 13:59

• #9

Re @sylvanu

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Dimanche à 13:59

• #10

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• Dimanche à 14:01

• #11

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.

Staple1600 à dit:

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)

Cliquez pour agrandir...

Laurent

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Dimanche à 14:08

• #12

Re

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• Dimanche à 14:11

• #13

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

 

Dernière édition: Dimanche à 14:19

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Dimanche à 14:14

• #14

Re

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Dimanche à 14:21

• #15

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)

 

Vote positif 0 Vote négatif