XL 2016 ouverture d'un lien hypertext

[marc.gilliand]

Bonjour,
J'ai une textbox qui contient un lien hyptertext. Je souhaite avec la souris faire un survol de cette textbox et qu'excel m'ouvre le lien hypertext. Merci de votre aide.

 

[job75]

Bonjour marc.gilliand,

Le code de la feuille contenant la TextBox :

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
ThisWorkbook.FollowHyperlink TextBox1
Application.Wait Now + 3 / 86400 'temporisation de 3 secondes
End Sub

A+