Microsoft 365 WinSearch VBA | PowerPivot et/ou PowerQuery

[Staple1600]

Bonjour le fil

Pour faire écho à la discussion de @patricktoulon, j'ai retrouvé ce fil

VBA et Windows Desktop Search...

[Résolu] - VBA et Windows Desktop Search... Bonjour le forum XLD, Je recherche des fichiers sur mon réseau professionnel avec la commande Application.FileSearch dans un répertoire contenant une arborescence de près de 12000 dossiers... La recherche d'un fichier prend souvent entre 1 et 2...

excel-downloads.com

J'ai voulu testé sur 365 et W10 64 bits
Et j'ai ce message d'erreur

Alors tout comme @patricktoulon , je vous invite à tester le code présent dans la discussion de 2013 citée plus haut

La question étant: est-ce que chez vous aussi ce message d'erreur apparait ?

EDITION: Voir le message#57 où apparait PowerPivot dans l'histoire.

 

[Staple1600]

Re

@patricktoulon
Désolé, j'avais pas rangé ma chambre !!!!
Problème résolu

Microsoft 365 - Pb avec Windows

Bonjour, J'ai un code qui fonctionnait bien jusqu'à hier où des modifications à Windows ont été apportées. Il permet de faire une recherche dans un dossier à partir d'un Useform. Private Sub CommandButton65_Click() Dim DataObj As New MSForms.DataObject Dim Mon_texte As String Dim RetVal As...

excel-downloads.com

J'ai honte

Mais suis de preneur de voir ce que cela donnera quand tu auras titillé la chose

 

[Staple1600]

Re

@patricktoulon
je bute pour renvoyer le résultat dans un Array plutôt que dans les cellules
Je ne sais comment déclarer mon tableau
(en bref compter le nombre d'items renvoyé par la recherche)

Sub test_simple_B()
'Dans VBA Menu "Tools/References..."
'Cocher "Microsoft ActiveX Data Object 2.8 Library"
Dim t
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
objRecordset.Open "SELECT System.ItemName, System.DateModified FROM SYSTEMINDEX WHERE DIRECTORY='file:C:\Users\STAPLE\Documents'", objConnection
j = 1
Redim t(1 to Quoi?, 1 to 2)

Do Until objRecordset.EOF
    t(j, 1) = objRecordset.Fields.Item("System.ItemName")
    t(j, 2) = Format(objRecordset.Fields.Item("System.DateModified"), "dd/mm/yyyy hh:mm:ss")
    objRecordset.MoveNext
    j = j + 1
Loop
Cells(1).Resize(UBound(t, 1), UBound(t, 2)).Value = t
End Sub

Comment calculer mon Quoi ?

 

[Staple1600]

Re

@patricktoulon
Et pour passer plutôt dans un Array que dans les cellules ? Comment faire ?
Je sèche toujours
Sinon pourquoi pas ?
Private Sub test_filtre(Chemin As String, Extension As String,Search_STR as String)
'ton code VBA adapté en conséquence
End Sub

 

[Staple1600]

Re

@patricktoulon
T'inquiètes
En général, je n'oublie pas qu'Excel est un tableur à la base
Par conséquent, j'ai l'habitude d'utiliser les outils idoines(*) pour faire telle ou telle chose
WindowsSearch pour chercher des fichiers
(*) et j'essaie de me contenter des outils natifs fournis par Windows

Je m'autorise à rejoindre la joyeuse troupe des "Faisons faire à Excel surtout tout ce qu'il n'est pas censé faire" par simple curiosité intellectuelle et pour occuper les jours de pluie et/ou les nuits sans lune

Sans passer par l'array, je passe par ici, mais ca coince pour la suite

Private Sub CommandButton1_Click()
'Dans VBA Menu "Tools/References..."
'Cocher "Microsoft ActiveX Data Object 2.8 Library"
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
objRecordset.Open "SELECT System.ItemName, System.DateModified FROM SYSTEMINDEX WHERE DIRECTORY='file:C:\Users\STAPLE\Documents'", objConnection
While objRecordset.EOF = False
        UserForm1.ListBox1.AddItem objRecordset.Fields(0)
        objRecordset.MoveNext
Wend
End Sub

 

[Staple1600]

Re

@patricktoulon
De mon côté, j'en suis là, (ca fait moins mal aux yeux, donc pas de risque d'épilepsie )
Avec l'array de côté

Private Sub CommandButton1_Click()
'Dans VBA Menu "Tools/References..."
'Cocher "Microsoft ActiveX Data Object 2.8 Library"
Dim vArr
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
objRecordset.Open "SELECT System.ItemName, System.DateModified FROM SYSTEMINDEX WHERE DIRECTORY='file:C:\Users\STAPLE\Documents'", objConnection
vArr = objRecordset.GetRows()
With ListBox1
    .ColumnCount = 2
    .ColumnWidths = "300;300"
    .List() = Application.Transpose(vArr)
End With
End Sub

PS: Je sais que il y a une limite avec Application.Transpose

Je m'en vais tester ton code épileptique

PS: il faudrait chronométrer toutes les méthodes utilisées (celles de ton fil, et celles ici) pour faire une récap
et voir quelle syntaxe est la plus rapide
Je te laisse, faire vu que c'est toi qui a commencé à pousser Excel hors des clous, avec ton projet pseudo. boite

