chemin d'un fichier dans une formule XL

[bigjer]

Bonjour,
Help,
J'ai fait cette petite macro mais celle ci ne fonctionne pas :

Sub Macro1()
Dim Fichier As String
Fichier = Application.GetOpenFilename('Fichier Image (*.jpg),*.jpg')
ActiveCell.FormulaR1C1 = '=HYPERLINK(Chemin/image.jpg,''image'')'
End Sub

j'aimerai qu'il y est à la place de 'chemin/image.jpg' de la formule hyperlink, le chemin du fichier qui a été extrait au dessus.

 

[Creepy]

Bonjour le Forum, Bigjer,

Mauvaise utilisation de Hyperlink.

Plutôt que d'utiliser la formule excel, utilise la fonction VBA !

Private Sub CommandButton1_Click()

Dim Fichier As String

Fichier = Application.GetOpenFilename('Fichier Image (*.jpg),*.jpg')
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=Fichier, TextToDisplay:='Image'

End Sub

@+

Creepy

 

[bigjer]

Je viens d'essayer et ça marche impeccable.
Je vous remercie