vba excel : insertion d image gif dans feuille excel

bonjour a tous,

j ai ecrit une petite macro qui insere dans les cellule de mon tableau les images de mon choix apres m avoir demandé via une inputbox le nom de celle que je veux inserer:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub image()   ' Dim reponse As String reponse = InputBox("nom de l image ?")   If reponse = "b2" Then ActiveCell.Select ActiveSheet.Pictures.Insert( _ "D:\DossierA\image\b2.gif").Select ElseIf reponse = "b1" Then ActiveCell.Select ActiveSheet.Pictures.Insert( _ "D:\DossierA\image\b1.gif").Select ElseIf reponse = "a025" Then ActiveCell.Select ActiveSheet.Pictures.Insert( _ "D:\DossierA\image\a025.gif").Select ElseIf......

---

Mon code est lourd et je repete autant de fois ElseIf que j ai d image.
je ne sais pas comment integrer la variable "reponse" dans l emplacement de l image

un truc du style:

ActiveCell.Select
ActiveSheet.Pictures.Insert( "D:\DossierA\image\reponse.gif").Select

me permettrait d eviter d ecrir 36 ElseIf
mais je sais pas comment integrer cette variable dans "le chemin de l image" :?

Comment vous faites dans ce cas la ? SVP

une simple concaténation de chaine ... du genre :

Code:

---

1 2 3

ActiveSheet.Pictures.Insert("D:\DossierA\image\" & reponse & ".gif")...

---

faudrai peu-être au préalable tester l'existence du fichier gif... par un DIR...

ok merci beaucoup

juste par curiosité est ce qu il existe une facon simple de coder que l insertion de ton image se face en plein milieu de ta cellule.

Dans mon cas je suis pas géné parceque meme si j ai plein d image differentes je n ai que 3 format differents different qui apparaisse ds le nom de mon image :
le nom de toutes les images au format 1 se termine par "2.gif", par "1.gif" au format 2 et "5.gif" au format 3
donc je m en sort avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub test() ' Dim reponse As String reponse = InputBox("nom de l image ?")   ActiveCell.Select ActiveSheet.Pictures.Insert( _ "C:\DossierA\Image\" & reponse & ".gif").Select Dim nom As String nom = "C:\DossierA\Image\" & reponse & ".gif" If Right(nom, 5) = "1.gif" Then With Selection .ShapeRange.IncrementTop 49.5 .ShapeRange.IncrementLeft 7.5 End With ElseIf Right(nom, 5) = "2.gif" Then With Selection .ShapeRange.IncrementTop 15 .ShapeRange.IncrementLeft 3 End With ElseIf Right(nom, 5) = "5.gif" Then With Selection .ShapeRange.IncrementLeft 15 .ShapeRange.IncrementTop 96 End With End If End Sub

---

mais si j avais eu plein de format differents j aurais eu du mal a tout centrer.

meilleurs veux, :D
chamus.

tiens pour centrer inspire toi de cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim c As Range Set c = ActiveCell Dim p As Picture Dim r As Double Set p = c.Parent.Pictures.Insert("dvp\a5-rap.gif") Debug.Print "bon maintenant il n'y as plus qu'as effectuer un petit calcul pour le centrage !!" Debug.Print c.Height & " x " & c.Width Debug.Print p.Height & " x " & p.Width r = (c.Width / 2) - (p.Width / 2) Debug.Print r If r > 0 Then p.ShapeRange.IncrementLeft r End If r = (c.Height / 2) - (p.Height / 2) Debug.Print r If r > 0 Then p.ShapeRange.IncrementTop r End If

---

Excellent !

vu l etat de mes connaissances il m en faut peut etre peu,
mais je trouve ce code génial bbil :lahola:

merci bcp