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.
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.