pdf maken

[edmoor]

En wat wijzig je dan in de code om de in het userform ingetikte waarde te gebruiken?

 

[don42]

Jezus, ik had achter elke achternaam een spatie staan
die heb ik nu verwijderd daarmee is het opgelost

 

[don42]

Heb het voor elkaar
heel erg bedankt voor jullie hulp
ook als de map nog niet aangemaakt is werkt het nu perfect

Private Sub CommandButton2_Click()
Dim bestandnaam As String
bestandnaam = "D:\formulier\" & Sheets("Aanvraag2").Range("d14").Value
naam = Sheets("Aanvraag2").Range("d14").Value
CreateObject("shell.application").Namespace("D:").newfolder "formulier\" & naam
bestandnaam = "D:\formulier\" & Sheets("Aanvraag2").Range("d14").Value
If Dir(bestandnaam, vbDirectory) = vbNullString Then MkDir bestandnaam
naam = Sheets("Aanvraag2").Range("d14").Value
ChDir "D:\formulier\" & naam
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\formulier\" & naam & "\" & naam & "-Aanvraag2" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        MsgBox "Het bestand is opgeslagen in  " & bestandnaam & "\" & naam & "-Aanvraag2.pdf"
     End Sub

 

[edmoor]

Nu nog alles netjes uitlijnen en in ieder geval die ChDir opdracht weg halen. Die doet helemaal niets.
En waarom staat dat MkDir verhaal er nog in en geef je de variabelen naam en bestandsnaam op 2 plekken dezelfde waarde?

Volgens mij is dit voldoende:

Private Sub CommandButton2_Click()
    Map = "D:\formulier\" & Sheets("Aanvraag2").Range("D14").Value
    Bst = Sheets("Aanvraag2").Range("D14").Value
    
    CreateObject("shell.application").Namespace("D:\").newfolder "formulier\" & Bst
    Bst = Map & "\" & Bst & "-Aanvraag2.pdf"
    ActiveSheet.ExportAsFixedFormat 0, Bst
    MsgBox "Het bestand is opgeslagen in " & Bst
End Sub

 

[snb]

Private Sub CommandButton2_Click()
    with Sheets("Aanvraag2").Range("D14").Value
        CreateObject("shell.application").Namespace("D:\").newfolder "formulier\" & .value
        ActiveSheet.ExportAsFixedFormat 0, "D:\formulier\" & .Value & "\" & .value & "_Aanvraag2.pdf"
    end with
End Sub