Excel macro's werken niet meer

[Pcnitwit]

Beste allemaal,

Sinds enige tijd werk ik met een excel bestand incl macro's voor het maken van mijn facturen. Als ik
een bepaalde toetsencombinatie gebruik, slaat hij het bestand op als .pdf en telt hij automatisch een factuurnummer
op. Nu heb ik een andere pc, windows 8.1 met dezelfde versie Office 2007. Maar ik krijg steeds foutmelding 5 wanneer
ik het op wil slaan. Macro's zijn ingeschakeld en de bestandslocatie is aangepast in de macro. Wat gaat er fout? Hellupie

dit is de macro code:
Sub VolgFact()
Range("F9").Value = Range("F9").Value + 1
Range("D1318").ClearContents
Range("F8").Value = Date
End Sub

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




alvast bedankt

 

[Ginger]

Hoe zeker ben je er van dat dit pad "C:\Users\jacht\Documents\Facturen 2016" ook werkelijk bestaat op die nieuwe machine?

 

[Pcnitwit]

kopieren plakken. zo zeker haha

 

[Ginger]

Wat is de waarde van cel F9?
Het hééft iets met de naam óf de lengte van de naam te maken (vond ik bij wat Googlen...)

 

[Cobbe]

Draai deze eens om zeker te zijn dat dat path wel bestaat:

Sub cobbe()
On error goto oeps
  MkDir "C:\Users\jacht\"
    MkDir "C:\Users\jacht\Documents\"
      MkDir "C:\Users\jacht\Documents\Facturen 2016\"
Oeps:
End Sub

 

[Ginger]

Laat deze 'ns lopen om te bepalen of dat pad écht bestaat?

Sub PadTest()

    MsgBox "Het pad bestaat? " & Len(Dir("C:\Users\jacht\Documents\Facturen 2016", 16)) > 0

End Sub

Je krijgt TRUE als de bestaat of FALSE als dat niet zo is...

[EDIT] Ha ha ha... dit is al de tweede keer vanavond dat ik een zelfde idee post ná een andere helper....

 

[edmoor]

Volgens mij kan je in Office 2007 een Excel bestand nog niet opslaan als PDF. Dat zit er dacht ik pas vanaf Office 2010 in.
Weet je dus zeker dat je hiervoor ook Office 2007 had? Als dat zo is dan had je waarschijnlijk een invoegtoepassing van Adobe geïnstalleerd die dat mogelijk maakte.

Lees ook dit:
http://www.dummies.com/how-to/content/how-to-save-an-excel-2007-workbook-as-a-pdf-file.html

 

[HSV]

Ik lees ook steeds iets over SP2.

 

[Ginger]

@edmoor, versie 2007 kon / kan dit ook al aan.

 

[edmoor]

@edmoor, versie 2007 kon / kan dit ook al aan.

Ik heb het zojuist in m'n eigen omgeving nagekeken en Opslaan als PDF is niet standaard in Office 2007:


En vanuit VBA geeft het Fout 5:

 

[Cobbe]

Dan heb jij toch een antieke versie.
In mijn versie zit het er wel in.

 

[edmoor]

Vandaar mijn bericht in #7.
En TS krijgt dus dezelfde fout.
Wellicht dat HSV gelijk heeft en het er vanaf SP2 wel in zit.

 

[Ginger]

We zitten inderdaad op de goede weg gok ik...

Remarks
You can save as a PDF or XPS file from a 2007 Microsoft Office system program only after you install an add-in. For more information, search for "Enable support for other file formats, such as PDF and XPS" on Office Online.

[EDIT] En hierbij de URL naar de Add In