Sauvegarder classeur sur FTP perso

[fifi]

Bonjour le forum.

j'aimerai pouvoir sauvegarder un classeur sur mon serveur ftp. est-ce possible?
j'ai rien trouvé dans la recherche :s

 

[fifi]

Re : Sauvegarder classeur sur FTP perso

par macro bien sur 😀
manuellement je sais faire

 

[MichelXld]

Re : Sauvegarder classeur sur FTP perso

bonsoir

tu peux tester cette procédure

Option Explicit

Private Declare Function InternetOpen Lib "wininet.dll" Alias _
    "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, _
    ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal _
    lFlags As Long) As Long

Private Declare Function InternetCloseHandle Lib "wininet.dll" _
    (ByVal hInet As Long) As Integer

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
    (ByVal hInternetSession As Long, ByVal sServerName As String, _
    ByVal nServerPort As Integer, _
    ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, _
    ByVal lFlags As Long, ByVal lContext As Long) As Long

Private Declare Function FtpPutFile Lib "wininet.dll" Alias _
    "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, _
    ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean
 

Sub Transfert_FTP()
Dim HwndConnect As Long
Dim lngINet As Long

lngINet = InternetOpen("Controle FTP", 1, vbNullString, vbNullString, 0)

'Connection ftp
HwndConnect = InternetConnect(lngINet, "[URL="ftp://ftp.provider.fr/"]ftp.Provider.fr[/URL]", 0, _
    "MonProfil", "MotDePasse", 1, 0, 0)
    
'transfert et renomme le fichier
FtpPutFile HwndConnect, "C:\le classeur.xls", "ClasseurFTP.xls", &H0, 0

'Fermerture
InternetCloseHandle HwndConnect
End Sub

Bonne soirée
MichelXld

 

[fifi]

Re : Sauvegarder classeur sur FTP perso

merci Michel de ton aide 😀
j'ai adapté le code en replaçcant les champ approprié mais ... ca ne marche pas 🙁 ou du moins je ne vois pas le résultat.


pour une bonne intégration de se code fallait-il modofier autre chose que cete ligne là :

HwndConnect = InternetConnect(lngINet, "ftp.Provider.fr", 0, _
    "MonProfil", "MotDePasse", 1, 0, 0)

j'ai aussi créé un classeur nommée "le classeur.xls" en c:\


j'ai loupé une étape?

 

[MichelXld]

Re : Sauvegarder classeur sur FTP perso

rebonsoir

Il n'y a rien d'autre à adapter.
Vérifie que tu as indiqué les bonnes informations

HwndConnect = InternetConnect(lngINet, "[URL="ftp://ftp.provider.fr/"][COLOR=red]ftp.Provider.fr[/COLOR][/URL]", 0, _
    "[COLOR=red]MonProfil[/COLOR]", "[COLOR=red]MotDePasse[/COLOR]", 1, 0, 0)

Bonne soirée
MichelXld

 

[fifi]

Re : Sauvegarder classeur sur FTP perso

je viens de vérifier tout est ok ...

mais je ne vois pas ou je peux mettre le port de communication?
par défaut c'est 21 chez moi.

est-ce que les dernieres variables du code
HwndConnect = InternetConnect(lngINet, "ftp.Provider.fr", 0, _
"MonProfil", "MotDePasse", 1, 0, 0)

ne pourraient correspondre au Port?

 

[fifi]

Re : Sauvegarder classeur sur FTP perso

ou peut etre faut que j'active une référence complémentaire spécifique?

 

[fifi]

Re : Sauvegarder classeur sur FTP perso

j'ai regardé le commentaire dans le code 😀 et effectivment le numéro du port est la variable juste après "ftp.provider.fr",


HwndConnect = InternetConnect(lngINet, "ftp.Provider.fr", 21, _
"MonProfil", "MotDePasse", 1, 0, 0)

mais bon cela ne marche toujours même si excel semble réfléchir un peu plus longtemps :

 

[fifi]

Re : Sauvegarder classeur sur FTP perso

OK OK NIKEL j'ai rien dit ca marche .
faut juste attendre un peu plus longtemps qu'en passant par un prog spéciale.
(Filzilla)

Un grand merci 😀

ca va vraiment me dépanner et facilité mon boulot.

à chaque fermeture de fichier ..hop sauvegardes sur le ftp.. du coup j'ai tous mes fichiers à disposition ou que je sois .

qu'est-ce que je ferai sans vous.

merci Michel (qui se dévoue souvent pour mes problémes)