VBA - Excel kan niet meer opslaan als PDF

[cbs48]

Goedemorgen,

Mijn naam is Bart en ik heb een klein probleempje met VBA en Excel. ik hoop dat jullie mij op weg kunnen helpen.

Ik heb een excel bestand voor mijn facturatie waarbij ik via VBA een aantal taken uitvoer.

• ophogen factuurnummer
• 1 werkblad opslaan als PDF
• 1 werkblad opslaan als csv file

Op zich nooit een probleem echter heb ik een nieuwe laptop met Windows 10 Pro en Excel 2016. (vorige laptop draaide op XP en Excel 2010)

Nu heb ik het probleem dat het factuurnummer niet wordt opgehoogd maar op 1 wordt gezet. (bij het opslaan van het nummer 1364 zou het dus 1365 moeten worden maar de waarde wordt 1)
En dat in plaats van het aanmaken van een PDF wordt het geopend in Word.

Ik heb deze VBA code staan:

Sub VolgFact()
ActiveWorkbook.Worksheets("invoerblad").Range("I9").Value = Range("I9").Value + 1
ActiveWorkbook.Worksheets("invoerblad").Range("C1").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("C2").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("F8").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("D11:D13").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("A17:B23").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("F17:L23").ClearContents

End Sub

Public Sub OpslBestand()
ActiveWorkbook.Worksheets("invoerblad").Unprotect Password:="***"
ActiveWorkbook.Worksheets("exportU4").Unprotect Password:="***"
'bewaar sheet factuur als pdf

myFactuur = ActiveWorkbook.Worksheets("invoerblad").Cells("10", "H")
myDebiteur = ActiveWorkbook.Worksheets("invoerblad").Cells("1", "C")


With Sheets("factuur")
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFactuur + "_" + myDebiteur + ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End With

'bewaar sheet exportU4 als csv
ActiveWorkbook.Worksheets("exportU4").Copy


With ActiveWorkbook
   .SaveAs Filename:=myFactuur + ".csv", FileFormat:=xlCSV
   .Close False
End With

VolgFact

ActiveWorkbook.Worksheets("invoerblad").Protect Password:="***"
ActiveWorkbook.Worksheets("exportu4").Protect Password:="***"

With ActiveWorkbook
   .Save
End With


End Sub

Heeft iemand een suggestie hoe ik dit op kan lossen? Ik heb eerlijk gezegd nul ervaring met VBA was al erg blij dat ik het destijds met knippen en plakken en heel veel tijd voor elkaar heb gekregen.

 

[snb]

Kun je de VBA-code in je post svp tussen code tags zetten (icoon # ) in het 'editor' scherm.

 

[snb]

Sub VolgFact()
  with ActiveWorkbook.sheets("invoerblad")
    .Range("I9").Value = .Range("I9").Value + 1
    .range("C1:C2,F8,D11:D13,A17:B23,F17:L23").ClearContents
  end with
End Sub

 

[edmoor]

Welkom bij Helpmij.
Is Word misschien als standaard programma voor het lezen van PDF's ingesteld?

 

[cbs48]

many thnx

Hallo snb en edmoor.

hartelijk dank. Waren idd de oplossingen.

Bart