Ouvrir site internet ou lancer un mail

[isa44]

Bonjour à tous,
J'ai un Userform avec un label pour site intenet et un autre pour adresse mail qui change selon une sélection dans un combobox.

Avec le label contenant l'adresse d'un site internet , comment en cliquant dessus ouvrir ce site ?

Avec le label contenant une adresse mail, comment en cliquant dessus créer un message vers cette adresse ?

Merci pour votre aide

 

[MJ13]

Re : Ouvrir site internet ou lancer un mail

Bonjour Isa44

A tester:

Pour le 1er point

FollowHyperlink

Pour le second: Recherche sur le forum avec mail.

 

[isa44]

Re : Ouvrir site internet ou lancer un mail

Cela me met : sub non défini

 

[MJ13]

Re : Ouvrir site internet ou lancer un mail

Re

Bon, ce n'est pas comme cela qu'on apprend.

Va dans le VBE (Alt+F11) puis tapes followhyperlink, et appuie sur la touche F1.

 

[isa44]

Re : Ouvrir site internet ou lancer un mail

A l'aide je ne parviens pas à trouver la solution !!!

 

[kiki29]

Re : Ouvrir site internet ou lancer un mail

Salut, à tester

Option Explicit

Private Sub Label1_Click()
    ThisWorkbook.FollowHyperlink Label1.Caption
End Sub

Private Sub Label2_Click()
    ThisWorkbook.FollowHyperlink "mailto:" & Label2.Caption & "?subject=Essai"
End Sub

 

[isa44]

Re : Ouvrir site internet ou lancer un mail

Merci Kiki c'est ce que je cherchais.
Maintenant cela me parait simple