Foutmelding bij opslaan van een bestand als pdf

[tkint]

Beste,

Ik heb deze code gevonden op dit forum

Sub PDF()
    Dim Pad As String
    Dim Naam As String
    
    Pad = "D:\bestanden tkintdeclercq\Robert\"
    Naam = Range("E15") & ".pdf"
    
    [COLOR="#FF0000"]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Pad & Naam, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub[/COLOR]

Ik krijg volgende foutmelding : fout 1004 bestand is nog geopend of er is een fout opgetreden bij het opslaan van het document.

Enig idee wat de oorzaak is?

 

[edmoor]

Welke versie van Office gebruik je?
Wat heb je precies in cel E15 staan?

 

[tkint]

Beste,

ik werk met de versie 2007 en in cel E15 staat 2016/512. Twee belangrijke vragen die ik mezelf niet heb gesteld. Heb inmiddels in cel E15 het "/" weggelaten en de sub funcitoneert.
Zet ik deze parameter OpenAfterPublish:=True op "false" of laat ik de regel weg om te vermijden dat het bestand wordt geopend?

Bedankt, Edmoor

 

[edmoor]

Een / teken mag niet in de naam van een bestand worden gebruikt dus die moet inderdaad weg. Die OpenAfterPublish is alleen nodig wanneer je direct na het maken van de PDF deze wilt openen. Als dat niet nodig is zet je OpenAfterPublish op False of je laat de hele regel weg zodat het er zo uit ziet:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Pad & Naam, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False

 

[VenA]

Als aanvulling op het bericht van edmore. Je mag alle standaard instellingen weglaten.

Een kortere en ook minder leesbare variant om de pdf te openen is

ActiveSheet.ExportAsFixedFormat 0, Pad & Naam, , , , , , True

Om er alleen een pdf van te maken volstaat dit.

ActiveSheet.ExportAsFixedFormat 0, Pad & Naam

0 = xlTypePDF 1 mag ook maar dan voor een .xps (xlTypeXPS).

Hier is wat meer te vinden over het gebruik van ExportAsFixedFormat. https://msdn.microsoft.com/en-us/library/office/ff198122.aspx

 

[tkint]

Edmoor en VenA, bedankt voor de hulp. Ik plaats het onderwerp als opgelost.