Importer un nom de fichier à partir de Inbox

Bonjour,

Je fais une demande par VB et Inbox du nom d'un fichier que je sauvegarde dans une cellule. jusqu'ici tout va bien.Je ne connais pas ce fichier mais mon correspondant X ou Y le connait
Mon correspondant indique le nom du fichier dans la macro avec une commande INBOX que je sauvegarde dans une cellule AA2
Par exemple: le nom du fichier s'appelle 1189 que je met dans la cellule AA2 de la feuille1.
Maintenant que je connais le nom du fichier qui est dans ma cellule AA2, je voudrais importer le contenu du fichier 1189 dans sa feuille pour la traiter avec d'autres macros
Je n'arrive pas à trouver.
Quand je nomme le fichier ca marche comme ici mais quand j'essaie de remplacer \1189\ par AA2 ou $AA2$ ca ne marche pas
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\RUK PRISM\1189\00000001.BLG", Destination:=Range("$A$1"))
.Name = "00000001"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 3
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 9, 4, 9, 1, 1, 9)
.TextFileFixedColumnWidths = Array(19, 12, 12, 12, 7, 10)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With