importation donnée texte

bonjours voila mon problème
j'importe de données texte dans exel mais le nom du ficher texte change
toujours.
comment faire pour télécharger tout ces ficher sans changer sont nom dans la macro ??
appelle a une cellule ou autre ??😕

merci pour vos lumiere


Sub TELE()

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\HeavyWeather\Cumulus\data\janv.10log.txt", Destination:=Range("$f$2"))
.Name = "*"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With


End Sub