export naar PDF geeft %20 in bstandsnaam

[slottieboom]

Hallo,

Ik heb met de recorder een macro opgenomen en iets aangepast.
Op zich werkt dit wel maar ik krijg in plaats van spaties %20 in de bestandsnaam.

2 vragen: is dit te voorkomen, en is het mogelijk om een save as venster te krijgen met een gesuggereerde bestandsnaam op basis van 2 celwaarden?
Bekijk bijlage Voorbeeld.xlsm

Dit is een voorbeeldbestandje

 

[Cobbe]

Zo misschien:

naam = "\" & Application.Substitute(Range("invoergegevens!B6") & " " & Range("invoergegevens!B7"), " ", "_")

 

[slottieboom]

Super, bedankt voor het snelle antwoord. Dat werkt in ieder geval.

Mischien een mogelijkheid om eventueel een save as te krijgen?

 

[Cobbe]

Is dat goed genoeg?

Sub Macro1()

    Sheets(Array("voorbeeld 1 ", "Voorbeeld 2")).Select
    Sheets("voorbeeld 1 ").Activate
    
    pad = ActiveWorkbook.Path
    naam = "\" & Application.Substitute(Range("invoergegevens!B6"), " ", "_") & "_" & Application.Substitute(Range("invoergegevens!B7"), " ", "_")
  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        pad & naam, Quality:=xlQualityStandard, IncludeDocProperties:=True _
        , IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.GetSaveAsFilename InitialFileName:=pad & naam
   
End Sub

 

[HSV]

Als je pdf bestanden opent of opslaat in Adobe acrobat reader heb je geen last van %20.
Wel met Miscrosoft Edge.

 ActiveSheet.ExportAsFixedFormat 0, pad & "\" & naam, 0, , True, , , True
Thisworkbook.save

 

[slottieboom]

Cobbe en HSV, super bedankt voor de input alvast.

@ Cobbe, de laatste code slaat de pdf al op en laat dan een save as zien, als ik in de save as een naam invul slaat hij echter geen bestand op.

@ HSV, jouw code is een stukje korter, maar geeft niet de mogelijkheid tot safe as.

 

[Cobbe]

Ja schuif die Application-regel dan op toto boven die PDF-creatie

 

[slottieboom]

Super !!!!!! Helemaal geweldig mannen.

Deze kan op opgelost

 

[HSV]

Inderdaad heb ik me daar niet mee beziggehouden.
Ik was nieuwsgierig waarmee je de pdf opende of opsloeg.

Ik had even een testje gedaan en daarbij kreeg ik %20 op de lege ruimtes bij het openen in Edge.
Bij Acrobat reader is dit niet het geval.