Salut,
 
Est-ce que quelqu'un aurait fait un code qui permet de créer un lien hypertext sur du texte qui se trouve dans une cellule?
Il faudrait que je puisse choisir à chaque fois que je créer un lien le fichier qui sera ouvert grace à celui-ci.
 
ex: en cellule A1 j'ai le texte toto quant je créer le lien hypertext un explorateur me permet d'allez associer mon texte toto au fichier word,excel ou autre que je souhaite.
 
Je crois qu'il faut utiliser application.Getopenfiles pour avoir le choix du fichier qui sera associé.
 
@+ et merci d'avance

'comment faire pour ne pas avoir l'adresse toto.xls à chaque fois ? Il faudrait pouvoir choisir?
 
Sub LienHT()  
 
    ActiveCell.Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "toto.xls", TextToDisplay:=""
end sub  
 
Si quelqu'un a une idée

J'ai trouvé
 
Sub LienHT()
 
m = Application.GetOpenFilename
ActiveCell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=m, _
TextToDisplay:="Lien"
 
End Sub