EDITION: @patricktoulon
Merci d'avoir invité @dysorthographie a se joindre à nous.

 

[crocrocro]

je bute pour renvoyer le résultat dans un Array plutôt que dans les cellules
Je ne sais comment déclarer mon tableau
(en bref compter le nombre d'items renvoyé par la recherche)

Bonjour le fil,
Pour répondre à la question de Staple, pour alimenter automatiquement le tableau qui s'autodimensionne :

t = objRecordset.GetRows()

EDIT : je n'avais pas vu que vous aviez déjà trouvé la solution, désolé

 

[Staple1600]

Re, Bonjour @crocrocro

@patricktoulon
Comme je le disais au message#12, il aura un problème avec Application.Transpose si trop grand nombre de fichiers dans l'Array.

Comme évoqué plus bas, la même plus ou moins à ma sauce

' Dans VBA Menu "Tools/References..."
' Cocher "Microsoft ActiveX Data Object 2.8 Library"
Sub testt()
Dim a
a = W_SearchIDX("C:\Users\STAPLE\Documents", "xlsx")
Cells(1).Resize(UBound(a, 1), UBound(a, 2)).Value = a
End Sub
Private Function W_SearchIDX(strPath As String, strExt As String) As Variant
Dim objConnection As Object, objRecordset As Object, vArr
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
' Ouverture de la connexion
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
' Format de la requête avec LIKE pour extension et nom partiel
objRecordset.Open _
"SELECT System.ItemName, System.DateModified FROM SYSTEMINDEX WHERE DIRECTORY='file:" & strPath & "' " & "AND System.ItemName LIKE '%." & strExt & "%'", objConnection ' Adaptation du filtre d'extension
vArr = objRecordset.GetRows()
W_SearchIDX = Application.Transpose(vArr)
objRecordset.Close
objConnection.Close
End Function

Il y un problème de format avec certaines dates en colonne B

 

[Staple1600]

Re

[aparté]
@patricktoulon

'Archive Octobre 2024 ;modèle patricktoulon requete windowsearch V 4

Euh ? Tu ne me crédites même pas dans l'histoire ?
C'est quand même moi qui ait évoqué PS et WS dans ton fil, non ?
Et fourni un code fonctionnel ici même, dans ma discussion...
cf message#3
[/aparté]

 

[Staple1600]

Re

[aparté suite et fin]
@patricktoulon
Je ne parle pas de prendre tel ou tel bout de mon code mais de simplement citer les XLDnautes qui ont mis du jus de neurones dans leur VBE, pour tester ton projet et où t'apporter de nouvelles pistes.

Un truc du genre quoi

Spoiler

'Octobre 2024: projet pseudo boite
'Auteur : patricktoulon
'suggestions emploi PowerShell & WSearch : Staple1600
'contributions code (WScript+PShell etc) : jurassic pork

[/aparté suite et fin]

 

[Staple1600]

Re

@patrickoulon
Si je ne m'abuse, pour le moment avec Windows Search, on ne traite pas les sous-dossiers mais que la racine, non ?

ya pas photo

C'est bien pour cela que j'ai évoqué la piste Windows Search

Mais comme tu l'as dit, cette piste peut-être problématique si pas d'indexation ou si les services de WS sont arrêtés etc...

Alors que ce bon vieux Dir du Dos tournera sans souci sur ton les PC
(quoique j'ai vu des PC où l'invite de commande était désactivé, tout comme VBScript par les DSI)

 

[Staple1600]

Re

@patricktoulon
Je refais un test alors.

 

[crocrocro]

Je ne sais pas si vous avez aussi cette différence de résultat :
Dans le code du post 17 avec la clause Where :

"WHERE System.ItemPathDisplay LIKE '" & Chemin & "%' " & _

remonte 1 enregistrement
alors qu'avec

"WHERE DIRECTORY='file:" & Chemin & "' " & _

remonte bien tous les enregistrements correspondant à l'ensemble des paramètres

 

[Staple1600]

Re

EDITION:
@crocrocro
Je viens de voir que j'utilisais déjà cette syntaxe dans le message#16 , non ?

 

[Staple1600]

Re

Ca mouline un peu pour lister mes 87 000 fichiers(*)
=> 9,90 secondes [O365 & W10 64 bits / 16Go de ram)
=> 9,13 secondes si pas de restitution sur la feuille

Sub test_OK()
'Staple1600 - 12/10/24
Dim strPath$, objConnection As Object, objRecordset As Object, vArr As Variant, ta_b
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
strPath = Environ("USERPROFILE") & "\Documents"
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
objRecordset.Open "SELECT System.ItemPathDisplay, System.ItemTypeText, System.Size FROM SystemIndex WHERE SCOPE='file:" & strPath & "'", objConnection
Application.ScreenUpdating = False
vArr = objRecordset.GetRows()
ta_b = Transpose2dim(vArr)
Cells(1).Resize(UBound(ta_b, 1), UBound(ta_b, 2)).Value = ta_b
objRecordset.Close
objConnection.Close
End Sub
Private Function Transpose2dim(t)
'|>patricktoulon<|
ReDim tb(LBound(t) To UBound(t, 2), LBound(t) To UBound(t))
    For c = 0 To UBound(t, 2)
        For lig = 0 To UBound(t)
            tb(c, lig) = t(lig, c)
        Next
    Next
Transpose2dim = tb
End Function

(*) voir message précédent.