Discussion :

[tibofo]

Bonjour,

J'ai utilisé ce code trouvé dans un post sur ce forum :

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+

J'ai fait des tests avec un fichier test txt de 5 Ko : tout se passe bien

Qd je le lance avec mon fichier réel (un zip de 4800 Ko), je ne reçois que 1 Ko

Auriez-vous une idée ?

P.S: j'ai testé en commande DOS : et je reçois tout.

Merci

[tibofo]

Grosse erreur de répertoire de ma part et présence d'un fichier homonyme....

Laissez tomber ce post

Merci
Thibault