Macro to record sheet PDF

I intend to record a macro sheet from Excel's File in PDF format. However every time that records must verify that you want to replace the existing file with the same name. Currently I have the macro is recording sheet in PDF's. but always replaces the existing file without asking if you want to replace. The macro should look for the existence of the grave than the above without asking if you want to replace.

Regards,

Flash_Azul

Hi Flash_Azul. Could you post your recorded macro? Also, which version of Excel are you using?

Originally Posted by gjlindn

Hi Flash_Azul. Could you post your recorded macro? Also, which version of Excel are you using?

Private Sub SAVE_ORCAMENTO_PDF_Click()

'GRAVA EM FORMATO PDF O RELATORIO + ORÇAMENTO

'On Error GoTo ErrorHandler
Dim i As Integer
Dim sName As String
Dim sOutputPath As String
Dim n As String
Dim o As String

Application.DisplayAlerts = True

n = Range("H2").Text
o = Range("F5").Text
r = "(rel)"

' Grava os ficheiros pdf para a seguinte pasta
sOutputPath = "M:\Orcamentacao\2011\" & n & "\" + o + r + ".pdf"

' Converte em PDF a primeira Sheet -DADOS GERAIS-

Debug.Print sOutputPath



ActiveWorkbook.Sheets(1).ExportAsFixedFormat _
Type:=xlTypePDF, filename:=sOutputPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True


MsgBox " Ficheiro PDF -DADOS GERAIS- criado com sucesso -> M:\Orcamentacao\2011\" & n & "\" + o + r + ".pdf", vbInformation, "RELATÓRIO"

' Converte em PDF a segunda Sheet - ORÇAMENTO-

' Grava os ficheiros pdf para a seguinte pasta
sOutputPath = "M:\Orcamentacao\2011\" & n & "\" + o + ".pdf"


'sName = Sheets(2).Name

Debug.Print sOutputPath

ActiveWorkbook.Sheets(2).ExportAsFixedFormat _
Type:=xlTypePDF, filename:=sOutputPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox "Ficheiro PDF -ORÇAMENTO- criado com sucesso -> M:\Orcamentacao\2011\" & n & "\" + o + ".pdf", vbInformation, "ORÇAMENTO"

ErrorHandler:
End Sub