Tranfert de fichier vers un serveur FTP

la methode Transfertspreadsheet permet d'exporter une table vers un fichier Excel et de le sauvegarder à un endroit donné. J'aimerais que cette exportation se sauvegarde directement sur un serveur FTP.
Est ce possible et si oui comment?
Merci d'avance

Bonjour,

Regarde dans les sources Access : Envoi/réception de fichier sur un serveur FTP

Il faut bien sur adapter le code.

Exemple :
Tu copie le code (sauf la sub Sub Commande27_Click()) dans un nouveau module de code et tu y ajoutes cette Sub

Code:

---

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

Sub EnvoiVersFtp(Serveur As String, User As String, Pwd As String, _ FichierLocal As String, DossierFTP As String, FichierFTP As String) Dim HwndConnect As Long Dim HwndOpen As Long   'Ouvre internet HwndOpen = InternetOpen("SiteWeb", 0, vbNullString, vbNullString, 0)   'Connection au site ftp - On suppose que le n° de port est 21 HwndConnect = InternetConnect(HwndOpen, Serveur, 21, _ User, Pwd, 1, 0, 0)   'positionnement du curseur dans le répertoire FtpSetCurrentDirectory HwndConnect, DossierFTP   'Envoi du fichier FtpPutFile HwndConnect, FichierLocal, FichierFTP, &H0, 0   InternetCloseHandle HwndConnect 'Ferme la connection InternetCloseHandle HwndOpen 'Ferme internet End Sub

---

Exemple pour copier "D:\Documents and Settings\Toto\Mes documents\Image1.gif" vers "ftp://home.toto.fr/html/Pics/"

Code:

---

1 2 3

EnvoiVersFtp "home.toto.fr", "NomUtilisateur", "Mot-de-passe", _ "D:\Documents and Settings\Toto\Mes documents\Image1.gif", _ "html/Pics", "Image1.gif"

---

Arpès exportation de ta table en fichier Excel, tu transfères ce dernier sur le serveur Ftp avec la Sub EnvoiVersFtp.

A+

Merci beaucoup! c'est parfait