Affichier lien hypertexte dans macro

K

kjin

XLDnaute Barbatruc

• 29 Août 2010

• #2

Re : Affichier lien hypertexte dans macro

Bonsoir,
Voir PJ si j'ai compris
A+
kjin

 

Pièces jointes

• Hyper.xls

  25 KB · Affichages: 85
• Hyper.xls

  25 KB · Affichages: 85
• Hyper.xls

  25 KB · Affichages: 89

Vote positif 0 Vote négatif

K

kifran85

Guest

• 1 Septembre 2010

• #3

Re : Affichier lien hypertexte dans macro

Bonjour,

J'ai crée une nouvelle discussion où j'ai essayé ton astuce mais ça ne fonctionne pas.

https://www.excel-downloads.com/threads/lien-hypertexte-dans-macro.148155/

Cordialement,

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 1 Septembre 2010

• #4

Re : Affichier lien hypertexte dans macro

Bonjour,
Pourquoi créer une nouvelle discussion ?! 😡
Surtout que la macro fonctionne pour le peu que tu indiques une adresse valide évidemment !
A+
kjin

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Septembre 2010

• #5

Re : Affichier lien hypertexte dans macro

Bonjour à tous,

d'autant que j'ai bien peur que seule la solution de kjin soit disponible, pas de lien hypertexte automatique sur les Label, à ma connaissance...

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 1 Septembre 2010

• #6

Re : Affichier lien hypertexte dans macro

Bonsoir, salut tototiti 🙂,
Pour éviter le bug en cas d'adresse bidon (source :Bill)

Code:

Private Sub Label21_Click()
GetUserAddress Label21.Caption

End Sub

Function GetUserAddress(Txt) As Boolean
On Error GoTo Error_GetUserAddress
ActiveWorkbook.FollowHyperlink Txt, , True
GetUserAddress = True

Exit_GetUserAddress:
    Exit Function

Error_GetUserAddress:
    MsgBox Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress
    
End Function

A+
kjin

 

Vote positif 0 Vote négatif