XL 2019 Lien entre deux fichiers sur FTP

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
2 K
Réponses
2
Affichages
2 K
Réponses
1
Affichages
906
Compte Supprimé 979
C
Réponses
15
Affichages
2 K
Retour