Import fichier .dat

Mesdames, Messieurs, bonjour,

Je souhaite importer, via du code VBA, un fichier .dat dans une feuille de calcul : après génération de la macro j'obtiens ceci :

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;G:\EXCEL\dat\Inscrits.dat", Destination _
:=Range("$A$1"))
.Name = "Inscrits"
.FieldNames = True
...
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Dans un second temps, je souhaite automatiser le choix du fichier .dat, ce qui modifie mon code comme ci-après :

Dim chemin As String

chemin = Application.GetOpenFilename

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;chemin", Destination _
:=Range("$A$1"))
.Name = "Inscrits"
.FieldNames = True
...
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Le message suivant apparaît :

Erreur d'exécution '1004' : Impossible de trouver le fichier texte pour l'actualisation de cette plage de données externes.
Assurez-vous que le texte n'a été déplacé ni renommé et réessayer.

Je ne comprends pas car je remplace le chemin de dur en automatique : lorsque je mets mon chemin dans un msgbox il m'affiche bien le bon chemin...

Merci pour votre aide