Transfert du fichier Excel Actif par FTP depuis une macro

Bonjour à tous,

j'essaye par le biais d'une macro et d'un fichier bat d'envoyer le fichier excel à son ouverture sur un FTP, malheureusement cela ne veut pas se faire.
Fichier Classeur1.xlsm
Voici le code dans ThisWorkbook:

Code:

---

1 2 3 4

Sub transfert() a = Shell("C:\transfert.bat", vbHide) End Sub

---

Voic le fichier transfert.bat:

Code:

---

1 2	ftp.exe -s:info.txt

---

et celui du fichier info.txt:

Code:

---

1 2 3 4 5 6 7

open ftp.monsite.fr monuserlogin monmotdepasse binary put Classeur1.xlsm quit

---

Dans excel je recois ce message d'erreur:
Erreur d'éxécution '5': Argument ou appel de la procédure incorrecte

Merci d'avance pour votre aide

Davy

Salut,

ok j'ai résolu le problème, j'ai fais un peu autrement avec de l'aide trouvée sur GOOGLE, mais j'ai du cherché longtemps...
Voici pour ceux qui sont intéréssés le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub Workbook_Open() Dim vPath As String Dim vFile As String Dim vFTPServ As String Dim fNum As Long   vPath = ThisWorkbook.Path vFile = "YourFile.xls" vFTPServ = "ftp.yourserver.com"   'Mounting file command for ftp.exe fNum = FreeFile() Open vPath & "\FtpComm.txt" For Output As #fNum Print #1, "user YourLogin YourPass" ' your login and password" Print #1, "cd TargetDir" ' change to dir on server Print #1, "bin" ' bin or ascii file type to send Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to server file Print #1, "close" ' close connection Print #1, "quit" ' Quit ftp program Close   Shell "ftp -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus End Sub

---

Amusez-vous bien.

Davy