Insérer une image avec lien d'une cellule dans excel

Question

Je voudrait que quand je change le texte dans la cellules exemples A1 il soit associer a l'image a inserer, voici ma commande 
Private Sub Image1_Click()
Image1.Picture = LoadPicture("C:\WINDOWS\Desktop\1.gif")

End Sub
Qu'est ce que je dois rajouter pour que la fichier 1.gif soit changer de nom avec le lien de la cellule A1 automatiquement quand je presse ma commande merci a l'avance 
p.s. je suis un debutant je ne connait pas tout les code

orion · Answer

si la cellule a1 est dans la feuille "feuil1":
temp="C:\WINDOWS\Desktop" & sheets("feuil1").range("a1")
Image1.Picture = LoadPicture(temp)

fredos15 · Answer

je l'ai essayer mais un bug se produit su la deuxieme ligne
image.1Picture = loadpicture(temp)

orion · Answer

si ton image est stocke dans:
C:\WINDOWS\Desktop\
dans a1 tu as :     1.gif

alors tu verifie en faisant msgbox(temp)
que temp=C:\WINDOWS\Desktop\1.gif
si oui alors
Image1.Picture = LoadPicture(temp)
doit marcher si image1 est bien le nom de ta zoe image peut etre doit tu rajouter le nom de ton userform
ex userform1.image1.picture=........

ps:si tu as ecrit  image.1Picture  c'est normal que ça marche pas.

fredos15 · Answer

merci je que j'avais oublier c'est de declarer ma dim temp dans ma commande

Insérer une image avec lien d'une cellule dans excel

4 réponses

Discussions similaires