Macro Excel chemin relatif

Salut,

J'essaie d'importer un archive de texte sur Excel avec une macro.

L'utilisateur aura un bouton sur la feuille excel et quand il cliquera dessus excel importera un fichier qui s'appele dk.txt Ce fichier sera dans le même dossier que le fichier Excel.

Le problème c'est que le chemin ne sera pas le même que dans mon ordi quand les autres utiliseront la bouton. Dans mon ordi la macro donne :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/05/2010 par dmendez
'
' Touche de raccourci du clavier: Ctrl+l
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\dmendez\Bureau\nnnnnnnnnn\dk.txt", Destination _
:=ActiveCell)
.Name = "dk"
.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 = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

OR le chemin "TEXT;C:\Documents and Settings\dmendez\Bureau\nnnnnnnnnn\dk.txt" ne sera pas pareil dans les autres ordis.

QUE FAUT IL METTRE COMME CHEMIN pour qu'excel aille chercher le fichier TXT qui se trouvera dans le même dossier que le fichier excel qui contien le bouton ???

Merci