XL 2016 Liste des fichiers sur Ftp

[johnpeter]

Bonjour à tous, Je reviens vers vous car depuis des semaines je cherche le moyen de lister sur une feuil avec leurs caractéristiques les fichiers que je gère avec FileZilla. C'est très important car chaque fois que je fais une modification sur un fichier je voudrais installer sur les autres postes une macro permettant chaque matin de comparer et de télécharger les nouveaux. Je sais envoyer les fichiers sur le Ftp par macro mais impossible de trouver comment lister. Un immense merci d'avance

 

[danielco]

Bonjour,

Je ne pense pas que soit possible directement. Il faut télécharger les classeurs, puis les ouvrir.

Cordialement.

Daniel

 

[johnpeter]

Merci pour cette réponse. C'est ce que j'ai tenté de faire mais compte tenu du nombre de classeurs ce n'est pas fiable. J'ai vu des publications proposant des solutions mais je ne suis pas arrivé à les mettre en application...

 

[johnpeter]

Qui à la solution ? C'est important et je vous en serai reconnaissant, Merci à tous

 

[danielco]

J'ai vu des publications proposant des solutions

Poste ces publications.

Daniel

 

[Staple1600]

Bonjour le fil,

Test OK (sur le ftp de test du code ci-dessous glané sur le net après deux, trois minutes sur G..gle)
(j'ai juste adapté pour avoir le résulat dans la feuille active en colonne A)
(testé sur W10 avec Excel 2013)

Option Explicit

' Requires references to Microsoft Shell Controls and Automation
Public Sub Example_Bis()
    Dim myFolderItem As FolderItem
    Dim i&
    i = 1
    For Each myFolderItem In ftpList("speedtest.tele2.net/upload", "anonymous", "anonymous") ' username: anonymous, password: anonymous
        'Debug.Print myFolderItem.Name, myFolderItem.IsFolder ' demo
        Cells(i, 1) = myFolderItem.Name
        i = i + 1
    Next
End Sub

' Returns a FolderItems collection from the FTP server
Private Function ftpList(strFTPlocation As String, Optional strUser As String, Optional strPassword As String) As FolderItems
    Dim myShell As New Shell
    Dim strConnect As String
    
    If strUser <> "" Then strConnect = strUser & ":" & strPassword & "@"
    Set ftpList = myShell.Namespace("FTP://" & strConnect & strFTPlocation).Items '("ftp://user:password@ftp.site.com")
End Function

 

[johnpeter]

Bonjour et Merci, j'ai honte ! J'ai tellement cherché sur les forums... Par contre si je me débrouille pas trop mal en vba je suis absolument nul en ce qui concerne Microsoft. J'ai bien activé "Microsoft Shell Controls and Automation" (il faudra que je trouve une macro qui l'active sur les PC) J'ai modifié votre code : For Each myFolderItem In ftpList("speedtest.monsite.com/web/top_20/upload", "monsite_monsite", "monpass") et si votre exemple fonctionne bien le mien ne donne rien ! (j'ai mis mon site parceque nous somme en public sinon je vous aurai donné le réel bien volontiers)

 

[Staple1600]

Re

Tout ce que je peux dire, c'est qu'avec le serveur FTP dans l'exemple que j'ai posté, le code VBA fonctionne
Je ne vois pas pourquoi tu as laissé speedtest dans ta modif
Imaginons que l'URL de ton serveur réél est: ftp://monserveurftp.com/mondossier
alors la syntaxe sera:
For Each myFolderItem In ftpList("monserveurftp.com/mondossier", "login", "motdepasse")

Sinon tester en suivant la même logique explicitée ci-dessous

Configurer l’accès FTP anonyme

Si vous hébergez votre site sur une adresse IP dédiée (non partagée par d’autres utilisateurs ou sites), vous pouvez ...

docs.plesk.com

(En résumé, configure ton serveur FTP avec un accès anonyme)

 

[johnpeter]

Lapin crétin je suis lol existe t'il un moyen de vous envoyer mon fichier en privé ?

 

[Staple1600]

Re

Quel fichier tu veux envoyer?
Et pourquoi faire?
La question était: Je sais envoyer les fichiers sur le Ftp par macro mais impossible de trouver comment les lister
Et cette question n'en est plus une depuis la publication du message#6

PS1: Nous sommes sur un forum, entre autres pour le partage des connaissances entre tous les membres.
Pas pour faire du peer-to peer (en tout cas je n'en fais point)

PS2: Puisque je suis membre du forum, j'essaie de suivre la charte du forum.
Notamment au niveau des données confidentielles. (cf RGPD)
Donc logiquement, si tu ne publies pas un fichier "sensible" sur un forum pour respecter sa charte, tu ne l'envoies pas non plus par mail au premier gugusse qui passe par là et dont tu ignores tout

NB: le premier gugusse qui passe, c'est de moi qu'il s'agit
Je voudrais pas fâcher les autres

 

[johnpeter]

Pardon, désolé, merci pour la leçon. Voici un essai sur un Ftp sans importance en pj

 

[Staple1600]

Re

J'ai d'abord essayé en manuel, et j'obtiens ceci
(en saisissant le login et mot de passe fourni)
Et j'obtiens ceci

Ce site est inaccessible
Il se peut que la page Web à l’adresse ftp://barros-galerie.com/TARIFS2018 soit temporairement inaccessible ou qu'elle ait été déplacée de façon permanente à une autre adresse Web.
ERR_FTP_FAILED

 

[johnpeter]

Avec
Index de ftp://barros-galerie.com/web/TARIFS2018/
ca marche

 

[johnpeter]

je veux dire en manuel

 

[Staple1600]

Re

Inutile d'écrire gros...
Et cela ne fonctionne pas chez moi
Mais si cela fonctionne chez toi, tout était déjà dit dans le message#8...