Envoyé un mail d'Excel

Bonjour,

Je suis actuellement en stage et je dois créer un planning et pouvoir le diffuser à chaque employé via son mail.

Sauf que ... J'y arrive pas, sur internet beaucoup de site me conseille de faire du VBA sauf que je connais pas du tout.

J'ai essayer avec la formule LIEN_HYPERTEXTE("mailto:trucmuche@gmail.com?&subject=Horaires&body=A2:E17;""")

Sauf que le mail contient A2:E17 sans les données ... Mais il y a bien son sujet donc la formule marcherais nickel si elle prenait les données, c'est sans doute qu'un petit truc...

Si quelqu'un peut m'aider je le remercie d'avance.

Cordialement

PS: Voici le fichier si ça peut aider ...

https://www.cjoint.com/c/ECBqFUbG1Ds

Je te donne 2 exemples basiques à adapter bien sûr, soit en pdf, soit directement dans le corps du texte ... à toi de jouer !

Merci bien, mais ça me lance outlook, tandis qu'avec la fonction hypertexte, ça m'envoie bien un mail avec ma boite mail par défaut... Que faut t'il modifié ? Mon entreprise utilise une sorte de Gmail pro.

Merci beaucoup du temps que tu me consacre.

Cordialement

Bonjour

A tester

Cordialement

Bonjour,

Merci beaucoup ça fonctionne mais le problème c'est que ça utilise Outlook, et personne n'utilise outlook ici ...

Je suis désespéré, j'ai réussi à faire un code VBA qui envoie bien de gmail, mais je n'arrive pas à copier mon tableau, juste à le sélectionner ...

Merci d'avance si vous avez une solution

Public Function send_email()

Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
.Update
End With
' build email parts
With cdomsg
.To = "somebody@somedomain.com"
.From = "mygmail@gmail.com"
.Subject = "the email subject"
.TextBody = Range("A1:E17")
.Send
End With
    Set cdomsg = Nothing
End Function

Bonjour dams76600

peu être que ce fichier( que tu doit adapter, peu régler ton problème

je n'ai pas pu le faire fonctionner sur EXCEL 2013.

avec 2007 ça fonctionne correctement

a vous relire