Liste des fichiers d'un répertoire avec choix intuitif
Bonjour,
J'ai besoin d'effectuer une recherche intuitive dans une ListBox alimentée par tous les fichiers d'un répertoire sélectionné.
Je suis tombé par hasard sur cette discussion Recherche intuitive (excel-pratique.com) et je me permets de vous demander s'il est possible de remplacer la ComboBox "TypeFich" par une ListBox MultiSelection ?
Ci-joint le fichier de la discussion qui m'intéresse.
Merci d'avance pour vos réponses.
Bonjour Modus@57
Une proposition de modification meme si je n'ai pas fait une listbox MultiSelection mais une listbox contenant les seules extensions des fichiers présents dans le répertoire sélectionné : Mea culpa je ne réponds pas exactement au besoin
Bonjour scraper et merci pour votre réponse,
Malheureusement je n'arrive pas à ouvrir votre fichier.
Bonjour scraper,
Je viens d'ouvrir le fichier, ce que vous proposez c'est très bien d'afficher toutes les extensions de fichiers dans le répertoire sélectionné, mais cela ne permet pas une multi sélection.
En partant de votre solution, il faudrait remplacer la ComboBox "TypeFich" par une ListBox MultiSelection.
En effectuant des recherches je trouverai peut-être la solution.
Bonjour Modus@57. J'ai fait la modification mais j'ai perdu depuis le début la sélection intuitive du fichier de l'auteur d'origine
Re bonjour scraper,
Pas de soucis la sélection intuitive fonctionne bien.
Par contre l'Userfrom contenait un TextBox1 et un TextBox3 superposé que j'ai supprimé.
Maintenant ça fonctionne très bien.
Cela serait super génial si la recherche intuitive pourrait s'effectuer sur un ou plusieurs caractères contenu dans le ou les noms de fichiers.
Merci pour ton aide @+.
J'ai trouvé il suffit de remplacer :
If Tbl(i) Like tmp Then n = n + 1: ReDim Preserve b(1 To n): b(n) = Tbl(i)
par :
If Tbl(i) Like "*" & tmp & "*" Then n = n + 1: ReDim Preserve b(1 To n): b(n) = Tbl(i)
Merci beaucoup pour votre aide.
Bonjour à tous,
Je reviens vers vous car je souhaiterai faire évoluer l'UserForm afin de pouvoir filtrer les fichiers à une date ou entre 2 dates.
J'ai beaucoup bidouillé sans trouver la solution et sollicite à nouveau votre aide.
Merci d'avance @+
Bonjour, Je regarderai ce dimanche am, j'ai déjà fait cela, c'est donc sans problème pour moi.
Je n'ai pas compris le role des combobox plutot que des textbox; j'ai laissé les combobox
Bonjour scraper,
Merci de continuer à contribuer à cette discussion.
En fait il serait intéressant de pouvoir filtrer les fichiers listés soit à une date ou entre 2 dates avec les ComboBox1 et 2 incrémenter des dates de dernière modification des fichiers à faire figurer la 2ème colonne de la ListBox.
Petite précision :
- filtrer les fichiers listés à une date sur clic du CommandButton "B-egal"
- filtrer les fichiers listés entre 2 dates à la sélection dans les ComboBox1 et 2
C'est bien ce que j'ai fait.
Bonsoir,
Je comprends pas : sur clic du CommandButton "B_egal" et sur change dans ComboBox1 et 2 il se passe rien ?
La date de la dernière modification n'apparait pas dans la ListBox1 ?
J'ai oublié de dire qu'il faut saisir les dates au format jj/mm/aaaa. Il serait mieux d'avoir un control de type date pour la saisie
Bonjour,
J'ai saisie les dates au format jj/mm/aaaa mais sur clic du CommandButton "B_egal" et sur change dans ComboBox1 et 2 il se passe toujours rien.
Bon j'ai fait un nouveau formulaire, dans la ListBox1 les dates de la dernière modification des fichiers apparaissent en colonne 2 et elles sont incrémentées dans les ComboBox1 et 2.
Le seul petit hic je n'arrive pas à filtrer la ListBox1 sur clic du CommandButton "B-egal" ou le CommandButton1en fonction des dates sélectionnées dans les ComboBox1 et 2
La listes des extensions dans la ComboBox "TypeFich" est en dur, j'ai pas réussi à l'incrémenter en fonctions des fichiers listés dans la ListBox1.
Bonjour Modus@57
Je vais te demander de reprendre l'interface utilisateur de ton nouveau formulaire et peut-être vérifier que tu ne cherches pas à faire ce qui existe par ailleurs en opensource.
Pour le nouveau formulaire, je trouve regrettable :
- l'abandon de la listbox des extensions de fichiers trouvés que j'avais implémenté en lieu et place de la combo TypeFich qui a l'inconvénient de ne permettre la sélection que d'une seule extension à la fois : Le hic, ne le prends pas mal, tu me demandes de réintroduire ce que j'avais fait dans la version 4.1.2 le CommandButton "B-egal" qui gérait aussi l'équivalent du CommandButton1 lorsque le Combobox2 n'était pas vide .
- les nouveaux boutons "date tri<" et "date tri>" ne soient pas simplement inclus dans le libellé 'Nom fichier" au dessus de la listbox1 . Le but est de simplifier l'interface. Je viens de comprendre que ces deux boutons sont redondants puisque tu as ajouté un libellé en rouge 'Pour trier, cliquer sur le titre de la colonne': TRES BIEN
- les controles sur le nom de fichier "Recherche intuitive", "Commence", "Contient" , "tri nom" ne soit pas inclus dans une zone cadre comme il est souvent fait.
- la barre d'état du nombre de fichiers trouvés correspondant au filtre exécuté ne soit plus en bas d'écran sous la listbox1
Je trouve TRES BIEN, que la listbox1 soit maintenant à deux colonnes, l'interface est plus belle mais l'implémentation sera plus délicate. J'aurai gardé la taille des fichiers dans une troisième colonne mais restons à deux colonnes.
Je ne sais pas si un jour tu ne voudras pas gérer les contenus des fichiers textes différemment des fichiers binaires : avec une recherche des seuls fichiers contenant une chaine (je l'ai implémenté dans un de mes codes et cela m'est très utile)
Je ne me pose pas trop de questions sur l'intérêt d'un tel projet, il est éducatif quant à l'apprentissage de l'algorithmique et du VBA ; mais qui fait quoi? moi l'algorithmique et toi l'interface : le but ici est que tu comprennes ce que l'on te produit pour t'aider à devenir autonome. Je ne doute pas que c'est aussi ton objectif.
L'explorateur de fichiers de Windows, ou Winmerge ne font t'il pas tout cela?
Ce que j'avais besoin dans mon projet était de faire des recherches identiques sur un espace source et sur un espace destination donc gérer deux listes de fichiers puis d'ouvrir les mêmes fichiers pour les comparer avec un utilitaire de comparaison de fichiers.
J'ai l'impression de mettre le doigt dans un engrenage.
Je veux bien continuer mais pas m'investir dans un projet qui n'a d'autres fins que d'avoir une certaine auto-satisfaction. Je me répète il existe des logiciels opensource qui font cela très bien.
En résumé je veux bien continuer
Bonjour,
J’avais mis le fichier de côté en attendant un moment de libre pour le finaliser, je dois le reprendre pour l’intégrer dans nouveau projet.
Mon UserForm permet de rechercher et filtrer tout simplement les fichiers d’un répertoire choisi.
Bien sûr l'explorateur de fichiers de Windows ou des applications en open source permettent de faire tout cela et je ne cherche pas à faire ce qui existe par ailleurs, ni à réinventer le fil à couper le beurre.
Donc j’ai corrigé l’interface et le code pour arriver à un résultat satisfaisant sauf sur un point, si une ou plusieurs extensions sont sélectionnées seul les noms de fichiers s’affichent dans la ListBox.
Je souhaiterai afficher la date de modification, la taille et que la ListBox soi triée par ordre croissant.
Merci d’avance pour vos réponses et bonne après-midi.
bonjour Modus
je suis dans le train pour 3 heures encore avec un changement à Valence. Je télécharge en partage de connexion et je regarde d'abord l'interface puis le code