Microsoft 365 Recherche dans fichier excel dans un répertoire

[Loulou27]

Bonjour,

Je voulais rechercher des choses dans des fichiers excel dans 1 répertoire mais je me rends compte que avec la fonction "Recherche" de l'explorateur, je n'ai apparemment pas ce qu'il faut comme résultat (manque des fichiers ou pas les bons)

Je pense le faire en ouvrant les fichiers excel 1 à 1 mais va prendre un temps fou je pense car j'ai plus de 6500 fichiers / mois

Avez-vous une solution simple (peut-être paramètrages windows .... autre que en passant par excel) ?

Il faut que je cherche une référence telle que ce format XX XX XX puis dans tous ces fichiers, une seconde référence en XX XX XX XX XX


De plus, les fichiers sont en xlsx donc faut -il les renommer en xls o =u cela ne sert à rien ?


N.B :
j'ai essayé avec cette fonction
FINDSTR /M /C:"*XX XX XX*" *.*

mais cela ne marche pas du tout


Merci pour votre aide

 

[job75]

Bonjour le forum,

J'ai voulu voir ce que donne la méthode ADO.

Eh bien le traitement de 6500 fichiers identiques aux fichiers précédents prendrait plus de 7 minutes chez moi.

A+

 

[job75]

Bonjour le forum,

Je me suis décidé à créer 6500 fichiers .xlsx, voyez le dossier zippé sur TransferNow :

https://www.transfernow.net/dl/2025090815NPRohY

Contrairement à ce que je disais au post #11 le traitement VBA se fait chez moi en 98 secondes.

A+

 

[Loulou27]

Bonjour le forum,

Je me suis décidé à créer 6500 fichiers .xlsx, voyez le dossier zippé sur TransferNow :

https://www.transfernow.net/dl/2025090815NPRohY

Contrairement à ce que je disais au post #11 le traitement VBA se fait chez moi en 98 secondes.

A+

Bonjour,

Merci pour tout, après modification de la macro pour adaptation à ce que je souhaite, cela semble fonctionner.

Pour le moment, je récupère les fichiers sur mon PC car ils sont sur un serveur mais il y en a beaucoup trop (380 000 !!!)

Je suis entrain de copier 86 000 fichier quand même depuis début de l'année

Ensuite, il faut que je lance la macro mais je pense demain car la copie est assez longue


N.B : j'ai modifié pour que pour un même fichier, il y a le critère 1 et 2 sur la même ligne car sinon, ils étaient sur 2 lignes

 

[job75]

Bonjour Loulou27, le forum,

N.B : j'ai modifié pour que pour un même fichier, il y a le critère 1 et 2 sur la même ligne car sinon, ils étaient sur 2 lignes

Ce n'est pas vraiment évident, j'ai modifié le code :

Const feuil$ = "MaFeuille"
Const col1% = 3 'colonne C
Const col2% = 7 'colonne G
Const crit1$ = "?? ?? ??"
Const crit2$ = "?? ?? ?? ?? ??"
Dim fichier$, a(4) 'tableau en base 0

Sub Recherche()
Dim chemin$, lig&, form$
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xlsx") '1er fichier du dossier
lig = 3
Application.ScreenUpdating = False
Rows(lig + 1 & ":" & Rows.Count).Delete 'RAZ
While fichier <> ""
    form = "'" & chemin & "[" & fichier & "]" & feuil & "'!"
    Erase a
    Formule form, col1, crit1
    Formule form, col2, crit2
    If a(0) <> "" Then lig = lig + 1: Cells(lig, 1).Resize(, 5) = a
    fichier = Dir 'fichier suivant
Wend
Range("A4:E" & lig).Borders.Weight = xlThin
End Sub

Sub Formule(form$, col%, crit$)
Dim f$, v
f = "MATCH(""" & crit & """," & form & "C" & col & ",0)"
v = ExecuteExcel4Macro(f)
If IsNumeric(v) Then
    a(0) = fichier
    a(IIf(crit = crit1, 1, 3)) = v
    a(IIf(crit = crit1, 2, 4)) = ExecuteExcel4Macro(form & "R" & v & "C" & col)
End If
End Sub

J'ai exécuté la macro avec 6500 fichiers, elle s'exécute en 86 secondes chez moi.

A+