Comment changer l'adresse d'un fichier dans une macro ?

Bonjour,

j'utilise une macro (réalisée grâce à l'assistant...) pour récupérer un fichier et le coller dans une cellule excel. Le fichier que je vais chercher se trouve dans un dossier qui va changer tous les trimestres.
Je voudrai avoir une boîte qui demande quel trimestre utiliser afin qu'il puisse aller chercher automatiquement ce-dit fichier et ne pas avoir à modifier le chemin dans la macro.

Voici la macro:
Sub recup_messages()
'
' recup_messages Macro
' Macro enregistrée le 22/10/2012 par Boulin Pascal
'

'
ActiveWindow.SmallScroll Down:=18
Range("A100:C358").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-243
Range("A100").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;I:\CAPI\EEC12D\MESSAGES\MESSAGES.ENQ", Destination:=Range("A100"))
.Name = "MESSAGES_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With
End Sub


Tous les trimestres le fichier Message.enq va être dans un dossier différent. Ici, c'est le dossier EEC12D qui change régulièrement.
Quelqu'un pourrait-il me donner la solution ?

Merci à vous !!