Moteur de recherche par mot clé

Bonsoir à tous,

N'ayant aucune connaissance en VBA, je poste sur ce forum afin d'avoir quelques réponses.

Je souhaiterais créer une base documentaire de données sous Excel, et ce par la recherche par mot clé. J'aurai donc un dossier (sur le bureau pour l'instant) dans lequel se trouve tous mes documents (formats word, excel, PDF) classés par thèmes et sous thèmes, et donc par la saisie d'un mot clé j'aimerai créer une maccro qui aille directement rechercher le ou les documents concernés.

Merci beaucoup !

Bonjour,

Une piste. en arguments, indiquer au moins le lecteur si on ne connait pas le dossier et une partie du nom du fichier. Le résultat sera indiqué en colonne A. Moins le nom du fichier est précis plus il risquera d'y avoir de chemin retournés :

Sub Test()

    Chemin "F:\", "Tarif"

End Sub

Private Sub Chemin(Dossier As String, FichierCherche As String)

    Dim Fso As Object
    Dim Dos As Object
    Dim SousDos As Object
    Dim D As Object
    Dim Fichier As Object
    Dim I As Integer

    Set Fso = CreateObject("Scripting.FileSystemObject")

    'si le dossier n'existe pas, fin
    If Fso.FolderExists(Dossier) = False Then Exit Sub

    Set Dos = Fso.GetFolder(Dossier)

    'recherche le fichier dans le dossier
    For Each Fichier In Dos.Files

        'si trouvé, indique le chemin complet en colonne A
        If InStr(Fichier, FichierCherche) <> 0 Then

            I = I + 1
            Range("A" & I) = Fichier.Path

        End If

    Next Fichier

    Set SousDos = Dos.SubFolders

    'recherche dans les sous dossiers
    For Each D In SousDos

        For Each Fichier In D.Files

            'évite l'erreur des dossiers interdits
            On Error Resume Next

            'si trouvé, chemin en A1
            If InStr(Fichier, FichierCherche) <> 0 Then

                Range("A1") = Fichier.Path

            End If

        Next Fichier

        'rappel de la proc pour chercher les dossiers enfants
        Chemin D.Path, FichierCherche

    Next D

End Sub

Hervé.

Merci beaucoup pour ta réponse ! Ça m'a permis d'avancer,

Bonne soirée,

Lucile