Modification code

Le 10/02/2022 à 13:42

bonjour a tous,

le fichier ci dessous permet d'effectuer des recherches dans des fichiers texte contenu dans un dossier.

une fois les résultats obtenu, grâce à un code , je peux double clicker sur la celulle en colonne A et ça m'ouvre le fichier contenant mon résultat et à la ligne exact.

tout fonctionne très bien comme je le souhaite sauf que :

les fichiers à analyser sont dans une multitude de dossiers et sous dossiers et sous-sous dossiers........

du coup vu le code pour double clicker c'est très embêtant car il faut renseigner le chemin à chaque fois auparavant.

est il possible de modifier l'ensemble pour que le double clic fonctionne quelque soit le dossier hôte ..?

j'ai comme idée éventuelles de récupérer l'intégralité du chemin d'accès lors de l'analyse initiale et ainsi l'intégrer dans le tableau de résultat ; qui servirait ensuite au code pour le double-clic.

J'espère que vous m'aurai compris et surtout que quelqu'un pourra m'aider...

merci d'avance.

erreur de fichier je le renvoi de suite

Le 10/02/2022 à 13:49

17pour-forum.xlsm (57.41 Ko)

Le 10/02/2022 à 14:13

Bonjour Slygan,

Dans votre fichier vous avez déjà le code récursif pour parcourir un dossier et sous-dossiers

Donc il suffit de le définir initialement

Sub importer()
  Dim Chemin$
  ' Répertoire de départ
  Chemin = ThisWorkbook.Path & "\"
  ' Ou
  ' Chemin = "C:\Dossier\Sous-dossier"
  ' effacement données
  If Not ActiveSheet.ListObjects(1).DataBodyRange Is Nothing Then ActiveSheet.ListObjects(1).DataBodyRange.Delete
  ' lecture
  i = 2
  lire Chemin
End Sub

A+

Le 10/02/2022 à 14:22

brunoM45 ,

si tu le dit je te crois mais c'est du chinois pour moi .

Je viens de comprendre ta remarque !!!

mais mon souci n'est pas là !

la recherche fonctionne comme il faut.

il me faudrait juste une colonne de plus dans le tableau de résultat ou le chemin complet serait indiqué . c'est tout pour le moment....

Le 10/02/2022 à 16:42

personne pour m'aider ???

Le 11/02/2022 à 08:00

up