Bestand met macro's opslaan als .PDF

[Pcnitwit]

Goedenavond,

Mijn vraag is het volgende:

Ik heb een factuur gemaakt met macro's erin waardoor EXCEL automatisch het volgende factuurnummer pakt na opslaan als .PDF middels sneltoets.
Dit werkt allemaal prima maar telkens als ik het factuur daarna probeer te openen, krijg ik de foutmelding dat het bestand niet wordt ondersteund of
dat het is beschadigd.
Wat doe ik verkeerd?

Mijn Macro is alsvolgt:

Public Sub OpslBestand()
Dim NieuwFact As Variant
ActiveSheet.Copy
NieuwFact = "C:\Users\Bas\Documents\Fact" & Range("F9").Value & ".pdf"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
VolgFact
End Sub

 

[edmoor]

Je maakt geen PDF maar een Excel bestand met de extensie .pdf

Maak er eens dit van:

    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=NieuwFact, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Tip:
NieuwFact moet je declareren als een string, niet als variant.
Het is op zich geen probleem, maar zonde van de geheugenruimte.

 

[Pcnitwit]

Werkt (bijna) super nu.
Alleen slaat hij het factuur nu niet meer steeds op als nieuw factuurnummer (F9), die blijft nu een vast getal waarna hij het factuur
overschrijft zeg maar.

Nu staat er dit als Macro:

Public Sub OpslBestand()
Dim NieuwFact As Variant
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\Bas\Documents\Fact" & Range("F9").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.Close
VolgFact
End Sub


Sorry maar zoals mijn gebruikersnaam al zegt: ik ben echt en nitwit xD

 

[Pcnitwit]

Opgelost;

Activeworkbook.close ertussen uit gehaald en nu werkt het optimaal

 

[edmoor]

Ok dan :thumb:

 

[Pcnitwit]

Super, hartelijk bedankt EdMoor :d

Topic kan sluiten!

 

[edmoor]

Minder nitwit dan je zelf dacht

 

[VenA]

Of toch een beetje

Wat doet NieuwFact als variabele en wat gebeurt er als VolgFact aangeroepen wordt? En de code staat niet tussen codetags:d

Sub VenA()
With ActiveWorkbook
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Bas\Documents\Fact" & Range("F9").Value & ".pdf", OpenAfterPublish:=False
End With
End Sub

voor het maken van de pdf is voldoende.