XL 2016 Insérer une pièce joint dans un mail VBA

[Leché]

Bonjour ,

J'ai ce code permettant d'envoyer un mail en automatique avec la possibilité de rajouter un commentaire avant envoi du mail et qui renomme le fichier après envoi du mail.

Cependant je souhaiterais joindre des pièces jointes dans le mail. Avez vous une idée de comment procéder ?
De plus est-il possible d'augmenter la plage de saisie du commentaire? afin d'avoir une meilleur visualisation.

Cordialement,
Leché

Sub Send_Email()
  Dim OutlookApp As Outlook.Application
  Dim OutlookMail As Outlook.MailItem
Dim chemin As String, fichier As String, Mem_Fichier$

  Set OutlookApp = New Outlook.Application
  Set OutlookMail = OutlookApp.CreateItem(olMailItem)

  Sheets(1).Unprotect
Mail = Application.InputBox("Souhaitez-vous rajouter un commentaire ?", Type:=2)
Sheets("Feuil1").Range("AC21") = Mail
  Sheets(1).Protect

If MsgBox("tes vous sur de vouloir envoyer le mail ?", vbYesNo + vbInformation, _
"Attention") = vbYes Then

  With OutlookMail
    .BodyFormat = olFormatHTML
    .Display
    .HTMLBody = Range("AC11")
    .To = Range("AC10")
    .Subject = Range("AC9")
    .CC = Range("AC12")
    .Send
  End With
  MsgBox ("Votre Email a été envoyé")

  chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("B4") & ".xlsm"
Mem_Fichier = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs Filename:=fichier
Kill Mem_Fichier

End If

End Sub

 

[Phil69970]

Bonjour @Leché, le forum

Je te propose :

    .To = Range("AC10")
    .Subject = Range("AC9")
    .CC = Range("AC12")
    .Send

'Essaye 1 ==> 'MonFichier est déclaré avec son chemin 
'Declaration du chemin
Dim MonFichier As String
MonFichier="C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm"

    .Attachments.Add (MonFichier)

'Essaye 2 ==> Si par exemple l'adresse de ton fichier est dans la cellule A1 (tu dois avoir le chemin complet du fichier)
'exemple : C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm
'Si chemin réseau ==> \\Monchemin\MonRepServeur\Montruc\Monmachin.xlsm
'Autrement essaye avec le Z:\\... 'Z doit correpondre à la lettre du serveur si c'est W mettre W etc....
'ET il faut que tout le monde est accès au serveur ET avec la même arborescence.
    .Attachments.Add ActiveSheet.Range("A1").Value

'Essaye 3 ==> adresse en dur de ton fichier
    .Attachments= "C:\Monchemin\Surmondisquedur\montruc\monmachin.xlsm"

'......... le reste de ton code

*Merci de ton retour

@Phil69970

 

[Phil69970]

@Leché

*Merci de ton retour

Aucun retour ça donne envie d'aider !!!!

@Phil69970

 

[Leché]

@Leché





Aucun retour ça donne envie d'aider !!!!

@Phil69970

Hello , désolé mais j'étais pas sur le pc a 22h30 hier soir et je rentre tout juste du travail

 

[Leché]

Hello , désolé mais j'étais pas sur le pc a 22h30 hier soir et je rentre tout juste du travail

Et je n'aurais pas le temps ce soir.. Je check ça demain matin et je te tiens au courant !
Je te remercie en tout cas pour ce retour

A demain,

 

[Leché]

Hello, les 3 solutions fonctionnent super bien

Merci beaucoup pour ton aide.