Discussion :

[ARTETA13]

Bonjour,

Je vais travailler pour la 1ère fois avec en vba sue le téléchargement d'un fichier FTP vers mon disque local.
Je vous explique le contexte:
Je souhaiterai tous les jours télécharger un fichier csv publié sur un serveur FTP mais uniquement le dernier fichier publié.
Etape1 : se connecter à internet
Etape2: se connecter au serveur FTP (login + mot de passe)
Etape3: Sélection du dernier fichier publié
Etape4: transférer ce fichier sur mon disque C

J'ai pu lire sur internet qu'il était possible d'automatiser cela.


merci pour votre aide.

[Marc-L]

Bonjour,

un peu de lecture …

[ARTETA13]

Bonjour,
Voici mon code bien sûr, j'ai modifié le nom du serveur.
J'arrive bien à me connecter à internet mais pas au serveur FTP la valeur est 0.

Code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'-------------------
'Déclaration des API
'-------------------
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 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 FtpSetCurrentDirectory Lib "wininet.dll" Alias _
"FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, _
ByVal lpszDirectory As String) As Boolean
 
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hConnect As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Long, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByRef dwContext As Long) As Boolean
 
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
 
'Envoi et réception d'un fichier
Private Sub ftp()
Dim HwndConnect As Long
Dim HwndOpen As Long
'Ouvre internet
HwndOpen = InternetOpen("Microsoft Internet Explorer", 0, vbNullString, vbNullString, 0)
If HwndOpen = 0 Then
    MsgBox "connection internet impossible"
    Exit Sub
    End If
'Connection au site ftp
HwndConnect = InternetConnect(HwndOpen, "FTP.com", "21", "LOGIN", "PASSWORD", 1, 0, 0)
    If HwndConnect = 0 Then
    MsgBox "connection au site " & "FTP" & " impossible"
    Exit Sub
    End If
MsgBox HwndConnect
'positionnement du curseur dans le répertoire
 
FtpSetCurrentDirectory HwndConnect, "ftp.com"
 'Téléchargement
FtpGetFile HwndConnect, "Fichier1", "Fichier2", _
  False, 0, &H0, 0
 
InternetCloseHandle HwndConnect 'Ferme la connection
InternetCloseHandle HwndOpen 'Ferme internet
 
End Sub