Macro mail

comment crée une macro pour envoyer par mail avec un bouton placé en H66.

Après plusieurs tentative rien ne se passe.

Merci d'avance

bonjour,

la macro peut avoir un intérêt si on envoie que la feuille ou encore en PDF,

Sinon, Excel fait très bien cela dans la barre rapide on peut rajouter la fonction envoyer par mail !

cordialement,

Francky

oui avec piece jointe pas de soucis mais je dois crée un bouton qui envoi par un mail a des destinaitaires précis au total de 4

bonjour,

je ne suis pas fortiche en VBA mais je te donne un code qui permet d'enregistrer sou (avec le nom en A1 et en A2) et d'envoyer par mail à plusieurs destinataires. Je crois que c'est Amadeus qui l'avais fait...

Sub EnregistreSous() 'copie et sauvegarde Onglet
Dim wk As Workbook
Dim ws As Worksheet

    Set wk = Workbooks.Add(xlWBATWorksheet)
    Set ws = ThisWorkbook.Worksheets(1)
    ws.Copy After:=wk.Sheets(Sheets.Count)

Dim nomfichier, chemin, extension As String
    extension = ".xls"
    nomfichier = ActiveSheet.Range("A1") & ActiveSheet.Range("A2") & extension
    chemin = ThisWorkbook.Path & "\" & nomfichier
    ActiveWorkbook.ActiveSheet.SaveAs Filename:=chemin
    MsgBox "le nouveau fichier a été sauvegardé en : " & nomfichier & ""

'envoi de la Feuil1 par Mail
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "zzzzzz@wanadoo.fr"
Destinataires(2) = "xxxxx@wanadoo.fr"
Destinataires(3) = "yyyy@wanadoo.fr"
Sujet = "Envoi Feuillee"
AccuseReception = True
ThisWorkbook.Sheets("Feuil1").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

il est certainement à adapter.

cordialement,

Francky