Envoyer un mail VBA

Bonjour,

Ce sujet a été en parti abordé dans d'autres Forum mais il ne précise pas si je peux changer le nom de mon email lors de l'envoi. En effet, le mail envoyé arrive en tant que "Classeur 1" grâce au code suivant :

Sub EnvoiPage()

Dim Destinataire As String, Sujet As String

Dim AccuseReception As Boolean

Destinataire = Range("Mail!A1")

Sujet = "test"

AccuseReception = True

ThisWorkbook.Sheets("Semaine 16").Copy

ActiveWorkbook.SendMail Destinataire, Sujet, AccuseReception

ActiveWorkbook.Close False

End Sub

J'aimerai savoir si on peut changer le nom avant l'envoi (j'ai tenté un ActiveWorbook.name sans grand succés ^^)

Merci d'avance

Bonjour,

juste après la copie de la feuille "Semaine 16", il faudrait enregistrer le "nouveau" classeur pour lui donner un nom.

chemin = "C:\Users\Documents\" 'adapter le chemin
nom = "test envoie.xlsx" 'adapter le nom
ActiveWorkbook.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Impeccable! merci beaucoup!!

Merci encore et par hasard, pour mettre quelque chose en corps de texte, du style "Veuillez trouver ci-joint..."

Vous savez comment faire?

malheureusement la méthode sendmail n'as pas d'argument "body"

un autre possibilité avec Outlook,

Sub SendMailOutlook()
'necessite la référence à Microsoft Outlook XX.x Object Library.
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    chemin = "C:\Users\Documents\" 'adapter le chemin
    nom = "test envoie.xlsx" 'adapter le nom

    ThisWorkbook.Sheets("Semaine 16").Copy
    ActiveWorkbook.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    With OutMail
        .To = Range("Mail!A1")
        .CC = ""
        .BCC = ""
        .Subject = "test"
        .Body = "Veuillez trouver ci-joint..."
        .Attachment.Add = chemin & nom
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Re sabV!

Merci encore, j'ai juste un problème lorsque je passe sur la ligne .Attachment.Add = chemin & nom j'ai le message suivant "Propriété ou méthode non géré par cet objet"

Pourtant le fichier s'enregistre bien sous le bon nom dans un fichier..

Je me demande donc ce qui se passe

Si vous pouvez encore m'aider

Merci beaucoup

C'est bon j'ai trouvé comme un grand!

Attachments prend un "s" à la fin sinon ça ne marche pas!!

Merci beaucoup!!