Microsoft 365 VBA recherche accélérée Windows explorer avec option

[Nicu]

Bonjour,

Je voudrais lancer l'explorateur Windows avec l'option "documents" pour accélérer la recherche, en alliant VBA et Shell.

Je ne trouve pas la commande correspondante.

Merci pour votre aide.

Sub OpenFindFile() '(Optional pFolder As String, Optional pFile As String, Optional pFindIn As String)
Set shellapp2 = CreateObject("Shell.Application")
pFolder = shellapp2.BrowseForFolder(0, "Sélectionner le dossier dans lequel les fichiers individuels sont enregistrés", 0).self.Path
Call ShellExecute(GetActiveWindow, "find", pFolder, vbNullString, vbNullString, SW_SHOW)
If pFile <> "" Then
SendKeys pFile, True
End If
If pFindIn <> "" Then
SendKeys "{TAB}" & pFindIn, True
End If
End Sub

 

[sylvanu]

Bonjour Nicu, et bienvenu sur XLD,
Je ne sais pas trop ce que vus voulez faire.
Mais il faut avant tout charger la librairie, donc faites précéder votre sub avec :

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 

[Nicu]

...J'ai une définition publique de variables :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Const SW_SHOW = 5

Je voudrais afficher l'explorateur Windows, sélectionner l'option "rechercher", puis choisir l'option "documents", afin que la recherche soit plus rapide.

 

[sylvanu]

Re,
Je ne comprends pas ce que vous voulez obtenir.
Essayez cette macro.
Ca ouvre une première fenêtre pour choisir le dossier puis ensuite ouvre l'explorateur sur le dossier choisi.
Mais au moins ça ne plante pas.

Sub OpenFindFile() '(Optional pFolder As String, Optional pFile As String, Optional pFindIn As String)
Set shellapp2 = CreateObject("Shell.Application")
On Error GoTo Fin
pFolder = shellapp2.BrowseForFolder(0, "Sélectionner le dossier dans lequel les fichiers individuels sont enregistrés", 0).self.Path
Shell Environ("WINDIR") & "\explorer.exe " & pFolder, vbNormalFocus
If pFile <> "" Then
SendKeys pFile, True
End If
If pFindIn <> "" Then
SendKeys "{TAB}" & pFindIn, True
End If
Fin:
End Sub

 

[patricktoulon]

Bonsoir
ouvrir l'explorateur sur mes documents

Sub test()
pfolder = Environ("userprofile") & "\Documents"
Shell Environ("WINDIR") & "\explorer.exe " & pfolder, vbNormalFocus
End Sub

 

[Nicu]

Bonsoir
ouvrir l'explorateur sur mes documents

Sub test()
pfolder = Environ("userprofile") & "\Documents"
Shell Environ("WINDIR") & "\explorer.exe " & pfolder, vbNormalFocus
End Sub

Bonjour,
Mon code fonctionne.
Je cherche juste la commande permettant de faire une recherche avec option, pour accélérer la recherche sur le réseau local (voir copie d'écran ci-jointe).

J'ai cherché attentivement sur le net, et n'ai encore rien trouvé.
Cela m'étonnerait que ce ne soit pas possible...
Merci pour votre aide.

 

[sylvanu]

Re,

Mon code fonctionne.

Alors partagez le, il profitera à tous.

 

[patricktoulon]

a ben il fallait le dire alors tu veux lancer la recherche dans l'explorateur
dans ce cas là c'est

Sub test2()
    Dim pfolder$, searchQuery$, explorerCommand$

    pfolder = Environ("userprofile") & "\Documents" ' Chemin de base pour la recherche

    'exemple1:
    'searchQuery = ".xlsx" 'recherche tout les fichiers excel xlsx(sans macro)
    'exemple2
    searchQuery = ".png OR *.jpg" ' recherche tout les fichiers image png ou jpg

    ' concat de la commande la commande
    explorerCommand = "explorer.exe ""search-ms:query=" & searchQuery & "&crumb=location:""" & pfolder & """"

    ' on lance la commande la commande
    Shell explorerCommand, vbNormalFocus
End Sub

exemple d'autre recherche

Exemple de critères de recherche :

    Rechercher des fichiers modifiés  y a pas longtemps ou après une date
    searchQuery = "datemodified:>=01/01/2024"

    Rechercher des fichiers spécifiques par nom :
    searchQuery = "nomdufichier"

    Combiner plusieurs critères :
    searchQuery = "type:=.txt AND datemodified:>=01/01/2023"

 

[patricktoulon]

comme ca elle ne sera pas perdue dans les discussions

Ouvrir l'explorateur en mode recherche

Bonjour à tous comme la demande est venu au moins 5/6 fois cette année (si c'est pas plus)sous diverses formes ,et que je ne sais pas où la mettre je vous pose là une petite macro qui lance l'explorateur en mode recherche avec divers exemples Sub LanceeExplorerEnModeSearch() Dim...

excel-downloads.com

 

[Nicu]

J'ai un code qui lance la recherche, il suffit de renseigner la zone adéquate dans l'explorateur :

'Macro permettant de lancer une recherche Windows dans un répertoire défini
Sub OpenFindFile() '(Optional pFolder As String, Optional pFile As String, Optional pFindIn As String)
Set shellapp2 = CreateObject("Shell.Application")
pFolder = shellapp2.BrowseForFolder(0, "choisir l'arborescence dans laquelle lancer la recherche", 0).self.Path
Call ShellExecute(GetActiveWindow, "find", pFolder, vbNullString, vbNullString, SW_SHOW)
If pFile <> "" Then
    SendKeys pFile, True
End If
If pFindIn <> "" Then
    SendKeys "{TAB}" & pFindIn, True
End If
End Sub

Variables :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Const SW_SHOW = 5

Ma demande concerne juste l'option "rechercher les documents", précision sur la copie d'écran jointe.
C'est un détail, mais cela pourrait permettre de multiplier par 10 le délai de recherche réseau...
Merci !

 

[patricktoulon]

re
alors!tu me pardonnera ma franchise hein
ton code est digne de la préhistoire
c'est une usine à gaz
je vois des sendkeys direct comme ça a partir de vba alors que tout le monde sait que c’a déactive le pavé et bien d'autres chose

Alors que je t'ai donné une chose simple propre qui va direct dans tes documents avec voir ci dessous

des bonus pour les variations

j'ai envie de te dire mon grand "Bon vent" et continue avec ta brouette

Patrick