que l objet dois-je utiliser pour faire des liens hypertexte dans un
userfrom ? comment faire pour que ça m'ouvre un document (word, html, excel,
image...) ?
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
Jacques93
Bonjour Emcy,
A ma connaissance il n'y a pas de contrôle Hypertext, mais on peux le simuler :
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub UserForm_Initialize() With Me.Label1 .Caption = "Nom du Lien" .Tag = "www.excelabo.net" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
bonjour,
que l objet dois-je utiliser pour faire des liens hypertexte dans un userfrom ? comment faire pour que ça m'ouvre un document (word, html, excel, image...) ?
-- Cordialement,
Jacques.
Bonjour Emcy,
A ma connaissance il n'y a pas de contrôle Hypertext, mais on peux le
simuler :
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Private Sub Label1_Click()
ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub
Private Sub UserForm_Initialize()
With Me.Label1
.Caption = "Nom du Lien"
.Tag = "www.excelabo.net" ' tu peux mettre une url ou un .doc, .xls
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture("Hand.ico") ' à adapter
.MousePointer = fmMousePointerCustom
End With
End Sub
bonjour,
que l objet dois-je utiliser pour faire des liens hypertexte dans un
userfrom ? comment faire pour que ça m'ouvre un document (word, html, excel,
image...) ?
A ma connaissance il n'y a pas de contrôle Hypertext, mais on peux le simuler :
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub UserForm_Initialize() With Me.Label1 .Caption = "Nom du Lien" .Tag = "www.excelabo.net" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
bonjour,
que l objet dois-je utiliser pour faire des liens hypertexte dans un userfrom ? comment faire pour que ça m'ouvre un document (word, html, excel, image...) ?
-- Cordialement,
Jacques.
Emcy
merci de ta reponse
"Jacques93" a écrit dans le message de news:
Bonjour Emcy,
A ma connaissance il n'y a pas de contrôle Hypertext, mais on peux le simuler :
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub UserForm_Initialize() With Me.Label1 .Caption = "Nom du Lien" .Tag = "www.excelabo.net" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
bonjour,
que l objet dois-je utiliser pour faire des liens hypertexte dans un userfrom ? comment faire pour que ça m'ouvre un document (word, html, excel, image...) ?
-- Cordialement,
Jacques.
merci de ta reponse
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uwnW6xVAGHA.3968@TK2MSFTNGP10.phx.gbl...
Bonjour Emcy,
A ma connaissance il n'y a pas de contrôle Hypertext, mais on peux le
simuler :
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Private Sub Label1_Click()
ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW
Me.Label1.ForeColor = RGB(128, 0, 128)
End Sub
Private Sub UserForm_Initialize()
With Me.Label1
.Caption = "Nom du Lien"
.Tag = "www.excelabo.net" ' tu peux mettre une url ou un .doc, .xls
.ForeColor = vbBlue
.Font.Underline = True
.MouseIcon = LoadPicture("Hand.ico") ' à adapter
.MousePointer = fmMousePointerCustom
End With
End Sub
bonjour,
que l objet dois-je utiliser pour faire des liens hypertexte dans un
userfrom ? comment faire pour que ça m'ouvre un document (word, html,
excel, image...) ?
A ma connaissance il n'y a pas de contrôle Hypertext, mais on peux le simuler :
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOW = 5
Private Sub Label1_Click() ShellExecute 0&, "open", Me.Label1.Tag, 0&, 0&, SW_SHOW Me.Label1.ForeColor = RGB(128, 0, 128) End Sub
Private Sub UserForm_Initialize() With Me.Label1 .Caption = "Nom du Lien" .Tag = "www.excelabo.net" ' tu peux mettre une url ou un .doc, .xls .ForeColor = vbBlue .Font.Underline = True .MouseIcon = LoadPicture("Hand.ico") ' à adapter .MousePointer = fmMousePointerCustom End With End Sub
bonjour,
que l objet dois-je utiliser pour faire des liens hypertexte dans un userfrom ? comment faire pour que ça m'ouvre un document (word, html, excel, image...) ?
