VBA : Upload fichier sur serveur SFTP

[Jeremyy]

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.

'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

 

[Pierrot93]

Re : VBA : Upload fichier sur serveur SFTP

Bonjour,

vérifie peut être avec l'administrateur réseau les droits sur le nouveau serveur....

bon après midi
@+

 

[Jeremyy]

Re : VBA : Upload fichier sur serveur SFTP

Bonjour,

Merci pour la réponse, mais ils ne donnent pas de solution technique ...

 

[Misange]

Re : VBA : Upload fichier sur serveur SFTP

Bonjour
Je reconnais là le code J@C sur excelabo 🙂, code que j'ai utilisé pendant des lustres.
A quel moment est-ce que ça bloque ? L'administrateur de ton serveur ne te donnera pas de code VBA c'est sur mais vois avec lui si il y a des problèmes de droits d'accès sur le répertoire ou tu uploades. Quel est le CHMOD de ce répertoire ?

 

[Jeremyy]

Re : VBA : Upload fichier sur serveur SFTP

Le problème ne vient pas d'un problème d'accès aux dossiers mais de la connection.

Ftp_ok = InternetConnect(internet_ok, adresse, port, login, mdp_ftp, 1, &H8000000, 0) 'mode passif

La connexion au serveur ne fonctionne pas ( retourne 0 )

 

[Misange]

Re : VBA : Upload fichier sur serveur SFTP

Ce code fonctionne chez moi mais je ne l'ai jamais testé en SSH. A priori il est fait pour du FTP, pas SFTP.
J'ai trouvé ceci sur stackoverflow :
SFTP upload with VBA - Stack Overflow

 

[Jeremyy]

Re : VBA : Upload fichier sur serveur SFTP

Merci,

J'y ai dejà regardé.. mais cela nécessite la précense de Putty sur les différents postes...

 

[Misange]

Re : VBA : Upload fichier sur serveur SFTP

désolée je ne peux pas t'aider davantage et je n'ai pas de serveur SFTP de toutes façons pour tester.

 

[Jeremyy]

Re : VBA : Upload fichier sur serveur SFTP

Merci pour ta participation