Import fichier .dat

[Audrey56170]

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

 

[Modeste]

Re : Import fichier .dat

Madame, Mademoiselle, 😉

Ceci semble ne pas provoquer d'erreur, chez moi:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;[B][COLOR="Red"]" & chemin[/COLOR][/B], Destination

 

[Audrey56170]

Re : Import fichier .dat

MONSIEUR MODESTE,

Mes respects, je suis épatationnée... 😉

Merci pour cette aide précieuse.

Signée : une nouvelle admiratrice

 

[Modeste]

Re : Import fichier .dat

re-bonjour,

je suis épatationnée... 😉

Je n'en espérais pas tant, mais j'en suis tout ravitouillé

une nouvelle admiratrice

... nouvelle 😱 ... mais alors ... il y en aurait une autre!? ... Et on ne me dit rien!

Ceci dit, je propose de dédier ta réponse à l'ensemble de ceux qui cherchent pour les autres, qui trouvent des solutions ... et puis restent sans nouvelles 🙁 (Ce sont eux qui ont permis que je te réponde correctement ... cette fois J'assume seul la paternité des âneries qu'il m'arrive de "pondre")

Merci à toi, donc,

@+