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
MichDenis
Bonjour Régis,
Un lien hypertexte peut être créer directement à partir d'un Chart, Feuille de calcul ou un range.
En conséquence, pour pouvoir un lien à partir d'un bouton de commande, tu peux utiliser ce code :
'Cette section : Dans le haut de ton module formuaire 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 OuvrirUnLienHypertexte() Dim MonLien As String MonLien = "http://www.excelabo.net" ShellExecute 0, "open", MonLien, vbNullString, vbNullString, 1 End Sub '--------------------------------
Private Sub CommandButton1_Click()
OuvrirUnLienHypertexte
End Sub '--------------------------------
Salutations!
"Régis" a écrit dans le message de news: 08d101c5181a$881a2bc0$ Bonjour,
Je voudrais inscrire un lien hypertext (fonctionnel) sur un bouton dans un forme. Quelqu'un connait-il une méthode ?
D'avance merci,
Bonjour Régis,
Un lien hypertexte peut être créer directement à partir d'un Chart, Feuille de calcul ou un range.
En conséquence, pour pouvoir un lien à partir d'un bouton de commande, tu peux utiliser ce code :
'Cette section : Dans le haut de ton module formuaire
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 OuvrirUnLienHypertexte()
Dim MonLien As String
MonLien = "http://www.excelabo.net"
ShellExecute 0, "open", MonLien, vbNullString, vbNullString, 1
End Sub
'--------------------------------
Private Sub CommandButton1_Click()
OuvrirUnLienHypertexte
End Sub
'--------------------------------
Salutations!
"Régis" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 08d101c5181a$881a2bc0$a501280a@phx.gbl...
Bonjour,
Je voudrais inscrire un lien hypertext (fonctionnel) sur
un bouton dans un forme. Quelqu'un connait-il une méthode ?
Un lien hypertexte peut être créer directement à partir d'un Chart, Feuille de calcul ou un range.
En conséquence, pour pouvoir un lien à partir d'un bouton de commande, tu peux utiliser ce code :
'Cette section : Dans le haut de ton module formuaire 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 OuvrirUnLienHypertexte() Dim MonLien As String MonLien = "http://www.excelabo.net" ShellExecute 0, "open", MonLien, vbNullString, vbNullString, 1 End Sub '--------------------------------
Private Sub CommandButton1_Click()
OuvrirUnLienHypertexte
End Sub '--------------------------------
Salutations!
"Régis" a écrit dans le message de news: 08d101c5181a$881a2bc0$ Bonjour,
Je voudrais inscrire un lien hypertext (fonctionnel) sur un bouton dans un forme. Quelqu'un connait-il une méthode ?
