Visual Basic foutmelding 1004 tijdens runtime: door toepassing of object gedefinieerd

[Selba012]

Sinds de update van Windows 10 vanmorgen, krijg ik bij het verwerken van een Macro in mijn spreadsheet de volgende foutmelding:

Visual Basic foutmelding 1004 tijdens runtime: door toepassing of object gedefinieerd

Bij foutopsporing krijg ik de volgende melding:

Filename:=locatie & pdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Kan iemand mij uitleggen wat hier ineens fout gaat?

Alvast bedankt voor het meedenken.

Groet.
Paul

 

[edmoor]

Met dat kleine stukje code dat je laat zien valt er niets over te zeggen anders dan wat de melding al zegt. Er wordt getracht een niet bestaand object te benaderen.

 

[Selba012]

Volledige macro

Sub volgend()
Sheets("Invoer").Select
Range("C14:C19").ClearContents
Cells(11, 2) = Cells(11, 2) + 1

End Sub
Sub bevestigen()

Sheets("Purchase order").Select
locatie = "/Users/Selbach-hrmadviesnl/Documents/1. SHA OFFICE/1. KLANTEN - bestand/"
pdf = Range("C24") & ".pdf"
Sheets("Purchase order").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=locatie & pdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

datum = Range("D24")
nummer = Range("C24")
klant = Range("F24")
vertaler = Range("G8")
taal = Range("G15")
vertalenofproofreading = Range("C27")
woorden = Range("B27")
kost = Range("I27")

Sheets("VenW").Select
rij = Sheets("VenW").Cells(Rows.Count, 1).End(xlUp).Row
totaal_income = Sheets("VenW").Cells(rij, 9)
totaal_cost = Sheets("VenW").Cells(rij, 10)
Sheets("VenW").Range("A" & rij & ":K" & rij).ClearContents

Sheets("VenW").Range("A" & rij & ":K" & rij).Interior.Color = RGB(255, 255, 255)
Sheets("VenW").Range("A" & rij + 1 & ":K" & rij + 1).Interior.Color = RGB(141, 180, 227)
Sheets("VenW").Cells(rij, 1) = datum
Sheets("VenW").Cells(rij, 2) = Month(datum)
Sheets("VenW").Cells(rij, 3) = nummer
Sheets("VenW").Cells(rij, 4) = klant
Sheets("VenW").Cells(rij, 5) = vertaler
Sheets("VenW").Cells(rij, 6) = taal
Sheets("VenW").Cells(rij, 7) = vertalenofproofreading
Sheets("VenW").Cells(rij, 8) = woorden
Sheets("VenW").Cells(rij, 10) = kost
Sheets("VenW").Cells(rij, 11) = Sheets("VenW").Cells(rij, 11) - kost

totaal_income = totaal_income + income
totaal_cost = totaal_cost + kost
Sheets("VenW").Cells(rij + 1, 1) = "Totaal"
Sheets("VenW").Cells(rij + 1, 9) = totaal_income
Sheets("VenW").Cells(rij + 1, 10) = totaal_cost
Sheets("VenW").Cells(rij + 1, 11) = totaal_income - totaal_cost

Sheets("VenW").Range("A" & rij + 1 & ":K" & rij).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Color = RGB(127, 127, 127)
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = RGB(127, 127, 127)
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Color = RGB(127, 127, 127)
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Color = RGB(127, 127, 127)
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Color = RGB(127, 127, 127)
.Weight = xlThin
End With
Sheets("VenW").Cells(rij, 1).Select


End Sub

 

[edmoor]

En wat is op dat moment de waarde in cel C24?
Is het blad Purchase order aanwezig?

 

[OctaFish]

Ik snap dat je een klein stukje postte, deze lengte is niet te lezen! Kun je die niet even bewerken en opmaken met de CODE knop?

 

[VenA]

Moet de / geen \ zijn?

Dus iets van

locatie = "[COLOR="#FF0000"]D:\[/COLOR]Users[COLOR="#FF0000"]\[/COLOR]Selbach-hrmadviesnl[COLOR="#FF0000"]\[/COLOR]Documents[COLOR="#FF0000"]\[/COLOR]1. SHA OFFICE[COLOR="#FF0000"]\[/COLOR]1. KLANTEN - bestand[COLOR="#FF0000"]\[/COLOR]"

Niet getest omdat er geen voorbeelbestand bij zit maar de code kan je reduceren tot zoiets

Sub bevestigen()
locatie = "D:\Users\Selbach-hrmadviesnl\Documents\1. SHA OFFICE\1. KLANTEN - bestand\"

With Sheets("Purchase order")
    .ExportAsFixedFormat xlTypePDF, locatie & .Range("C24")
    kost = .Range("I27")
    ar = Array(.Range("D24").Value, Month(.Range("D24").Value).Range("C24"), Range("F24").Value, .Range("G8").Value, .Range("G15").Value, .Range("C27").Value, .Range("B27").Value, kost)
End With

With Sheets("VenW")
    rij = .Cells(Rows.Count, 1).End(xlUp).Row
    totaal_income = .Cells(rij, 9)
    totaal_cost = .Cells(rij, 10)
    With .Range("A" & rij & ":K" & rij)
        .ClearContents
        .Interior.Color = RGB(255, 255, 255)
        .Offset(1).Interior.Color = RGB(141, 180, 227)
        .Offset(1).Borders.LineStyle = xlContinuous
    End With
    .Cells(rij, 1).rezize(, 10) = ar
    .Cells(rij, 11) = .Cells(rij, 11) - kost
    totaal_income = totaal_income + income
    totaal_cost = totaal_cost + kost
    With .Cells(rij, 1).Offset(1)
        .Value = "Totaal"
        .Offset(, 9).Resize(, 3) = Array(totaal_income, totaal_cost, totaal_income - totaal_cost)
    End With
End With
End Sub

income krijgt volgens mij nergens een waarde en kan er dus uit of de code heeft nog nooit correct gewerkt.

@OctaFish,
Twee 'witregels' ingevoegd zodat je toch even mag 'muisslepen'

 

[edmoor]

Moet de / geen \ zijn?

VBA vind ze beide goed

 

[VenA]

VBA vind ze beide goed

Bij mij niet in Win7

Sub VenA_error()
    c00 = "D:/Temp/"
    ThisWorkbook.SaveAs c00 & Format(Now, "hhmmss") & ".xlsm", 52
End Sub

Sub VenA_goed()
    c00 = "D:\Temp\"
    ThisWorkbook.SaveAs c00 & Format(Now, "hhmmss") & ".xlsm", 52
End Sub

 

[edmoor]

Hier gaat het prima in Office 2016 op Windows 10.
Ik vond het ook vreemd, maar het werkt hier wel.
Toch is het inderdaad beter om de officiële notatie met de \ te gebruiken.

 

[VenA]

Zo modern ben ik nog niet:d

 

[edmoor]

Zou ik ook niet zijn als het voor mij niet gratis was