Discussion :

[Invité]

et dans script.ftp tu as bien le résultat de ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
cript =environ("TEMP") & "\script.ftp"
        Open Script For Output As #1
        Print #1, "user"
        Print #1, strUserName
        Print #1, strPassword
        Print #1, "cd FDM/FDMRIP"
        Print #1, "put " & fdmca
        Print #1, "Quit"
        Close #1

[fthemi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 'enregistrement de la FDM à envoyer par FTP
        are = Left(Worksheets(1).Range("L2"), 3)
        fdm = "C:\TEMP\" & Range("L2") & ".xls"
        ThisWorkbook.SaveAs (fdm)
 
        strPassword = "xxxx"
        strUserName = "xxxxxxxxxxxxxx"
        ftpServer = "o xxxxx.xxx.xxx.xxx.fr"
        ' creation du script FTP et enregistrement provisoire
        script = Environ("TEMP") & "\script.ftp"
        Open script For Output As #1
        Print #1, ftpServer
        Print #1, strUserName
        Print #1, strPassword
        Print #1, "cd FDM"
        Print #1, "put " & fdm
        Print #1, "cd FDM/FCMOCSV"
        Print #1, "put " & stF
        Print #1, "quit"
        Close #1
        Shell "ftp -n -s:" & Chr(34) & script & Chr(34) & Space(1) & ftpServer

Résultat:
Aïe, le fichier script.ftp ne s'est pas créé

[Invité]

pour le test faits le à la mais avec Notepad++

[fthemi]

Peut pas l'installer PC entreprise!!!!!

[Invité]

Nopad normal

[fthemi]

Je ne m'en sort pas c'est trop hard pour moi, je croix que je vais arrêter

[Invité]

dans Excel Vba!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
strPassword = "123456789"
strUserName = "Testr"
ftpServer = "o ****.**.**.***.fr"
Script = Environ("TEMP") & "\script.ftp"
        Open Script For Output As #1
        Print #1, "user"
        Print #1, strUserName
        Print #1, strPassword
        Print #1, "cd FDM/FDMRIP"
        Print #1, "put " & fdmca
        Print #1, "Quit"
        Close #1
Open Environ("TEMP") & "\script.Bat" For Output As #1
 Print #1, "ftp -n -s:" & Chr(34) & Script & Chr(34) & Space(1) & ftpServer
 Print #1, "Pause"
 Close #1
shell Environ("TEMP") & "\script.Bat"
 MsgBox Environ("TEMP") & "\script.Bat"
 
End Sub

[fthemi]

resultat de ton code:
création d'un script.ftp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
user
Testr
123456789
cd FDM/FDMRIP
put 
Quit

et il me crée aussi un script.bat

sous C:\Users\xxxxx\AppData\Local\Temp

[Invité]

r
il me crée aussi un script.bat

sous C:\Users\xxxxx\AppData\Local\Temp

oui c'est pour lire le résultat dans la fenêtre DOS!

[fthemi]

Résultat en fichier joint

[Invité]

Oui maintenant place les valeur de ton serveur et to fichier!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
strPassword ="tonPassword"
strUserName = "toUserName"
ftpServer ="TonServeurFtp.fr"
fdmca ="TonFichier.xls"
Script = Environ("TEMP") & "\script.ftp"
        Open Script For Output As #1
        Print #1, "user"
        Print #1, strUserName
        Print #1, strPassword
        Print #1, "cd FDM/FDMRIP"
        Print #1, "put " & fdmca
        Print #1, "Quit"
        Close #1
Open Environ("TEMP") & "\script.Bat" For Output As #1
 Print #1, "ftp -n -s:" & Chr(34) & Script & Chr(34) & Space(1) & ftpServer
 Print #1, "Pause"
 Close #1
shell Environ("TEMP") & "\script.Bat"
 MsgBox Environ("TEMP") & "\script.Bat"
 
End Sub

[fthemi]

Alors, même résultat que toute à l'heure dans le .bat (avec la vrai adresse du serveur)
et voila le script.ftp
user
Administrateur
edfgdf
cd FDM/FDMRIP
put 000ACR119397_1-1.xls
Quit

Mais le fichier;xls ne se trouve pas dans le dossier FDMRIP du SERVEUR

[Invité]

tu arrives à te connecté avec un client ftp ou internet explorer?

[fthemi]

e suis avec IE9 sur mon bureautique
comment veux tu dires?
mais je ne suis plus au boulot, j'y serait jeudi
Merci pour ta disponibilité

[SfJ5Rpw8]

bonsoir,

on en reviens au message 22 ...:

non pas sur le serveur installe le client ftp sur ton PC cela te permettra de mieux visualiser ton serveur .. vu qu'il semble que tu ne sache pas si le fichier est transféré ou pas ...


si tu ne veux pas l'installer tu peu aussi utiliser ftp.exe en ligne de commande ... tu as l'aide en ligne accessible par la commande help... après avoir lancé ftp.exe