XL 2016 ouverture d'un lien hypertext

marc.gilliand · 29 Juin 2021

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 · 29 Juin 2021

Bonjour marc.gilliand,

Le code de la feuille contenant la TextBox :

VB:

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+

XL 2016 ouverture d'un lien hypertext

marc.gilliand

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires