Transformer contenu cellule en lien hypertext

C'est pas vraiment ce que tu cherche à faire, mais ça peut donner une bonne base de départ pour faire la macro inverse :

http://www.vbfrance.com/... Jeff - Wm@Ccm -

Merci,

mais j'ai déjà bidouiller avec cette macro et hélas sans résultat satisfaisant !

c bon j'ai trouvé, j'ai testé et ça marche impecable

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="cell(i,j).value"

sachant que le contenu de cell(i,j) est le chemin d'accès que je récupère depuis la fenetre de sélection (parcourir) avec le code :

Fichier = Application.GetOpenFileName("procédures(*.xls),*.xls")



i = 7
For j = 3 To 9
ActiveWorkbook.Worksheets("page 2").Cells(i, j).Value = Fichier

Je donne le code complet et commenté au cas ou quelqu'un d'autre en a besoin :

Private Sub Browse_Click()
'Browse (parcourir) est un bouton de commande
Dim Fichier As Variant
Dim cell As Range

'Affichage de la la boîte de dialogue standard "Ouvrir" pour sélectionner un fichier excel
'sur le disque dur.
'GetOpenFilename permet de lire le nom du fichier sélectionné par l'utilisateur sans
'réellement ouvrir le fichier.

Fichier = Application.GetOpenFileName("procédures(*.xls),*.xls")


'affichage du chemin d'accès dans la cellule voulue
i = 7
For j = 3 To 9
ActiveWorkbook.Worksheets("page 2").Cells(i, j).Value = Fichier

Next

' transformer le contenu de la cellule en lien hypertexte cliquable

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="cell(i,j).value"

End Sub

Merci quand meme Jeff