opslaan pdf

[don42]

beste helpers,

heb een probleempje als ik een werkblad wil opslaan in PDF
als ik de pdf de naam wil geven van de waarde uit cel O1 bv Jan Janssen
dan wordt dit weggeschreven als Jan%20Janssen
weet iemand hoe die spatie (wil geen koppelteken) wel netjes kan krijgen?


Don

Private Sub CommandButton3_Click()
 Application.ScreenUpdating = False
'-- Opslaan order als PDF
    bestandsnaam = "Rooster" & Range("o1").Value ' In deze cel "o1" staat dus die naam met 1 of meer spaties
    bestandsnaam1 = Range("s2").Value ' = een adres: d:/amsterdam/1001/
    If Dir(bestandsnaam1, vbDirectory) = vbNullString Then MkDir bestandsnaam1
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     bestandsnaam1 & bestandsnaam & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
     MsgBox "Het roosters van" & vbNewLine & Range("o1").Value & " is ook opgeslagen als PDF in de map " & vbNewLine & bestandsnaam1
     Application.ScreenUpdating = True




Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments

With OutLookMailItem
.To = Range("s1")
.Subject = "Rooster 1001"
.Body = "Beste " & Range("o1") & " in de bijlage je roulering op naam." & vbNewLine & "Met vriendelijke groet," & vbNewLine & "VC"
myAttachments.Add bestandsnaam1 & bestandsnaam & ".pdf"

'.send
.Display
End With

Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
End Sub

 

[don42]

Hallo allemaal ik heb het gevonden.
het adres in cel s2 was d:/amsterdam/1001/
dit veranderd in d:\amsterdam\1001\
En nu werkt het wel.