Adresse Email

[apdf1]

Bonjour,

Dans un TextBox je rentre une adresse email ex: jule@free.fr avec le code ci-dessous

URL = Me.TextBox8.Text

et je n'obtiens pas dans ma feuille une adresse active.

Si quelqu'un a une solution je le remercie d'avance

Cordialement

Max

 

[JNP]

Re : Adresse Email

Salut Max 🙂,
A adapter à ton cas, la syntaxe exacte est

Range("D12").Hyperlinks.Add Range("D12"), "mailto:toto@toto.fr", , , "toto@toto.fr"

Bon dimanche 😎

 

[kiki29]

Re : Adresse Email

Salut za tous,à adapter à ton contexte

Option Explicit

Private Sub CommandButton1_Click()
Dim sUrl As String
    sUrl = "mailto:" & Me.TextBox1.Text
    
    Feuil1.Hyperlinks.Add Anchor:=Feuil1.Range("A1"), Address:= sUrl, TextToDisplay:=Me.TextBox1.Text
End Sub

Private Sub UserForm_Initialize()
    Me.TextBox1 = "xxxxx@yyyyy.fr"
End Sub

 

[apdf1]

Re : Adresse Email

Bonjour JNP

Je te remercie beaucoup d'avoir répondu, mais le bleme est que je change d'adresse a chaque client
ci joint mon fichier qui seras plus parlant.

Merci d'avance et bon dimanche

Max

 

[kiki29]

Re : Adresse Email

re,en s'inspirant de l'exemple posté plus haut tu aurais pu y arriver tout seul comme un grand

 

[apdf1]

Re : Adresse Email

Bonjour Kiki29

Je te remercie beaucoup mais lorsque j'ai posté mon deuxiéme message je n'avait pas vu le tiens.

Bon dimanche

Max