Este fórum está sendo desativado

[CAMILOALVES]

A Macro abaixo funciona da seguinte forma: converte a planilha para .PDF, porém sempre que acionada sobrescreve o arquivo anterior.
PEDIDO DE AJUDA: sempre que acionada nunca sobrescreva o arquivo anterior (que deve ser mantido a título de histórico) e sim gere um novo arquivo como se fosse uma versão.
Desde já agradeço
Segue a macro em questão:

Sub CONVERTER_EM_PDF()
Dim seuPdfCaminho As String
Dim seuPdfNome As String

seuPdfCaminho = "N:\TRANSPORTADORA SAMELO\Demostrativo de Resultado\"
seuPdfNome = "DIRETORIA.pdf"

ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
seuPdfCaminho & seuPdfNome, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

[kiko]

CAMILOALVES boa tarde, a macro abaixo funciona da seguinte forma: converte a planilha para .PDF, e será mantido a título de histórico + a data atual + a hora e minuto atual e assim gera um novo arquivo como se fosse uma versão.
Espero ter ajudado.

Sub CONVERTER_EM_PDF()
Dim seuPdfCaminho As String
Dim seuPdfNome As String

seuPdfCaminho = "N:\TRANSPORTADORA SAMELO\Demostrativo de Resultado\"
seuPdfNome = "DIRETORIA" & Format(Now(), "DD-MMM-YYYY-hh-mm") & ".pdf"

ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
seuPdfCaminho & seuPdfNome, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

[CAMILOALVES]

Prezado kiko 22 Mar 2019 às 18:37
Primeiramente, Muito Obrigado Por Dispor de Seu Tempo Para Ajudar-me.
Funcionou Conforme Solicitação.
Grato
Atenciosamente