Récupérer Image d'un USF

Bonjour,

Je voudrais récupérer dans un USF (ou connaître l'adresse) une image pour l'insérer dans une feuille Excel (ou l'insérer ailleurs).
Détail : Dans un USF j'ai une image nommé "Image1" que je voudrais copier dans un corps d'un mail que j'ai créer par MACRO.

Code:

---

1 2 3 4 5 6 7 8 9 10

With objMail.CreateItem(0) .From = "" .To = "" .CC = "" .BCC = "" .Subject = "Test" .HTMLBody = "<img src=" &l'adresse de l'image de l'USF .Display End With End Sub

---

Pouvez-vous m'aider SVP ?

Bien Cdt

Bonjour
quand tu met une image dans un control image ou userform c'est un bitmap de l'image et non le lien
il te faut la sauvegarder ou memoriser le lien quand tu la met dynamiquement
d'autant plus que dans le html tu ne peut pas mettre le lien de ton disque dur dans le src dans le body

Code:

---

1 2 3 4 5

'si l'image est dans le userform directement 'SavePicture Me.Picture, Environ("userprofile") & "\DeskTop\" & "imgtemp.jpg"   'si l'image est dans un controls image du userform SavePicture Me.Image1.Picture, Environ("userprofile") & "\DeskTop\" & "imgtemp.jpg"

---

il ne te reste plaus qu'a envoiyer la photo en piece jointe et dans le src de l'"<img>" tu met le lien de la piece jointe
tu a divers exemple sur le forum complet et fonctionnels pour outlook ou CDO

Code:

---

1 2 3 4 5 6 7 8

With objMail.CreateItem(0) .From = "" .To = "" .CC = "" .BCC = "" .Subject = "Test" .HTMLBody = "<img src=" & lien de la photo en piece jointe et non !!!!!! celle du disque dur ou elle se trouve .Display End With End Sub

---