Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Function GetStringSourceFromOnlineFile(ByVal sUrl As String) As String
' récupère un nom de fichier temporaire
Dim sTempDest As String
sTempDest = GetUniqueTempFileName ' http://www.codyx.org/snippet_generer-nom-fichier-temporaire-unique_619.aspx#1876
' télécharge la page
If URLDownloadToFile(0&, sUrl, sTempDest, 0&, 0&) = 0 Then
' on lit le fichier
Dim FF As Integer
FF = FreeFile
Open sTempDest For Input As #FF
GetStringSourceFromOnlineFile = Input(LOF(FF), 1)
Close #FF
' supprime le fichier temp
Call DeleteFile(sTempDest)
End If
End Function