XL 2019 Lien entre deux fichiers sur FTP

Rom68

XLDnaute Nouveau
Bonjour,

Voici mon problème:

Je dispose de deux fichiers sur FTP. Quand j'ouvre un des fichiers je souhaiterais qu'il aille récupérer automatiquement les données mises à jour sur un autre fichier FTP sans avoir besoin de l'ouvrir.
Je suis arrivé à générer un code VBA pour l'ouverture, mise à jour des données et fermeture en local mais impossible de trouver le code pour la récupération des données sur FTP.

Voici le code que j'essaie d'utiliser:
Sub ThisWorkbook()
Dim HwndConnect As Long
Dim HwndOpen As Long
HwndOpen = InternetOpen("SiteWeb", 0, vbNullString, vbNullString, 0)
HwndConnect = InternetConnect(HwndOpen, "<ftp.toile-libre.org>", "", _
"<wdi>", "<521aet>", 1, 0, 0)
FtpSetCurrentDirectory HwndConnect, "/sandboxwd/wdrepository.toile-libre.org-web/htdocs"
With ThisWorkbook

Workbooks.Open ("BDD clients.xlsm")
Set WbkS = ActiveWorkbook
ActiveWorkbook.RefreshAll
WbkS.Close False
End With

InternetCloseHandle HwndConnect
InternetCloseHandle HwndOpen
End Sub

Je planche dessus depuis plusieurs semaines mais je crois qu’à mon niveau je ne trouverais pas de solution ?

D'avance merci beaucoup pour votre aide.

Rom68
 

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées