Forum - Problèmes liés à mes codes mis à disposition - Pour ouvrir une page d'un site web

 

clos par 3Stone le 06/06/2018 : 23:47  Sujet n° 809

le 26/04/2018 : 11:16
par possible924

Anonyme

visiteur

Bonjour à tous,
Sur le site, je trouve le mémo : "Pour ouvrir une page d'un site web" Je voudrais à l'aide d'un bouton atteindre la page relative à www.jerechos.com/
Mon bouton a pour nom "AtteindreBlog" J'ai une étiquette indépendante "lblAddress" et un contrôle zone de texte "txtAddress"
J'ai attaché le code du site au bouton ce qui donne :
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.HyperlinkAddress = ""
    End If
End Sub

Mais ça ne marche pas, l'étiquette indépendante prend lien la valeur du contrôle texte mais n'ouvre pas la page web Au secours
Merci par avance pour votre aide Pierre
sujet clos Haut  

Réponse n° 1
--------
le 26/04/2018 : 13:00
par 3Stone

3Stone

Administrateur


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)

clos par 3Stone le 06/06/2018 : 23:47 Haut  
Réponse n° 2
--------
le 26/04/2018 : 17:32
par possible924

Anonyme

visiteur

J'obtiens le message d'erreur "Erreur d'exécution 424, Objet requis"

A+

clos par 3Stone le 06/06/2018 : 23:47 Haut  
Réponse n° 3
--------
le 26/04/2018 : 18:02
par 3Stone

3Stone

Administrateur


re,

Ton étiquette n'est probablement pas indépendante...

Cordialement,

Pierre (3Stone)

clos par 3Stone le 06/06/2018 : 23:47 Haut  
Réponse n° 4
--------
le 26/04/2018 : 20:35
par possible924

Anonyme

visiteur

j'ai supprimé les étiquettes orphelines et j'ai fait le code suivant :

Private Sub AtteindreBlog_Click()
    If IsNull(Me.Cst_Blog) Then Exit Sub
    Application.FollowHyperlink "http://" & Me.Cst_Blog, , True
End Sub
Private Sub AtteindreSite_Click()
    If IsNull(Me.Cst_Site) Then Exit Sub
    Application.FollowHyperlink "http://" & Me.Cst_Site, , True
End Sub

et ça marche très bien

Bonne soirée

Pierre

clos par 3Stone le 06/06/2018 : 23:47 Haut  
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message
Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter  
Catégories de discussion  Forum