Les evenements Worksheet_FollowHyperlink et=20
Workbook_SheetFollowHyperlink se declenche lors d'un click=20
sur un lien =E0 partir d'une cellule (Range),
mais ne ce declenche pas =E0 partir d'un lien sur un objet=20
Shape(Une forme de dessin).
Existe-il une solution pour intercepter cet evenement =E0=20
partir d'une forme Shape ?
Merci pour vos reponses et suggestions.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaenonius
Tu peux ouvrir une page web (si l'hyperlien que tu cherches à activer est une adresse internet) depuis une forme de la barre d'outils Dessin en lui affectant une petite macro :
''''''''''''''''''''''' Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, _ ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Sub HyperLien() lien = "http://www.excelabo.net" ShellExecute 0, "open", lien, vbNullString, vbNullString, 1 End Sub '''''''''''''''''''''''
-- Gaenonius
Bonjour tout le monde,
Les evenements Worksheet_FollowHyperlink et Workbook_SheetFollowHyperlink se declenche lors d'un click sur un lien à partir d'une cellule (Range), mais ne ce declenche pas à partir d'un lien sur un objet Shape(Une forme de dessin). Existe-il une solution pour intercepter cet evenement à partir d'une forme Shape ? Merci pour vos reponses et suggestions.
Tu peux ouvrir une page web (si l'hyperlien que tu cherches à activer est une
adresse internet) depuis une forme de la barre d'outils Dessin en lui affectant
une petite macro :
'''''''''''''''''''''''
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Sub HyperLien()
lien = "http://www.excelabo.net"
ShellExecute 0, "open", lien, vbNullString, vbNullString, 1
End Sub
'''''''''''''''''''''''
--
Gaenonius
Bonjour tout le monde,
Les evenements Worksheet_FollowHyperlink et
Workbook_SheetFollowHyperlink se declenche lors d'un click
sur un lien à partir d'une cellule (Range),
mais ne ce declenche pas à partir d'un lien sur un objet
Shape(Une forme de dessin).
Existe-il une solution pour intercepter cet evenement à
partir d'une forme Shape ?
Merci pour vos reponses et suggestions.
Tu peux ouvrir une page web (si l'hyperlien que tu cherches à activer est une adresse internet) depuis une forme de la barre d'outils Dessin en lui affectant une petite macro :
''''''''''''''''''''''' Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, _ ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Sub HyperLien() lien = "http://www.excelabo.net" ShellExecute 0, "open", lien, vbNullString, vbNullString, 1 End Sub '''''''''''''''''''''''
-- Gaenonius
Bonjour tout le monde,
Les evenements Worksheet_FollowHyperlink et Workbook_SheetFollowHyperlink se declenche lors d'un click sur un lien à partir d'une cellule (Range), mais ne ce declenche pas à partir d'un lien sur un objet Shape(Une forme de dessin). Existe-il une solution pour intercepter cet evenement à partir d'une forme Shape ? Merci pour vos reponses et suggestions.
