Discussion :

[llorn]

Bonjour,



Dans mon code VBA j'aimerai ouvrir l'explorateur Windows (ça c'est assez simple, il devrait pas y avoir de soucis) mais dans cet explorateur je voudrais lancer directement une recherche suivant une variable que j'aurais défini précédemment? Je n'arrive pas à trouver cette information sur les précédents sujets..



Merci d'avance

[unparia]

Bonjour

Peux-tu s'il te plait être plus précis sur :
- l'endroit où chercher (sur la totalité des volumes présents sur ton disque ? sur un dossier ?)
- le critère de recherche (tout ou partie du nom de fichier ? ou une partie de son contenu ?)
- ce que tu veux faire ensuite des résultats de cette recherche

[llorn]

Je voudrais lister sur excel l'ensemble des fichiers d'un dossier avec une url qui pointerai vers l'explorateur Windows avec une recherche via le nom du fichier pour afficher uniquement 1 seul élément (il risque d'avoir beaucoup de fichiers dans le dossier, ce serait plus pratique).

[unparia]

Tu trouveras dans la rubrique contributions plusieurs codes déposés sur la manières de faire cela.
Aucune d'entre elles n'utilise l' "explorateur Windows". L'utilisation de l'explorateur ne te permettrait en effet rien d'autre que de "voir", pas de dresser une liste dans Excel.
Une petite recherche, donc .. (conformément aux règles de ce forum) s'il te plait.

[llorn]

Pour lister les éléments sur Excel il n'y a pas de soucis, je voulais juste trouver un moyen de repérer facilement mon fichier dans un dossier et l'explorateur Windows aurait bien fait l'affaire.

Si ce n'est pas possible de faire une recherche Windows en vba je ferrais sans..

[llorn]

Bah non il n'est pas résolu, je sais toujours pas comment lancer une recherche en vba. Si un jour j'ai la réponse je la posterai ici. Je dois pas être le seul dans ce cas

[unparia]

Je dois pas être le seul dans ce cas

Et c'est pour cela que des codes ont été déposés dans rubrique contributions.
J'en sais quelque-chose : l'un d'entre eux est de surcroît le mien.
Tu y recherches ou tu attends que j'y recherche à ta place ?

EDIT : reste que si ta question était plus précise, il n'est pas impossible que la seule utilisation de la fonction DIR , sans "récursivité", suffirait. Mais voilà, elle ne l'est pas suffisamment (précise).

[patricktoulon]

re
je soupconne que quand le demandeur parle d'explorateur windows parle en fait de la boite de dialog folder
c'est a dire ouvrir la boite de dialog selectionner un dossier puis rechercher dans ce dossier le /les fichiers en question
est ce bien ca??

[unparia]

ceci est clair :

pour afficher uniquement 1 seul élément (il risque d'avoir beaucoup de fichiers dans le dossier, ce serait plus pratique)

et dit clairement que la recherche est faite par instructions et non par choix visuel.
J'ai également des "soupçons", mais ils concernent autre chose de plus fondamental.

[llorn]

Bonjour,


Merci pour vos réponses.

L'idée est d'avoir quelque chose comme ceci :






A moins que je me sois mal exprimé, j'ai l'impression qu'il n'y a pas de fonction vba qui permette cela, il faudrait que je me tourne sur la création d'une adresse Windows que j'ouvrirais avec Shell.

[patricktoulon]

re
oui mon intuition etait la bonne alors
c'est bien le dialog dont tu parle
application.getopenfilename
ou
Application.FileDialog(msoFileDialogOpen)
regarde aussi du coté de CHdir histoire d'afficher directement ton dossier dans le dialog ( a mettre avant le dialog dans le code )

[Pierre Fauconnier]

Ce qui serait intéressant à ce stade, c'est que le demandeur initial explique clairement et en français ce qu'il compte réaliser, pourquoi il a besoin d'aller chercher un ficher, etc, etc...

Car je sens que cette discussion va encore prendre 50 messages avant d'aboutir...

Pour moi, ce qu'il souhaite est loin d'être clair, en voyant sa dernière illustration avec lien hypertexte

[patricktoulon]

re
a oui le lien c'est vrai que c'est un peu déconcertant
je soupconne que le demandeur veuille faire du visuel alors qu'il n'en a pas besoins

d'autant plus que le lien est sensé contenir le chemin complet du fichier ce qui ferait que "DIR" serait tout indiqué pour un test de presence du fichier ou pas
1 ligne de code !

[llorn]

Pour être plus claire, je vais lister sur excel l'ensemble des fichiers des plusieurs dossiers et sous dossiers. Ça, ça ne pose pas de soucis c'est fait de mon coté.

Mais comme je vais lister une grande quantité de fichiers, j'aimerai que l'utilisateur puisse de manière assez simple retrouver le fichier qu'il veut sans pour autant l'ouvrir. D'ou l'idée de lien hypertexte et de recherche via "search-ms" dans la barre d'adresse de Windows.


J'ai trouvé un moyen d'ouvrir l'explorateur Windows avec une recherche via cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell("explorer.exe " & Chr(34) & "search-ms:query=FICHIER1&crumb=location:C:\XXX\XXX\XXX" & Chr(34), vbNormalFocus)

Mais ce n'est pas un hyperlien, et je n'arrive pas aujourd'hui a le transposer a un hyperlien. Donc je me demandais s'il n'y avait pas une fonction VBA qui permettait cela, ou s'il y a une méthode via la fonction hyperlien?

[llorn]

J'y suis arrivé via l'hyperlink et la fonction de Windows search-ms a défaut d'avoir trouvé une fonction VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Hyperlinks.Add Anchor:=Selection, TextToDisplay:=Fichier, Address:="search-ms:query=" & Fichier & "&crumb=location:L:\XXX"

merci a vous

[JustePourLeFun]

Bonjour,

Pouvez-vous donner la solution final complète. Je suis intéressé.

Merci.