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

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

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

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

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 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"

'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

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