importation via FTP

Bonjour,

Auriez-vous des exemples pour importer un fichier (style fichier texte) dans
excel via ftp.
J'ai un fichier 123 qui le fait, des utilisateurs ne voudraient plus
utiliser 123 mais le faire avec excel.

le code sous 123 donne ceci :

Sub Click(Source As Buttoncontrol)

Dim nomremote As String
Dim nosociete As String
Dim file As String
Dim ftp As String
Dim repertoiredushell As String
Dim repertoiredufichier As String


[A1..C65536].Select
Selection.Clear ClearData

repertoiredushell="S:\edi\shell\Balances\"
repertoiredufichier="S:\edi\transf\Balances\"
ftp= repertoiredushell+"pretftp"

[E8].Select
nosociete=.Contents
file=Right$(nosociete,2)&".bal"

[E6].Select
nomremote=.Contents
remote=Mid(nomremote,2)

Open ftp For Output As #1
Print #1 , "open "&remote
Print #1 , "login"
Print #1 , "password"
Print #1 , "get"
Print #1 , "/usr/eloquence/transf/balance/"&file
Print #1 , repertoiredufichier+file
Print #1 , "by"

leon=Shell ("ftp -s:"&ftp,1)
Close #1

leon=Inputbox ("Ok pour continuer l'importation ","Importation de la
balance",,"4000","4000")
Kill ftp

[A1..C65536].Select
Selection.Clear ClearData
[A1].select
Selection.RangeCombineText repertoiredufichier+file,,$Comma,"",$Windows


End Sub


Merci