chemin d'un fichier dans une formule XL

B

bigjer

Guest
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

XLDnaute Accro
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
 

Discussions similaires

Réponses
4
Affichages
653