Discussion :

[geof65]

bonjour,

J'ai le code suivant dans le ThisWorkbook:

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
With Inet1
   ...
End With
End Sub

Ensuite j'ai coché la case "Microsoft Internet Transfer Control" dans composants.
Le problème est que j'ai une erreur "424", et que je ne voit pas comment ajouter l'objet INET ?!

merci

Je souhaiterai savoir en fait quel ligne de code est à ajouter pour aller lire la librairie INET.

[geof65]

Bonjour

J'ai ajouté le code suivant :

Code :

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

1
2
Dim Inet1 As Object
Set Inet1 = CreateObject("InetCtls.Inet.1")

Maintenant j'ai un problème d'erreur 429 :
"Un composant ActiveX ne peut pas créer l'objet ou fournir une référence à cet objet"

Je sais plus quoi faire, j'ai essayé de toucher aux références mais c'est toujours pareil ...

En gros je souhaite pourvoir récupérer automatiquement une liste de fichier situé sur un serveur FTP depuis windows.
Si vous avez une autre solution :s ?

merci

[mayekeul]

bonjour,

regarde ici

[geof65]

Bonjour,

Cela y est, Inet fonctionne enfin mais je n'arrive pas à faire ce que je voulais c'est à dire lister les fichiers d'un répertoire sur le serveur FTP

j'utilise la commande suivante mais il ne se passe rien, le fichier n'est pas créé

Code :

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

.Execute , "ls * V:\fichier.txt"

J'ai également testé avec

Code :

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

.Execute , "ls > V:\fichier.txt"

Pourtant en utilisant l'application ftp sous windows "ls * V:\fichier.txt" marche