Excel anexar o ultimo arquivo da pasta em pdf

[RAIMUNDO LIMA DE ARAUJO]

Olá, 

 

Estou usando a planilha abaixo, e gostaria de anexar no e-mail o arquivo mas recente ou ultimo arquivo salvo em pdf. 

 

Eu não sei programar vba, segue o codigo que eu consegui. 

 

Sub Enviar_ORDEM()

Dim WH      As Worksheet
Dim OutProg As Object
Dim OutMail As Object
Dim OutApp  As Object

Set WH = Planilha6 ' PRINT QUE VAI NO E-MAIL PARA COLAR
Set OutProg = CreateObject("Outlook.Application")
Set OutMail = OutProg.CreateItem(0)

Application.ScreenUpdating = False

WH.Select

Application.ScreenUpdating = True

Application.DisplayAlerts = False

Set WH = Planilha5 ' ONDE PEGA OS E-MAIL PARA ENVIAR

Dim Anexo   As String

Anexo = ThisWorkbook.Path ' NOME DO ARQUIVO PARA ANEXAR
Anexo = Anexo & "\" & "ORDEM DE CARREGAMENTO.xlsm"

    
With OutMail
    .Display
    .To = WH.Range("D10").Value 'Para
    .Subject = WH.Range("D12").Value ' Assunto
    .Attachments.Add Anexo
    .Body = WH.Range("D14").Value ' Corpo e-mail
    '.Send
    
End With

Application.DisplayAlerts = True

Set OutMail = Nothing
Set OutApp = Nothing
Set OutProg = Nothing

Set WH = Planilha6

'o codigo abaixo, seleciona a ultima linha preenchida e dá print para ser enviado e-mail
WH.Range("B4:L" & Cells(Rows.Count, "L").End(xlUp).Row).Select ' usamos a coluna E para localizar a ultima linha preenchida
   
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    WH.Range("B2").Select

    ' Salva pasta de trabalho
   
 

End Sub

testes.xls.rar

[Basole]

@RAIMUNDO LIMA DE ARAUJO veja se é isso 

 

 

testes.xls.zip

[RAIMUNDO LIMA DE ARAUJO]

@Basole

Boa noite, 

Tem como ele anexar usando como critério OR "nome do motorista" - "Placa" e "Terminal" ?

No print abaixo meu ultimo arquivo em pdf salvo foi do motorista Josue, o codigo que você ajustou funcionario se tivesse apenas um PDF. 

 

Tem como anexar usando esse criterio? 

 

[Basole]

1 hora atrás, RAIMUNDO LIMA DE ARAUJO disse:

Tem como ele anexar usando como critério OR "nome do motorista" - "Placa" e "Terminal" ?

No print abaixo meu ultimo arquivo em pdf salvo foi do motorista Josue, o codigo que você ajustou funcionario se tivesse apenas um PDF. 

Tem como anexar usando esse criterio? 

 

@RAIMUNDO LIMA DE ARAUJO era um criterio agora é outro? 

 

Veja se entedi, segue o anexo

 

 

testes.xls-v1.zip

[RAIMUNDO LIMA DE ARAUJO]

@Basole

Apresentou isso.

 

[Basole]

Ja corrigi esse erro

 

 

testes.xls-v2.zip

[RAIMUNDO LIMA DE ARAUJO]

@Basole
Bom dia, 

Primeiramente quero agradecer a disponibilidade e ajuda. 

Testei o código, observei o seguinte. Se tivesse apenas um arquivo em pdf, funcionaria perfeitamente, porém, eu salvo vários arquivos com o nome OR + NOME DO MOTORISTA + PLACA + TERMINAL. Gostaria de anexar no e-mail o ultimo arquivo salvo dentro da pasta, nesse caso, creio que seria usando o critério para tentar localizar e anexar. 
 

Fiz vários testes, ele sempre vai anexando o primeiro arquivo. 

 

[Basole]

@RAIMUNDO LIMA DE ARAUJO substitua no codigo, LIKE pelo sinal de igual ( = ). 

E a formatação do nome dos arquivos pdf, salvos tem que seguir um padrão, ou seja os espaços entre as variaveis (OR + NOME DO MOTORISTA + PLACA + TERMINAL) e os traços ( - ) tem que ser iguais na comparação.