Un lien sur une feuille

<< Précédent

Home

Programmation

Programmes complets

OCX

Code source

JScript/VBScript

Perso

Objectif sims

Sans titre mais bien utile

Un lien sur une feuille

Placez un contrôle label sur votre feuille avec les propriétés suivantes:
    Label.ForeColor = &H00FF0000&
    Label.Font.Underline = True
    Label.AutoSize = True
    Label.MousePointer = 99 - Custom
    Label.MouseIcon = Icône en forme de main

Ensuite, Insérez les lignes suivantes dans votre code:

Option Explicit

Private Const SW_SHOWNORMAL = 1
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 Sub Label1_Click()
    ShellExecute Me.hwnd, "open", "http://www.domain.com", "", "", SW_SHOWNORMAL
End Sub