Salut Michel, le forum
Bizarre cette histoire...
Mais comme chez toi, çà marche...j'ai donc un espoir de réussite.
Si tu pouvais me renseigner sur les 2 codes, peut-être pourrais-je cerner un peu mieux le problème.
Dans le 1er code, là où çà plante, je me suis apperçu que le début du téléchargement avait bien commencé, car dans mon dossier 'arrivée', les fichiers sont bien là, mais ils sont vides (0 ko).
Quand au 2ème code, j'aimerai bien que tu vérifies l'état de DownloadFile dans la procédure:
Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, sURL, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function
Chez moi, DownloadFile est égal à 'faux'. C'est un signe...qui pourrait attirer mon attention sur les références actives... dans ce cas, je pourrais te lister les 'actives' et tu trouverais peut-être celle(s) qui me manque(nt).
Merci encore Michel