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
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
