Vba telecharger fichier sur ftp (résolu)

[eideal44]

Bonjour,
J'aimerais en cliquant sur un bouton pouvoir télécharger un fichier sur un serveur ftp.
Qu'il me l'ouvre et qu'il colle les données dans un autre fichier.
J'ai commencé à coder du VBA mais je trouve mon code un peu archaïque.
J'ai lu pleins de messages sur le sujet mais je n'arrive pas à appliquer les différents codes à mon fichier.
Auriez vous une idée pour améliorer mon code?

J'ai écris :

'********************************************************************************************
'FONCTION : ATTENDRE CHARGEMENT COMPLET DE LA PAGE INTERNET
Public Function WaitIE(IE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean
Dim lTimer As Double
lTimer = Timer
Do
    DoEvents
   If IE.readyState = READYSTATE_COMPLETE And Not IE.Busy Then Exit Do
   If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
       WaitIE = True
       Exit Do
   End If
Loop
End Function
'********************************************************************************************

'*******************************************************************************************
'RECUPERER LE FICHIER SUR LE FTP
Sub FTP_Click()
Set IE = CreateObject("InternetExplorer.application")

Dim IP, Login, MOT_DE_PASSE
Dim FLUX1 As Workbook, FLUX2 As Workbook, DERLIGNE

    'VIDER LES LIGNES
    For I = 9 To Range("I65536").End(xlUp).Row
        Rows(I).Interior.ColorIndex = 0
        Rows(I).MergeCells = False
        Rows(I).Locked = False
        Rows(I).Clear
    Next I

'ACCES :
IP = "000.000.000.00"
Login = "ftptrucmachin"
MOT_DE_PASSE = "00000000"

'définir le 1er fichier
Set FLUX1 = ActiveWorkbook

        With IE
            .Visible = True
            .navigate "ftp://" & Login & ":" & MOT_DE_PASSE & "@" & IP & "/export_produit_non_traites-20120919.csv"
            
            'attendre 2 secondes
            Application.Wait Now + TimeValue("0:00:02")
            
            'cliquer sur entrée
            SendKeys "{enter}"
 
            Application.Wait Now + TimeValue("0:00:15")

        End With

End Sub
'*******************************************************************************************

D'avance merci

Eideal44

 

[MJ13]

Re : Vba telecharger fichier sur ftp

Bonjour Eideal

Tu peux aller voir sur ce site:

Tlchargement de fichiers par VBA

 

[eideal44]

Re : Vba telecharger fichier sur ftp

merci MJ13, je vais lire tout cela