Concaténation adresses e-mail

[Georges65]

Deux adresses E-Mail valides

Une macro pour concaténer ces deux adresses en F5 plus de lien E-Mail

Quelqu'un pourrait-il m'aider à résoudre ce problème

Merci

 

[Gael]

Re : Concaténation adresses e-mail

Bonsoir Georges65, bonsoir à tous,

Essaye le code suivant:

Sub Macro1()
    a$ = Cells(3, 3) & Cells(4, 3)
    Cells(5, 6) = a$
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(5, 6), Address:= _
        "mailto:" & a$, TextToDisplay:=a$
End Sub

@+

Gael

 

[Georges65]

Re : Concaténation adresses e-mail

Bonsoir Gael, bonsoir à tous,
Merci de ta précieuse aide tout marche
A bientôt
Georges