Discussion :

[tedparker]

Bonjour,

tout d'abord une toute petite question. Comment récupérer la valeur ou les valeurs d'une zone de liste non modifiable (.Value ca marche pas) ?

Ma vraie question c'est comment accéder à un FTP via le VBA d'ACCESS ?
J'ai trouvé une API (http://access.developpez.com/sources...hiers#EnvoiFTP) et voici la fonction que j'utilise :

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
 
Dim HwndConnect As Long
Dim HwndOpen As Long
'Ouvre internet
HwndOpen = InternetOpen("www.google.fr", 0, vbNullString, vbNullString, 0)
MsgBox HwndOpen
'Connection au site ftp
HwndConnect = InternetConnect(HwndOpen, ftp://xxx.xxx.xxx.xxx, 21, "anonymous", "nom-prenom", 1, 0, 0)
MsgBox HwndConnect
'positionnement du curseur dans le répertoire
FtpSetCurrentDirectory HwndConnect, "Rep1/Rep2"
 'Téléchargement 
FtpGetFile HwndConnect, "Fichier1", "P:\Fichier2", _
  False, 0, &H0, 0
 
InternetCloseHandle HwndConnect 'Ferme la connection
InternetCloseHandle HwndOpen 'Ferme internet
 
End Sub

Aucune erreur ne se déclare.

HwndOpen vaut 13369348 et HwndConnect vaut 0

Que faire ? Jsui super bloqué svp

[FreeAccess]

Bonjour,
Premièrement, il est toujours bon de faire un petit tour dans la
Ici, tu trouvera une réponse à ta première question:
http://access.developpez.com/faq/?pa...#ListBoxColumn

Sinon pour ton problème de FTP, fais une recherche sur les anciens messages il y a de nombreux posts qui en parlent.
Bonne continuation.

[Tofalu]

A priori, la connxion échoue

D'une part, il serait bonde faire le Open avec le même site que le connect.
Ensuite, le serveur accepte t'il les accès anonymous ?

[tedparker]

Ouais non ça marche toujours pas même si jmets ce même FTP ds le Open.
J'ai effectivement trouvé plein d'API sur le site mais toutes issues du même source. C'est donc celle ci que j'ai reprise et j'ai juste changé les variables pour adapter mais ça marche pas.
Help !!

[tedparker]

Le FTP accepte bien les connexions anonymes.
En effet quand jy accède par l'explorateur, il est indiqué en bas "Utilisateur : Anonyme".

Ce que je ne sais pas c'est comment exactement remplir le champ du mot de passe ?

[Arkham46]

slt,

essaye sans le "ftp://" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HwndConnect = InternetConnect(HwndOpen, "xxx.xxx.xxx.xxx", 21, "anonymous", "nom-prenom", 1, 0, 0)

sinon essaye en mode passif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
HwndConnect = InternetConnect(HwndOpen, "xxx.xxx.xxx.xxx", 21, "anonymous", "nom-prenom", 1, &H8000000, 0)
'

[tedparker]

C'est bon c'est résolu.
Faut juste ne pas mettre ftp:\\ et mettre direct l'adresse IP
Merci quand meme

[micniv]

Merci quand meme

pourquoi : ... quand meme ?
(et la soluce d'Arkham c'était FTP:// pas \\ )

Bonne journée ... quand même