Verkeerde map

[HammerJohn]

Ik heb de volgende vraag als ik onderstaande code gebruik, plaatst hij het pdf bestand in de map \documenten\ submap die ik met code genereer
Maar nu wil ik dat in de map c:\Deelnemer\ en daarna de code, kan iemand mij hier mee helpen a.u.b ik heb al van alles geprobeerd.

Alvast hartelijk dank.

Private Sub CommandButton21_Click()
Sheet55.Visible = True
Worksheets("Moreel Kompas 4e").Select
Dim pad As String
    Dim naam As String
    Dim foldername As String

    foldername = Sheets("Menu").Range("I12").Value & " PDF"
    pad = foldername & "\"
    naam = "PDF moreelkompas 4e " & Sheets("Menu").Range("I12").Value & Format$(Now, "  yyyy-mm-dd ")

    On Error Resume Next
    If Dir(foldername) = "" Then MkDir (foldername)
    
    myarr = Array("Moreel Kompas 4e")
    For Each elm In myarr
        If elm = "Moreel Kompas 4e" Then
            Sheets(elm).PageSetup.PrintArea = "$a$1:$s$34"
        Else
            Sheets(elm).PageSetup.PrintArea = "$a$1:$s$34"
        End If
    Next
    Sheets(Array("Moreel Kompas 4e")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & naam, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
    Worksheets("Moreel Kompas 4e").Select
End Sub

 

[edmoor]

Volgens mij, maar je hebt geen document geplaatst, kan je dat gewoon aangeven in Sheets("Menu").Range("I12")

Overigens wel een heel vreemde code die anders en netter in elkaar gestoken kan worden.

 

[HammerJohn]

Dat klopt dat doe ik ook maar ik verwijs naar een naam_pdf maar die map plaats hij in documenten
en niet in de map die ik wil
Of is het plaatsen van een pdf standaard altijd in documenten map.
,

 

[edmoor]

Nee, je geeft de locatie hier zelf op:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & naam

 

[HammerJohn]

Vreemd want ik geef nergens documenten aan want in I12 staat een naam

 

[edmoor]

Ik merkte dit op in #2:
"maar je hebt geen document geplaatst"

 

[VenA]

myarr = Array("Moreel Kompas 4e")
    For Each elm In myarr
        If elm = "Moreel Kompas 4e" Then
            Sheets(elm).PageSetup.PrintArea = "$a$1:$s$34"
        Else
            Sheets(elm).PageSetup.PrintArea = "$a$1:$s$34"
        End If
    Next

Ziet eruit alsof je er niets van begrijpt. 1 element in een array en dan een lusje? En als als het ene element voldoet aan een voorwaarde dan doe iets en als het niet voldoet doe dan hetzelfde?