Discussion :

[mimi7690]

Bonjour,

Je voudrais savoir comment uploader un fichier via vba (Excel ) sur un serveur SFTP (SSH).

Auparavant j'utilisais la fonction ci dessous, mais je ne peux plus depuis le changement de serveur.

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
25
26
27
28
29
30
'lancer le transfert
internet_ok = InternetOpen("PutFtpFile", 1, "", "", 0)
    If internet_ok = 0 Then
    MsgBox "connection internet impossible"
    Exit Function
    End If
'ftp_ok = InternetConnect(internet_ok, adresse.Text, port.Text, login.Text, mdp_ftp.Text, 1, 0, 0)
ftp_ok = InternetConnect(internet_ok, adresse, port, login, mdp_ftp, 1, &H8000000, 0) 'mode passif
    If ftp_ok = 0 Then
    MsgBox "connection au site " & adresse.Text & " impossible"
    Exit Function
    End If
sélect_rép = FtpSetCurrentDirectory(ftp_ok, rep_cible)
    If sélect_rép = 0 Then
    MsgBox "impossible de trouver le répertoire " & rep_cible.Text
    Exit Function
    End If
 
 
'transférer le fichier
    succès = FtpPutFile(ftp_ok, fichiers_rep, nomfich, &H1, 0)  'ascii
    'succès = FtpPutFile(ftp_ok, fichiers_rep(mun), nomfich, &H2, 0) 'binaire
    If succès Then
    résult = résult & Chr(10) & nomfich & " a été transféré sur " & adresse
    Else
    résult = résult & Chr(10) & nomfich & " n'a pas pu être transféré"
    End If
'fermer les pointeurs, ménage
    InternetCloseHandle ftp_ok
    InternetCloseHandle internet_ok

Merci d'avance.

Bonne journée à tous

[mimi7690]

Bonjour,

Comment utiliser une commande shell sur PSFTP.EXE?