Bonsoir
Je sais récupérer un fichier sur internet si les données Internet sont sur un fichier dont tu connais l'adresse (Pas seulement le nom de la page web)
Regarde si cela peut t'aider
Ci-après un Code de Joss testé sur un fichier et enregistré sur le répertoire indiqué (à modifier)
Ouvre une page web et l'enregistre dans un nouveau classeur
Testé personnellement sur cette page de l'Insee. Fonctionne 100%
Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long
Sub OuvreHTM()
InternetAutodial 1, 0
On Error Resume Next
Workbooks.OpenText " http://www.insee.fr/fr/methodes/nomenclatures/cpf2008/coefficients_de_raccord.xls", xlWindows, _
1, xlDelimited, ConsecutiveDelimiter:=False, Tab:=True
If Err Then MsgBox Err.Description: Exit Sub
On Error GoTo 0
ChDir " D:\Mes documents\...\Forum Excel\2_En recherche" 'a modifier
ActiveWorkbook.SaveAs Filename:="lapage.xls"
End Sub
Cordialement