Discussion :

[DenisHen]

Bonjour à tous,

Voilà, je me lance dans l'envoi de fichiers via une connexion FTP "simple", en "anonymous"...

J'ai essayé http://access.developpez.com/sources...hiers#EnvoiFTP mais absolument rien ne se passe, même pas un petit temps d'attente entre deux commandes avec le mode "pas à pas détaillé (F8)"...

J'ai, dans explorer le lien : "ftp://chrome:MotDePasse@AdresseIP" qui fonctionne parfaitement.

Je cherche comment faire pour envoyer des fichiers en FTP directement depuis VBA...

Si une bonne âme charitable a déjà plancher la-dessus et peut nous en faire profiter...

Merci à vous,

Denis...

[Marc-L]

Bonjour,

en dehors des recherches dans les discussions de ce forum,

consulter aussi ce tutoriel : VBA et développement Web …



__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[DenisHen]

Merci Marc-L pour l'aide,
J'ai maintenant ce code qui a l'air d'ouvrir une connexion puisqu'il ne me sort pas d'erreur :

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
Private Declare Function InternetOpen Lib "wininet" 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 InternetConnect Lib "wininet" 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 InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long
Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" _
        (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, _
         ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_SERVICE_FTP = 3
Private Const INTERNET_INVALID_PORT_NUMBER = 0

Sub ConnectFTP()
Dim hOpen As Long, hConnect As Long
hOpen = InternetOpen("SiteHTTP", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hOpen <> 0 Then
   hConnect = InternetConnect(hOpen, "ftp://chrome:MotDePasse@AdresseIP", INTERNET_INVALID_PORT_NUMBER, vbNullString, vbNullString, INTERNET_SERVICE_FTP, 0, 0)
   If hConnect <> 0 Then
       InternetCloseHandle hConnect
       hInternetFile = InternetOpenUrl(hOpen, "ftp://chrome:MotDePasse@AdresseIP/Auvergne/Test.txt", vbNullString, 0, 0, 0)
   End If
   InternetCloseHandle hOpen
End If
End Sub

Mais dans le lien du post, les méthodes n'expliquent pas comment envoyer un fichier entier (test.txt par exemple), elles montrent comment envoyer le nom d'utilisateur, le mot de passe... Bref, elles dialoguent avec le serveur, mais pas d'échanges de "données". Ou alors je n'ai rien compris.

Plus loin, dans le chapitre "X-L-2. Connexion à un serveur avec proxy", il est expliquer des envois par "paquets"...

Est-ce la seule solution pour communiquer par FTP ? Y a-t-il une commande "SendFile" ou autre dans le FTP ?

Merci en tout cas pour les liens...

Denis...

[kiki29]

Salut, une recherche de plus sur ce forum ? ou via gog ?

[DenisHen]

Bonjour, et merci à tous pour vos aides...

Je vais voir ça ce soir chez moi si j'ai un peu de temps (enfin, beaucoup), car depuis le poste du boulo, je n'ai pas accès au serveur FTP de la même manière que depuis l'extérieur de réseau. Les IP changes.

Ne me demandez pas pourquoi, je l'ignore complètement...

Encore merci...

Denis...