Adresse mail dans une macro

Messages postés
15
Date d'inscription
mercredi 15 novembre 2017
Statut
Membre
Dernière intervention
8 septembre 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6209
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2019
- 4 sept. 2019 à 15:49
Bonjour,

Je cherche la formule pour pouvoir envoyer mon fichier excel, vers une adresse mail via un bouton lié à une macro, et pouvoir partager ce fichier avec mes collègues de travail.
Merci pour votre aide précieuse.
Afficher la suite 

1 réponse

Messages postés
6209
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2019
390
Albo8600
Messages postés
15
Date d'inscription
mercredi 15 novembre 2017
Statut
Membre
Dernière intervention
8 septembre 2019
-
Bonjour, merci pour le retour mais j'ai du mal avec le lien hypertex, qui ne fonctionne pas.
Est-il possible de faire une macro avec une adresse mail?
Cela fonctionne quand je fais la macro, mais quand je la colle à un bouton, si je clique sur le bouton l'adresse mail à disparue ainsi que le texte du mail.
Merci pour votre aide.
Bien à vous
cs_Le Pivert
Messages postés
6209
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 septembre 2019
390 -
comme ceci:

Option Explicit
Private Sub CommandButton1_Click()
MailTo
End Sub
Sub MailTo()
    Dim sLien As String
     sLien = "mailto:" & Range("A1") & "?" 'Addresse : une ou plusieurs adresses e-mail valides séparées par un point-virgule. N'utilisez que des caractères autorisés. Utilisez &nbps; pour les espaces. Seul ce paramètre est obligatoire en A1
    sLien = sLien & "Subject=" & Range("A2") 'Subject : le texte qui apparaîtra dans l'objet du message.en A2
    sLien = sLien & "&Body=" & Range("A5") 'Body: le corps du message..en A5
    If Range("A3") <> "" Then sLien = sLien & "&cc=" & Range("A3") 'CC : l'adresse à inclure dans la section "cc" (copie à)en A3
    If Range("A4") <> "" Then sLien = sLien & "&bcc=" & Range("A4") 'BCC : l'adresse à inclure dans la section "bcc" (copie cachée à). en A4
    ActiveWorkbook.FollowHyperlink sLien
End Sub


@+ Le Pivert
Commenter la réponse de cs_Le Pivert