Trouver lien d'un fichier à partir d'un numéro - VBA

Bonjour !

Je me demandais s'il était possible de réaliser ceci :

Dans mon Excel de base, j'ai un numéro de document que je rentre dans une cellule, exemple : 0245 (toujours à 4 chiffres)
Et j'aimerais que ma macro ouvre le document Excel correspondant à ce numéro.

Sachant que :

• Le fichier Excel a pour nom : "ABC - 0245 - BLABLA" (en rouge ce sont des caractères variables - de 0 à 50 cara environ).
• Le document ou se trouve ce fichier a pour nom : "ABC - 0245 - GNAGNA"

Il me faudrait donc une macro qui réussisse à me trouver le lien du fichier correspondant à mon numéro
Exemple :
• 0245 → C:\Test\ABC\ABC - 0245 - GNAGNA\ABC - 0245 - BLABLA.xls
• 0020 → C:\Test\ABC\ABC - 0020 - HEY\ABC - 0020 - HELLO.xls
• etc

Mon problème est donc cette variable texte en rouge accroché au n° de document et au n° de dossier qu'il m'ait impossible de trouver car écrit manuellement et dépends de la personne et du sujet.

Ca m'aiderait beaucoup car je dois aller chercher des valeurs dans ces fichiers et il y en a des centaines comme ça ! Du temps à faire/refaire manuellement

Merci beaucoup !

Bonsoir Pishti

Voici une Sub que vous pouvez appeler quand vous le souhaitez

Sub TrouveFichier(NumSaisi As String)
  Dim sPathIni As String, sPathFind As String, sFicFind As String
  Dim sPathFull As String
  sPathIni = "D:\Test\ABC\"
  sPathFind = Dir(sPathIni & "*" & NumSaisi & "*", vbDirectory)
  If sPathFind = "" Then
    MsgBox "Impossible de trouver le dossier : " & sPathIni & "*" & NumSaisi & "*"
    Exit Sub
  Else
    sPathIni = sPathIni & sPathFind & "\"
  End If
  sFicFind = Dir(sPathIni & "*" & NumSaisi & "*.xlsx", vbNormal)
  If sFicFind = "" Then
  Else
    sPathFull = sPathIni & sFicFind
  End If
  MsgBox "Le chemin d'accès complet est : " & sPathFull
End Sub

A+

Bonjour,

C'est génial merci beaucoup !