recuperer contenu cellule contenant le lien hypertexte

[copayo]

bonjour à tous,

j'ai un fichier avec de nombreux line hypertexte.

je souhaiterais avoir dans la feuille 1 en cellule A1 la donnée contenue dans la cellule ou l'on a cliqué sur le lien hypertexte.

je l'ai envisagé comme cela mais je n'ai pas la suite !!!

merci par avance de vos réponses

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Range("A1") = hyperlink.???

End Sub

 

[job75]

Re : recuperer contenu cellule contenant le lien hypertexte

Bonjour copayo,

J'ai testé :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Sheets(1).Range("A1").Value = Target.Parent
End Sub

Si les liens sont dans une seule feuille, il vaut mieux utiliser :

Private Sub WorkSheet_FollowHyperlink(ByVal Target As Hyperlink)
Range("A1").Value = Target.Parent
End Sub

A+

 

[tototiti2008]

Re : recuperer contenu cellule contenant le lien hypertexte

Bonjour copayo,

à tester :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ThisWorkbook.Worksheets("Feuil1").Range("A1").Value = Target.Range.Value
End Sub

 

[copayo]

Re : recuperer contenu cellule contenant le lien hypertexte

un super grand merci ça fonctionne nikel


a bientot pour renvoyer l'ascenceur