Ouvrir un lien csv bien précis par macro

Option Explicit

Sub Tst()
Dim i As Long
Dim LastRow As Long, Ar() As String, d As Date

    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
       Ar = Split(Feuil1.Range("A" & i), " ")
       d = CDate(Ar(0) & "/" & Ar(1) & "/" & Ar(2))
       If d = Date Then Debug.Print "OK"
    Next i
End Sub

Function SaveWebBinary(strUrl, strFile) As Boolean
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const ForWriting = 2
Dim web, varByteArray, strData, strBuffer, lngCounter, ado, fs, ts
    On Error Resume Next
    'Download the file with any available object
    Err.Clear
    Set web = Nothing
    Set web = CreateObject("WinHttp.WinHttpRequest.5.1")
    If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest")
    If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP")
    If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP")
    web.Open "GET", strUrl, False
    web.Send
    If Err.Number <> 0 Then
        SaveWebBinary = False
        Set web = Nothing
        Exit Function
    End If
    If web.Status <> "200" Then
        SaveWebBinary = False
        Set web = Nothing
        Exit Function
    End If
    varByteArray = web.ResponseBody
    Set web = Nothing
    'Now save the file with any available method
    On Error Resume Next
    Set ado = Nothing
    Set ado = CreateObject("ADODB.Stream")
    If ado Is Nothing Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.OpenTextFile(strFile, ForWriting, True)
        strData = ""
        strBuffer = ""
        For lngCounter = 0 To UBound(varByteArray)
            ts.Write Chr(255 And AscB(MidB(varByteArray, lngCounter + 1, 1)))
        Next
        ts.Close
    Else
        ado.Type = adTypeBinary
        ado.Open
        ado.Write varByteArray
        ado.SaveToFile strFile, adSaveCreateOverWrite
        ado.Close
    End If
    SaveWebBinary = True
End Function

Sub Test()
Dim adressInternet As String, nomFichierInternet As String, pathFichierCopie As String, copieReussie As Boolean

    'adapter les variables suivante
    adressInternet = "http://www.ig.gmodules.com/"
    nomFichierInternet = "robots.txt"
    pathFichierCopie = "C:\tmpInternet.txt"
    
    'copier le fichier
    copieReussie = SaveWebBinary(adressInternet & nomFichierInternet, pathFichierCopie)
    
    If Not copieReussie Then MsgBox "Error lors de la copie du fichier"
    
End Sub

nomFichierInternet = "eon-france_prognose_" & Format(Now, "yyyymmdd") & ".csv"

Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean

Sub TestCopie()
Dim bConnexion As Boolean, bFtp As Boolean, bCopie As Boolean, sSite As String, sDossier As String, sLogin As String, sMdp As String, sFichier As String, sPathCopie As String
    
    'variables à adapter
    sSite = "ftp1.meteomedia.ch"
    sDossier = ""       'Apparemment, dans ton exemple, il faut laisser cette variable vide
    sLogin = ""         'Utilisateur
    sMdp = ""           'Mot de passe
    sFichier = "eon-france_prognose_" & Format(Now, "yyyymmdd") & ".csv"
    sPathCopie = "C:\" & sFichier
    
    'récupérer le fichier
    bConnexion = InternetOpen("", 1, "", "", 0)
    If bConnexion Then
        bFtp = InternetConnect(bConnexion, sSite, 21, sLogin, sMdp, 1, 0, 0)
        If FtpSetCurrentDirectory(bFtp, sDossier) Then
            bCopie = FtpGetFile(bFtp, sFichier, sPathCopie, False, 0, &H0, 0)
        End If
    End If
    If Not bCopie Then MsgBox "Erreur: le fichier n'a pas été copié."
End Sub