Este fórum está sendo desativado

[alanisfcsm]

Como salvar .pdf com valor da célula personalizada "00045"
A célula O2 está personalizada em "00000", mas salva o arquivo "45.pdf" ao invés de "000045.pdf"
OBS: o valor de "O2" nunca será o mesmo.

Grato pela ajuda


Sub PDF2()

Dim sh As Worksheet
Dim TempFilePath As String
Dim TempFileName As String
Dim FileName As String
Dim vCelula As Range

For Each vCelula In Range("O2").Cells
vCelula.Value = vCelula.Value + 1
Next
ActiveWorkbook.Save


TempFilePath = "D:\PDF\"

'Loop through every worksheet
For Each sh In ThisWorkbook.Worksheets
FileName = ""

'Test A1 for a mail address
If sh.Range("M8").Value Like "?*@?*.?*" Then

'If there is a mail address in A1 create the file name and the PDF
TempFileName = TempFilePath _
& "CVLO" _
& " " _
& Sheets("A").Range("M3").Value _
& " " _
& Sheets("A").Range("O2").Value _
& Format(Now, " dd-mm-yyyy h-mm") _
& ".pdf"

FileName = RDB_Create_PDF(Source:=sh, _
FixedFilePathName:=TempFileName, _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)



End If

Next sh
End Sub

[laennder]

Onde está escrito

Código: Selecionar todos

Sheets("A").Range("O2").Value

[/b]substitua por:

Código: Selecionar todos

Format(Sheets("A").Range("O2").Value, "00000")

[alanisfcsm]

Muito Obrigado! e me desculpe pelo post repetido.