Macro transfert FTP et Recup d'un fichier TEXTE

Tu as essayé ceci :

Sub test()
Shell "C:WINDOWSsystem32ftp.exe -s:c:transferttransf.txt 192.1.5.150", vbHide
End Sub



"Domi" <scrat83@free.fr> a écrit dans le message de news: OXY$BJUFHHA.3540@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,

J'ai fais une macro " Sub importer_TEXTE " qui m'ouvre un fichier texte
"toto.txt", le met en forme.etc. Ca marche très bien. Ma question concerne
la récupération préalable de ce fichier texte.



Pour ce faire, j'ai sur mon bureau un raccourci "Recup"dont la syntaxe de
la cible est la suivante :

C:WINDOWSsystem32ftp.exe -s:c:transferttransf.txt 192.1.5.150

Je fais un double clic dessus et je récupère le fichier toto.txt dans le
dossier C:Transfert

Je n'ai plus ensuite qu'à lancer ma macro et c'est OK.



Ma question est la suivante : Serait-il possible d'inclure cette commande
dans la macro elle-même ? et d'éviter ainsi d'avoir à lancer la commande
"Recup" sur le bureau avant de lancer ma macro dans excel. Je dois faire
cette double manip très souvent et ce serait génial.



La syntaxe du fichier c:transferttransf.txt auquel fait référence le
raccourci est la suivante :

mdp

mdp

hash

bell

get /users/login/login.prn c:transferttoto.txt

quit



Elle permet de récupérer sur un serveur (192.1.5.150) dans le dossier de
l'utilisateur "Login" un fichier nommé login.prn et de le transférer en
local dans C:Transfert en le renommant "toto.txt"



Sub importer_TEXTE()



' ..Ici recupération du fichier texte par FTP.. ????



'Importation du fichier dgre.txt

Workbooks.OpenText Filename:="C:TRANSFERTtoto.txt", Origin:=xlWindows,
_

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2),
Array(9, _

2), Array(18, 2), Array(21, 9), Array(22, 2), Array(40, 1),
Array(53, 9), Array(54, 2), _

Array(56, 9), Array(57, 4), Array(65, 9), Array(66, 2))





.Suite de la macro

End Sub



Merci pour votre aide

Domi

Bonjour,

Jette un oeil du coté de coté de shell("..."). QQ chose comme
Shell("c:Program FilesMicrosoft OfficeOfficeexcel.exe d:toto.xls")

@+
FxM

Bonjour à tous,

J'ai fais une macro " Sub importer_TEXTE " qui m'ouvre un fichier texte
"toto.txt", le met en forme.etc. Ca marche très bien. Ma question concerne
la récupération préalable de ce fichier texte.



Pour ce faire, j'ai sur mon bureau un raccourci "Recup"dont la syntaxe de
la cible est la suivante :

C:WINDOWSsystem32ftp.exe -s:c:transferttransf.txt 192.1.5.150

Je fais un double clic dessus et je récupère le fichier toto.txt dans le
dossier C:Transfert

Je n'ai plus ensuite qu'à lancer ma macro et c'est OK.



Ma question est la suivante : Serait-il possible d'inclure cette commande
dans la macro elle-même ? et d'éviter ainsi d'avoir à lancer la commande
"Recup" sur le bureau avant de lancer ma macro dans excel. Je dois faire
cette double manip très souvent et ce serait génial.



La syntaxe du fichier c:transferttransf.txt auquel fait référence le
raccourci est la suivante :

mdp

mdp

hash

bell

get /users/login/login.prn c:transferttoto.txt

quit



Elle permet de récupérer sur un serveur (192.1.5.150) dans le dossier de
l'utilisateur "Login" un fichier nommé login.prn et de le transférer en
local dans C:Transfert en le renommant "toto.txt"



Sub importer_TEXTE()



' ..Ici recupération du fichier texte par FTP.. ????



'Importation du fichier dgre.txt

Workbooks.OpenText Filename:="C:TRANSFERTtoto.txt", Origin:=xlWindows,
_

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2),
Array(9, _

2), Array(18, 2), Array(21, 9), Array(22, 2), Array(40, 1),
Array(53, 9), Array(54, 2), _

Array(56, 9), Array(57, 4), Array(65, 9), Array(66, 2))





..Suite de la macro

End Sub



Merci pour votre aide

Domi