Save sheet as PDF in A specific path (folder)

[Omer_K]

Dear all,
I copy some VBA code that save the active sheet as pdf,
it's great but I want to change the path of the folder ( not in a active folder),

Here is the code :


Sub PDFActiveSheetNoPromptCheck()


Dim wsA As Worksheet
Dim wbA As Workbook
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
Dim lOver As Long
On Error GoTo errHandler


Set wbA = ActiveWorkbook
Set wsA = ActiveSheet




strPath = wbA.Path
If strPath = "" Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & ""


strName = wsA.Range("C14").Value _
& " - " & wsA.Range("H14").Value





strFile = strName & ".pdf"
strPathFile = strPath & strFile


If bFileExists(strPathFile) Then
lOver = MsgBox("Overwrite existing file?", _
vbQuestion + vbYesNo, "File Exists")
If lOver <> vbYes Then

myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")
If myFile <> "False" Then
strPathFile = myFile
Else
GoTo exitHandler
End If
End If
Else


wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPathFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "PDF file has been created: " _
& vbCrLf _
& strPathFile
End If


exitHandler:
Exit Sub
errHandler:
MsgBox "Could not create PDF file"
Resume exitHandler
End Sub
Function bFileExists(rsFullPath As String) As Boolean
bFileExists = CBool(Len(Dir$(rsFullPath)) > 0)
End Function

 

[Omer_K]

To be more clear,
my path will be:
C:\Users\User1\Desktop\files

thank you so much..

 

[Omer_K]

Any ideas?

 

[John_w]

Change:

strPath = wbA.Path

to:

strPath = "C:\Users\User1\Desktop\files\"

 

[Omer_K]

It's work great!

Thank you