Insérer une image via une adresse http

Bonjour à tous,

j'esssaye d'insérer une image par code VBA mais je n'y arrive pas .
Mon image est en adresse http://blabla/image.png (c'est une image png)

Le code suivant ne focntionne pas:

Code:

---

1 2 3

Range("F3" ).Select ActiveSheet.Pictures.Insert ("http://lesite/image/monimage.png" )

---

Comment faire
merci

Et comme ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub insetimage() Range("F3" ).Select ActiveSheet.Pictures.Insert(" http://blabla/image.png").Select   With Selection.ShapeRange .Left = ActiveCell.Left .Top = ActiveCell.Top End With   End Sub

---

bonsoir

Citation:

---

Le code suivant ne focntionne pas:

---

Utilises tu Excel 2007 ?

Pourquoi Pictures.Insert ne fonctionne plus sous Excel 2007


bonne soirée
michel

Oui je suis sous Excel 2007

Cela ne focntionne pas mieux avec ce nouveau code

Pourtant quand je testes Depuis les commandes des menus Insérer une image et que je mets en http: cela focntionne mais j'arrive pas à récupérer le code qui se cache derrière.

Merci pour votre aide

Bonjour,

Je viens de tester et le code fonctionne pourtant bien.
Teste ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim strImage As String Dim Sh As Shape   Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 50, 50, 150, 150)   strImage = "http://samuel.bizien.info/fractales/f_vrier_2007/flocon_png.png" Sh.Fill.UserPicture strImage   End Sub

---

ce code fonctionne

merci beaucoup

je vais vérifier plus en détails dès que j'ai un moment

Merci en tout cas