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 :
D'avance merci
Eideal44
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 :
Code:
'********************************************************************************************
'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
Dernière édition: