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,

@+