Discussion :

[atk_49]

Bonjour,

J'utilise depuis plusieurs mois une fonction trouvée dans la FAQ Access pour envoyer un fichier sur un FTP rapidement.

Tout fonctionnait parfaitement jusqu'à ce que je change de connexion internet (changement d'opérateur). Désormais le code s’exécute sans erreur mais le fichier n'est pas envoyé sur le FTP.

Je ne remets pas en cause le code et je pense vraiment que c'est le changement de connexion qui est à l'origine du problème.
J'aimerais savoir si à tout hasard quelqu'un aurait déjà rencontré ce problème.

Merci d'avance.

[atk_49]

J'ai résolu le problème en utilisant le code suivant :

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