[VBA-E] Inserer une image dans une cellule

Comment fait on pour inserer une image dans une cellule précise d'excel?
Et surtout apres, pour redimensionner la cellule à la taille de l'image?

Voila mon code pour aller chercher l'image:

Merci d'avance pour vos réponse.

Code:

---

1 2 3 4 5 6 7

Private Sub bouton_titre1_Click() Dim image As String image = Application.GetOpenFilename If image <> "Faux" Then Shapes.AddPicture image, True, True, 100, 122, 330, 246 End If End Sub

---

bonsoir

tu peux tester cet exemple pour la premiere partie de ta question:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub bouton_titre1_Click() Dim Image As Variant Dim L As Single, T As Single, W As Single, H As Single   L = Range("B2").Left T = Range("B2").Top W = Range("B2").Width H = Range("B2").Height   Image = Application.GetOpenFilename If Image <> False Then Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H End If End Sub

---

michel

Merci por cette aide, votre forum est super, les réponses sont rapides et completes.