Discussion :

[Molem]

Bonjour à tous,
Peut-être pouvez-vous m'aider à résoudre mon problème, je vous en remercie à l'avance.

Voici : dans une table Access, j'ai une adresse sur le net (ex. http://phototheque/123.jpg) et je désire accéder à cette adresse, et afficher l'image qui s'y trouve dans un contrôle Image.

Si plus de renseignements sont nécessaires, veuillez m'en faire part.

Merci.

[ClaudeLELOUP]

Bonjour,
tu pourrais, par exemple utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell("C:\WINDOWS\EXPLORER.EXE " & "http://phototheque/123.jpg", vbNormalFocus)

qui équivaut à un double-clic sur le nom d'un fichier ou un raccourci pour provoquer son ouverture avec le programme qui lui est associé.

[mumen]

Voici : dans une table Access, j'ai une adresse sur le net (ex. http://phototheque/123.jpg) et je désire accéder à cette adresse, et afficher l'image qui s'y trouve dans un contrôle Image.

Tu peux télécharger le contenu d'une page html à l'aide de de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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
Public Function DownloadFile(url As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
 
    lngRetVal = URLDownloadToFile(0, url, LocalFilename, 0, 0)
    If lngRetVal = 0 Then
        DownloadFile = True
    Else
        MsgBox "Erreur en DownloadFile sur " & url & " " & LocalFilename
    End If
End Function

Dés lors, tu n'a plus qu'à passer ton adresse url et un fichier temporaire à la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DownloadFile "http://www.developpez.net/forums/images/smilies/ccool.gif", CurrentProject.Path & "\Test.jpg"

[Molem]

Bonjour,

Je vous remercie pour les solutions que vous me proposez, je vais tester le tout.

Bonne journée !

[Molem]

Tout fonctionne très bien, merci encore !