1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Declare PtrSafe 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
Declare PtrSafe 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
Declare PtrSafe Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Declare PtrSafe Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Declare PtrSafe Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Sub FTP()
Dim HwndOpen As Long
Dim HwndConnect As Long
HwndOpen = InternetOpen("PutFtpFile", 1, "", "", 0)
HwndConnect = InternetConnect(HwndOpen, "ftp.siteweb.net", 21, "login", "password", 1, &H8000000, 0)
FtpSetCurrentDirectory HwndConnect, "/www" 'Répertoire de destination
FtpPutFile HwndConnect, ThisWorkbook.Path & "\users.csv", "users.csv", &H2, 0 'Fichier à transférer
InternetCloseHandle HwndConnect
InternetCloseHandle HwndOpen
End Sub |
