Recherche de fichiers dans sous-dossier et création liens hypertexte

Bonjour,

Je suis un novice complet dans VBA, c'est pourquoi j'ai besoin de votre aide.

Je recherche une macro qui me permet à partir d'une liste de chiffres/texte dans la colonne A, de rechercher ce texte dans un certain dossier (et tout les sous-dossiers), trouver le fichier qui contient ce texte dans son nom et créer une lien hypertexte de ce fichier en colonne B.

J'ai déjà la macro suivante que j'ai trouvé sur le web:

Sub AddHypaerlinks()

Dim lastRow As Long
Dim myPath As String, fileName As String

myPath = "X:\Production Data\Amepa\PDF\2020.11\2020.11.01\" 'SET TO WHERE THE FILES ARE LOCATED
lastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastRow

    fileName = myPath & Range("A" & i).Value & "*.pdf"

    If Len(Dir(fileName)) <> 0 Then 'IF THE FILE EXISTS THEN

        ActiveSheet.Hyperlinks.Add Range("B" & i), myPath & Dir(fileName)

    End If

Next

End Sub

Elle marche, mais elle ne me permet seulement d'aller chercher dans un seul dossier. Je souhaiterait pouvoir faire la recherche dans le dossier "\PDF\" complet en incluant tout les sous-dossiers.

Est-ce que c'est faisable?

Merci de votre aide!!

Hello,

Tu devrais trouver ta solution ici :

https://forum.excel-pratique.com/viewtopic.php?t=115451

R@g