Affichier lien hypertexte dans macro

[kifran85]

Bonjour,
J'ai un problème , je n'arrive pas à afficher un lien hypertexte dans un label d'une macro. J'obtiens que l'adresse sans le lien.

Merci d'avance,

Cordialement,

 

[kjin]

Re : Affichier lien hypertexte dans macro

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

 

[kifran85]

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,

 

[kjin]

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

 

[tototiti2008]

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...

 

[kjin]

Re : Affichier lien hypertexte dans macro

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

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