Photo sur excel qui s'affiche en chemin d'accès

'Option Explicit
Dim image, nomimage As String
Dim a, c, position
Sub Insererimage()
On Error Resume Next
ImportImage
ActiveSheet.Hyperlinks.Add anchor:=Selection.ShapeRange.Item(1), Address:= _
"", SubAddress:="Feuil2!" & position
End Sub

Sub ImportImage()
image = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg")
If image <> False Then
a = Split(image, "\")
nomimage = a(UBound(a))
Set c = Range("B7")
With ActiveSheet
.Shapes(c).Delete
.Pictures.Insert(image).Name = nomimage
.Shapes(nomimage).LockAspectRatio = msoFalse
.Shapes(nomimage).Height = c.Height
.Shapes(nomimage).Width = c.Width
.Shapes(nomimage).Left = c.Left
.Shapes(nomimage).Top = c.Top
.Shapes(nomimage).Select
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
position = Target.Address
End Sub

voici la macro (écrit par un internaute(cspivert)). Le but c'était de pouvoir insérer une photo qui a les mêmes dimensions qu'une cellule. Mais lorsque je l'envoie à un tiers il affiche que les liens.
http://www.cjoint.com/c/EGyollqG6EW lien vers le fichier

Merci pour ces informations. Mais je pense qu'on s'est cependant pas compris. L'image s'insère très bien comme vous le dites. Copier le fichier sur une clé après avoir insérer une image et essayer de l'ouvrir sur une autre machine. dans la case où la photo doit se trouver indique le chemin d'accès de la photo sur ton ancien ordinateur. Par conséquent la photo ne s'affiche pas. Comme solution il faut créer un dossier y mettre la table excel ainsi que les photos pour qu'une autre personne puisse voir les photos sur un poste différent que le mien. C'est cette solution un peu archaïque que j'aimerais éviter.