Discussion :

[DavyBernhard]

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 :

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

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

Voic le fichier transfert.bat:

Code :

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

1
2
 
ftp.exe -s:info.txt

et celui du fichier info.txt:

Code :

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

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

[DavyBernhard]

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 :

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
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