XL 2013 Ajouter un fichier en PJ d'un mail

[perrin]

Bonjour

J'ai créé un fichier dans lequel je compile les divers bug de notre logiciel dans l'onglet "RECAP Bug".
Ma macro crée une fiche dans un nouveau document et l'enregistre dans un dossier.
Elle m'envoi cette fiche par mail.
Je souhaiterais ajouter une autre PJ (document word) qui se situe dans un autre dossier "W:\COMMUN\BUG WONETT\imprim ecran" le nom sera toujours identique à ma cellule E4 mais en fichier word.
J'aimerais également ajouter un message identique dans chaque mail "Bonjour, Merci de prendre en charge cette nouvelle demande. Bien cordialement. Delphine BONNOT"
Merci pour votre aide
Delphine

 

[Lone-wolf]

Bonjour Delphine et bienvenue sur XLD


Si tu as déjà la macro (Outlook) pour l'envois de l'email avec le classeur en pj, il suffit d'ajouter

fichDoc = "W:\COMMUN\BUG WONETT\imprim ecran\" & Range("e4") - chemin et nom du fichier Word

.Attachments.Add fichDoc

 

[perrin]

Merci pour cette réponse rapide
Voici ma macro(toute simple), du coup je ne sais pas comment intégrer ta partie.
Merci pour ton aide.
Delphine

Sub envoificheACE()
'
' envoificheACE Macro
'
Sheets("Fiche").Select
Columns("A:G").Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste

ActiveWorkbook.SaveAs Filename:= _
"W:\COMMUN\BUG WONETT\Fiche BUG\" & Range("E4") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ActiveWorkbook.SendMail Recipients:=Array("delphine@seguigneruiz.com"), _
ReturnReceipt:=False

End Sub

 

[Lone-wolf]

Re Delphine

En native comme tu l'a fait, je ne sais pas comment intégrer le fichier, je ne l'ai jamais fait. Moi je passe directement par Outlook. À mettre dans un module standard.

Option Explicit

Sub Envoi_Mail()
Dim Chemin$, Fichier$, FichWd$, Nom$, Mail$, Wks As Worksheet
Dim olApp As Object, olMail As Object, StrBody$

    Nom =  Range("e4")    'De quelle feuille???
    Chemin = "W:\COMMUN\BUG WONETT\Fiche BUG\"
    FichWd = Chemin & Nom & ".doc"

    Set Wks = Sheets("Fiche")
    Wks.Activate
    ActiveSheet.Copy

    With ActiveWorkbook
        .SaveAs Filename:=Chemin & Nom & ".xls", FileFormat:=xlExcel8
        .Close True
    End With

    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    StrBody = "Bonjour Madame," & vbCrLf & vbCrLf & "Recevez les nouveaux documents cités en Objet."
    Fichier = Chemin & Nom & ".xls"
    With olMail
        .To = "toto@mincealors.quack"
        .Subject = "Vos nouveaux fichiers"
        .Body = StrBody
        .Attachments.Add Fichier
        .Attachments.Add FichWd
        .Display
    End With
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@perrin [Bienvenue sur le forum]
Pour infos
Habituellement on évite de diffuser une véritable adresse mail
(surtout si c'est son propre courriel...)

With olMail
        .To = "del***n*e@domaine.com"

N'est-ce pas, Lone-Wolf ?

PS: Delphine, je crois qu'il est désormais trop tard et ce mail a déjà été aspiré par les robots qui pullulent sur XLD...
Mais mieux vaut éditer... ou pas

 

[Lone-wolf]

Re Jean Marie

Je ne sais pas si l'adresse existe vraiment, mais je l'ai rectifée dans le code.

 

[Staple1600]

Re

Re Jean Marie

Je ne sais pas si l'adresse existe vraiment, mais je l'ai rectifée dans le code.

Maintenant tu le sais

 

[Lone-wolf]

Re

@Staple1600 : bon, bein, ok.