XL 2016 Recherche multi classeurs

vgendron à dit:

Bonjour

Mode Boule de Cristal ON
va voir du coté de Power Query
Mode Boule de Cristal OFF

Cliquez pour agrandir...

Sub SearchInMultipleWorkbooks()
    Dim FolderPath As String
    Dim FileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim SearchTerm As String
    Dim ResultSheet As Worksheet
    Dim LastRow As Long

    ' Définir le chemin du dossier et le terme de recherche
    FolderPath = "C:\Chemin\Vers\Votre\Dossier\"
    SearchTerm = "VotreTermeDeRecherche"

'ou  
    ' Lire le terme de recherche depuis la cellule A1 de la feuille active
    'SearchTerm = ThisWorkbook.Sheets("NomDeVotreFeuille").Range("A1").Value

    ' Créer une nouvelle feuille pour les résultats
    Set ResultSheet = ThisWorkbook.Sheets.Add
    ResultSheet.Name = "Résultats"

    ' Boucler à travers tous les fichiers Excel dans le dossier
    FileName = Dir(FolderPath & "*.xls*")
    Do While FileName <> ""
        Set wb = Workbooks.Open(FolderPath & FileName)
        For Each ws In wb.Sheets
            LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            For i = 1 To LastRow
                If InStr(1, ws.Cells(i, 1).Value, SearchTerm, vbTextCompare) > 0 Then
                    ws.Rows(i).Copy Destination:=ResultSheet.Cells(ResultSheet.Rows.Count, "A").End(xlUp).Offset(1, 0)
                End If
            Next i
        Next ws
        wb.Close SaveChanges:=False
        FileName = Dir
    Loop
End Sub

• renseigner le terme recherché en A1 ;
• renseigner les chemin des fichiers dans lesquels on recherche dans le tableau bleu ;
• mettre à jour la requête (clic droit sur le tableau vert, puis Actualiser).

mromain à dit:

Bonjour FS69, vgendron, le forum,

@FS69 :
Tu trouveras ci-joint une solution à base de PowerQuery.
Pour l'utiliser, il te faut :

• renseigner le terme recherché en A1 ;
• renseigner les chemin des fichiers dans lesquels on recherche dans le tableau bleu ;
• mettre à jour la requête (clic droit sur le tableau vert, puis Actualiser).

Le tableau vert contient le résultat de la recherche avec le nom du fichier, la feuille, la colonne, la ligne, la valeur de la cellule et un lien hypertexte pour ouvrir le fichier source.

PS : je n'ai pas testé sur un gros volume de données, peut-être que la requête mettra un peu de temps à s'exécuter.

A+

Cliquez pour agrandir...

Merci pour votre proposition qui fonctionne néanmoins le temps de réponse est beaucoup plus long qu'en passant par la macro vba

Cliquez pour agrandir...