importation script vb de fichier *.txt

[bret]

Bonjour,

J'ai recherché sur le site et sur le net ! des macros permettant d'importer un fichier texte dans la fenetre active d'excel...

j'en ai essayé quelques uns mais tous m'ouvre une nouvelle feuille excel...

existe t-il en évitant, l'enregistrement de macros, des fonctions qui permettent ce genre de manip'


merci !

 

[bret]

En fouillant l'aide d'excel je suis tombé sur ce code il fonctionne mais merdouille un peu ! (quand on charge plusieurs fois le script erreur 1004 un truc dans ce genre !)

Si vous pouvez améliorer ça ! c bienvenue !@ +

...

Private Sub CommandButton3_Click()
Set classeurdest = Workbooks(1).Worksheets(1)
Set chargedonnees = classeurdest.QueryTables _
.Add(Connection:="TEXT;C:\mesdocs\test.txt", _
Destination:=classeurdest.Cells(1, 1))


With chargedonnees
.TextFileParseType = xlDelimited
.TextFileOtherDelimiter = "|"
.Refresh
End With

end sub



@+Bret