XL 2016 Récupérer résultat filtre

[Daviddu37]

Bonjour à toutes et à tous.

Etant novice, j'essaie de m'inspirer un max de vos diverses astuces que vous partagez et je vous en remercie.

Par contre, je me heurte à un problème. Je souhaite créer un fichier "base de données" qui se met à jour automatiquement au démarrage en fonction d'un répertoire spécifique sur mon ordi (cela me liste l’ensemble des fichiers qui sont dedans), jusque là tout va bien. L'ensemble des fichiers apparaît alors dans mon onglet DONNEES.
Par contre, dans l'onglet V5, je souhaite via un filtre "standard", choisir tel ou tel fichier pour ensuite alimenter automatiquement un lien hypertexte et hop je clique et ça m'ouvre le fichier voulu sans avoir à chercher pendant des heures dans l'explorateur Windows.
Or, impossible de récupérer le résultat de mon filtre, grrrrr je dois être trop nul. Soit par formule, ou alors en VBA mais dans ce cas il faudrait que cela fasse tout (récupération du filtre puis création du lien hypertexte puis l'ouvrir -> genre en cliquant sur un bouton sur lequel j'aurai au préalable affecté la macro).
Please helpppp, ci-joint mon fichier de travail.

Merci d'avance de votre aide.

 

[sylvanu]

Bonjour David,
Tous les fichiers de la liste sont ils au même endroit sur le disque ?
Je pense que le lien hypertexte doit être référé avec le chemin complet du fichier tel par exemple :

g:\Users\PC_PAPA\Documents\_SYLVAIN\Technique\FichierEssai.xlsm

Par exemple en D1 :

=LIEN_HYPERTEXTE("D:\Téléchargements\V5\Essai V5\"&B1;"Lien")

 

[Daviddu37]

Bonjour Sylvain,

oui, tous les fichiers sont dans un même répertoire, pas de sous répertoire. Par contre je n'arrive pas à récupérer le nom de fichier après le filtre pour compléter le lien hypertext et ainsi ouvrir mon fichier directement.

 

[sylvanu]

Une méthode barbare, voir PJ.
Si ça marche, il faudra résoudre l’extraction du nom de fichier.

 

[sylvanu]

Je pense avoir trouvé mais suis incapable de le tester.
Avec Sous.Total on arrive à récupérer l'index du fichier sélectionné.
Si plusieurs fichiers sélectionné alors on prend le dernier.

=LIEN_HYPERTEXTE("D:\Téléchargements\V5\Essai V5\"&INDEX(A:A;EQUIV(SOUS.TOTAL(4;B:B);B:B;0));"Lien pour  "&INDEX(A:A;EQUIV(SOUS.TOTAL(4;B:B);B:B;

 

[Daviddu37]

Merci Sylvain, ça marche impeccable