Discussion :

[diombo]

Bonjour,
Je cherche a récupérer en vba des images à partir d'une liste d'adresse web du genre https://monsite.com/images/e879b056-...90323495cb.jpg et de les afficher sur un formulaire access. le tout en vba.
Par avance, je vous remercie.

[jimbolion]

diombo

une première technique ici :

http://www.developpez.net/forums/d25...rer-image-web/

et une deuxième technique ici utilisant l'Api google

http://www.developpez.net/forums/d12...-l-api-google/

Au passage une lecture complète de ce document qui mérite plus qu'un détour :

http://arkham46.developpez.com/artic...ice/officeweb/

jimbolion

[diombo]

Bonjour,
Effectivement j'ai le même soucis que dans le premier lien.
J'ai suivi la méthode et j'arrive à récupérer l'image sur mon pc. Par contre en essayant d'afficher l'image dans une fenetre sans enregistrer l'image au préalable j'ai quelque soucis.
J'utilise les commandes suivantes:

Code :

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

Private WithEvents oNav As SHDocVw.InternetExplorer

et dans un événement form_load

Code :

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

1
2
3
4
 
Dim oNav As SHDocVw.InternetExplorer
Set oNav = Me.ctlNav.Object
oNav.Navigate "https://monsite.com/images/b145de0f-bfed-4ec9-ac46-2846a7d6c994.jpg"

où ctlNav est le contrôle webbroser.
Cordialement,

[jimbolion]

diombo,

une fois l'image récupérée sur ton pc, pourquoi ne pas l'afficher directement dans un contrôle image ? Rien ne prouve que l'Url passée est disponible côté serveur.

jimbolion

[diombo]

Bonjour,
C'est ce que j'ai fait dans un premier temps et ça marche bien!
l'application devant être partagée, il faut que les images soient dans un répertoire distant.
Pour cela soit je récupère et je transfert sur un répertoire en ftp, soit je les affiche directement sur le formulaire. Ce n'est pas grave si le lien n'existe plus.
Diombo

[jimbolion]

Diombo

je ne vois pas ton souci car sur clic d'un bouton (un exemple), rien n'empêches l'affichage d'une image dans ton navigateur

Code :

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

1
2
3
4
5
Private Sub Commande2_Click()
    Dim Monlien As String
    Monlien = "http://wowslider.com/sliders/demo-17/data1/images/cars_wallpapers_51.jpg"
    Me.ctlNav.Object.Navigate Monlien
End Sub

que se passe t'il en passant l'url de google par exemple

jimbolion

[diombo]

Bonjour,
Ca marche parfaitement. Au fait j'avais oublié la propriété "object" dans mon instruction.
Cordialement,

[jimbolion]

Diombo,

effectivement je n'ai pas pris le temps de scruter attentivement tes lignes de code

jimbolion