Macro permettant d'associé un lien hypertexte à une image

[tchangy71]

Bonjour,

Comme d'hab. je galère pour pas grand chose ! Mais en même temps je ne suis pas sûr que cela puisse être réalisable !!

Enfin,

Voila j'aimerai pouvoir créer une macro qui m'associe un lien hypertexte à une image.
Cette dernière étant automatiquement insérer par macro (image au format jpg).

Mon code actuel (qui ne fonctionne pas bien sûr) :
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Workbooks("Dernier_niveau_arborescence.xlsm").Sheets("donnees").Range("B3")

Si quelqu'un as une idée je suis plus que preneur !

merci d'avance,

Cordialement,

Philippe

 

[tchangy71]

Re : Macro permettant d'associé un lien hypertexte à une image

Si ca intéresse quelqu'un :
Sub icones_accueil_abords()
Dim LeTruc As Shape, FL1 As Worksheet
Set FL1 = ActiveSheet
FL1.Pictures.Insert "C:\DEV_EXCEL\Fichier_source\Icones\erp\abords\accueil_abords.jpg" 'image à insérer
Set LeTruc = FL1.Shapes(FL1.Shapes.Count)
FL1.Hyperlinks.Add Anchor:=LeTruc, Address:=Workbooks("Dernier_niveau_arborescence.xlsm").Sheets("donnees").Range("B3") 'localisation de l'adresse du lien hypertexte
End Sub

Cordialement,

Philippe