Poster une réponse

Je vous remercie de prendre le temps d'écrire ce message.

Votre nom (ou pseudo) :
Votre courriel :
Montrer aux visiteurs votre adresse Courriel :      
Note : l'adresse Courriel utilisée est protégée contre le SPAM.

S'abonner à ce fil de discussion :      

Vous répondez à 3Stone qui a écrit :

 

Bonjour,

Il manque un bout...

Essaies :

Private Sub AtteindreBlog_Click()
    Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
    Me!lblAddress.ForeColor = 1279872587
    Me!lblAddress.FontUnderline = True
    If Not IsNull(Me!txtAddress.Value) Then
        Me!lblAddress.HyperlinkAddress = "http://" & Me!txtAddress.Value
        Me!lblAddress.HyperlinkAdress.Follow 
        Me!lblAddress.HyperlinkAddress = ""
    End If
End Sub

Il manquait le "Follow"

Cordialement,

Pierre (3Stone)


cool wink biggrin smile frown eek mad confused rolleyes tongue cry
Recopier le code :