création d'un lien hypertext

[bbmarcus]

Bonjour à tous,

je fais appel à vous car je suis en train de créer un lien hyperlink avec vba mais un peu spécial....

En fait, je souhaite utiliser le texte du résultat d'un calcul sur excel et le convertir en lien hypertext...
Je n'ai pas réussi sur excel alors j'essaye sur vba....

Je m'explique:
J'ai par exemple une liste d'articles.
En fonction de certains critères, j'obtiens l'article que je recherche (carotte) qui possède son lien hypertext à son nom (genre carotte.xls).
Mais le résultat ne m'affiche que le texte et pas le lien....

Est-il possible de transformer ce texte carotte.xls pour qu'on puisse cliquer dessus et aller sur le lien....?

Difificile à expliquer mais mon fichier est trop gros pour l'instant alors peu pas le mettre en pièce jointe.

Merci de votre aide !

bbmarcus

 

[FabriceLeManuzien]

Bonsoir à tous,


Voici un exemple en pièce jointe

placer :

Private Sub Worksheet_Change(ByVal Target As Range)
Call LienHyperTxt
End Sub

dans 'Worksheet' 'Change' (ou 'Calculate' si besoin)


Voici le module :

Sub LienHyperTxt()
Dim Lien As String
Dim Nom As String
Dim Répertoire As String
Répertoire = 'C:\\temp\\' ' à modifier

Lien = Répertoire & Cells(3, 6).Value & '.xls'
Nom = Cells(3, 6).Value

Cells(6, 6).Select
Selection.ClearContents
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Lien, TextToDisplay:=Nom
End Sub



@+ [file name=pourBBMARCUS20050428.zip size=8862]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pourBBMARCUS20050428.zip[/file]