XL 2013 Envoyer par mail selon condition

[Dafaka7]

Bonjour,

Sur ce fichier j'ai mis en place une macro pour la feuille "Plan d'Action" qui permet d'envoyer la page par mail.
Sauf que cette macro prend toute la page, j'aimerais qu'elle prenne seulement les lignes ou la colonne N "Statut" est vide.
Est-ce possible ?

Cordialement

 

[danielco]

Bonjour,

Essaie :

Sub SendWithAtt()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille.pdf "
CurFile = ThisWorkbook.Path & "\" & "Plan d'action.Pdf"
ActiveSheet.AutoFilterMode = False
Range("A4", Cells(Rows.Count, 14).End(xlUp)).AutoFilter
Range("A4", Cells(Rows.Count, 14).End(xlUp)).AutoFilter 14, Criteria1:="="
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "Eyup Kose <ekose@fr.gestamp.com>; Hassan Hdiddioui <hhdiddioui@fr.gestamp.com>; Alain Okei <aokei@fr.gestamp.com>; Abdelkrim Laaraj <alaaraj@fr.gestamp.com>; Christophe Salomon <csalomon@fr.gestamp.com>; Gregorio Medina <gmedina@fr.gestamp.com>; Nicolas Seynhaeve <nseynhaeve@fr.gestamp.com>;Nassar Sellam <nsellam@fr.gestamp.com>; Tony Le Bassard <tlebassard@fr.gestamp.com>; Fabien Zoccola <fzoccola@fr.gestamp.com>; Rabia Derradji <rlarange@fr.gestamp.com>"
.CC = ""
.Subject = "Plan d'action"
.Body = ""
.Attachments.Add CurFile
'.Attachments.Add "c:\My Documents\book.doc"
.Display '.Send
End With

 
' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub