Discussion :

[Jacques Marty]

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

[LedZeppII]

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

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

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

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+

[Jacques Marty]

Merci beaucoup! c'est parfait