Adresse Email

JNP

XLDnaute Barbatruc

• 12 Juin 2011

• #2

Re : Adresse Email

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

Code:

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

Bon dimanche 😎

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 12 Juin 2011

• #3

Re : Adresse Email

Salut za tous,à adapter à ton contexte

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 12 Juin 2011

• #4

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

 

Pièces jointes

• email.xlsm

  30.8 KB · Affichages: 58
• email.xlsm

  30.8 KB · Affichages: 60
• email.xlsm

  30.8 KB · Affichages: 64

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 12 Juin 2011

• #5

Re : Adresse Email

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

 

Pièces jointes

• email.zip

  29 KB · Affichages: 37
• email.zip

  29 KB · Affichages: 38
• email.zip

  29 KB · Affichages: 33

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 12 Juin 2011

• #6

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

 

Vote positif 0 Vote négatif