Bonjour,
ce code envoie un mail en fichier attaché la feuille active sur l'écran.
Au lieu d'envoyer la feuille active j'aimerai spécifier le nom d'une autre feuille.
Comment l'intégrer au code ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub envoiepogoPDF() 'envoie par mail avec fichier attaché en PDF
'déclaration des variables
Dim Wb As Workbook 'la feuille contenant la demande
Dim FileName As String
Dim OutlookApp As Object 'outlook comme messagerie
Dim OutlookMail As Object
Dim Masignature As String 'ma signature mail
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
ActiveSheet.PageSetup.Orientation = xlLandscape
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
OutlookMail.Display 'On affiche le mail
Masignature = OutlookMail.HTMLBody 'on recupere la signature
With OutlookMail
    .Subject = "Livraison POGO"     'sujet
    .HTMLBody = "<div style=""font-family: Arial; font-size:13"">Bonjour," & "<br><br>" & _
                "en fichier attaché les délais de livraison des POGOs." & "<br><br>" & _
                "Cordialement," & Masignature & "</div>"            'mail & signature
    .Attachments.Add FileName                   'attaché la demande
    .Display                                    'voir le mail
End With
Kill FileName
Set OutlookMail = Nothing   'nettoie la mémoire en nettoyant les variables
Set OutlookApp = Nothing    'nettoie la mémoire en nettoyant les variables
End Sub
Merci