Opslaan in zelfgemaakte map

[Keenny]

Wie kan mij helpen.

Ik zou moeten macro hebben die mijn blad opslaat als pdf in een map die hij zelf aanmaakt.
Bekijk bijlage question.xlsx

(

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\kenny\Documents\kenny\Gent\Moments\" & Sheets("Moments").Range("E6").Value & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

)
Deze code heb ik al voor pdf. Dus nu moet hij enkel nog een map aan maken

Dank u voor jullie hulp!

 

[Elsendoorn2134]

Keenny,

Je kunt heel makkelijk met MkDir "C:\........." een directory aanmaken.
Het opstellen van de PDF kun je daar dan gewoon naar verwijzen.

Veel succes.

 

[Keenny]

Dit is me gelukt dank u wel