Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim URL As String Dim Fichier As String Dim FichierNb As Integer On Error Resume Next URL = "http://www.monsite.com/image.png" Fichier = App.Path & "\image.jpg" With web .AccessType = icUseDefault .protocol = icHTTP Bytes = .OpenURL(URL, icByteArray) Do Until .StillExecuting = False DoEvents Loop End With FichierNb = FreeFile Open Fichier For Binary Access Write As FichierNb Put #FichierNb, , Bytes() Close FichierNb carte2.Picture = LoadPicture(Fichier)