Save sheet as pdf goes to wrong folder

[Arie Bos]

I created a new folder 'Apples', and want to save a file in that folder. But my code keeps saving the pdf in the folder in which the new 'Apples' folder was created, and not in the sub-folder 'Apples' itself.
So I tried to put &"\" in fileNameSave between vDir & PDFName, but then a compile error turns up.

Anyone knows how the pdf can be saved one level lower in 'Apples'?

Public Function vDir() As String
    vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName")
End Function
Sub CommandButton1_Click()
fileSaveName = vDir & Range("PDFName")
Sheets("Overview").Select
'Save 'Overview' as PDF
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=vDir & PDFName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=1, To:=1, _
    OpenAfterPublish:=False
End Sub

 

[Trixterz]

Try this...

Public Function vDir() As String
    vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName")
End Function

Sub CommandButton1_Click()
    Dim FileSaveName As String
    FileSaveName = vDir & Range("PDFName")
    
    'Check if the File Save Name is correct in the immediate window.
    Debug.Print FileSaveName
    
    Sheets("Overview").Select
    'Save 'Overview' as PDF
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FileSaveName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        From:=1, To:=1, _
        OpenAfterPublish:=False
End Sub

 

[Arie Bos]

Thank you Trixterz,
Unfortunately it still saves the pdf in the above folder, not in Apples itself...

 

[Arie Bos]

I solved it with the following. code, but I think it not very efficient...

Public Function vDir() As String
    vDir = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName")
End Function

Public Function vDir1() As String
    vDir1 = Environ("userprofile") & "\Documents\Soniq\Sales\" & Range("CompanyName") & "\"
End Function

Sub CommandButton1_Click()
      Dim FileSaveName As String
      FileSaveName = vDir1 & Range("PDFName")

      'Check if the File Save Name is correct in the immediate window.
      Debug.Print FileSaveName

      Sheets("Overview").Select
      'Save 'Overview' as PDF
      ActiveSheet.ExportAsFixedFormat _
          Type:=xlTypePDF, _
          Filename:=FileSaveName, _
          Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, _
          IgnorePrintAreas:=False, _
          From:=1, To:=1, _
          OpenAfterPublish:=False
End Sub