Foutmelding bij macro SavePDF

[seabert1]

Hallo,

Ik ben nieuw op dit forum en heb niet super veel kennis van excel.
Ik heb voor mijn werkgever een kassalijst opgesteld en een macro ingevoegd om het werkblad op te slaan als pdf
Nu werkt het op de ene computer wel maar als ik het op een andere computer open krijg ik de foutmelding fout 1004 tijdens uitvoering: het document is niet opgeslagen etc. etc. Wellicht dat iemand hier op het forum mij kan helpen.

ik heb de volgende code gebruikt:

Sub SavePDF()
    Dim fName As String
With ActiveSheet
    fName = .Range("A2").Value & .Range("A3").Value
    .ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
            "Y:\RECEPTIE\KASSALIJSTEN\Kassalijst " & fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Alvast Bedankt

 

[HSV]

Als die andere Pc werkt met Excel 2003 of lager, dan werkt het niet.
Saveas PDF is pas vanaf Excel 2007.

 

[edmoor]

Kijk ook eens of op de PC waar het niet werkt de schijfletter Y: wel naar dezelfde locatie verwijst als op de PC waar het wel werkt. Verder zou ik voor de leesbaarheid de macro zo schrijven:

Sub SavePDF()
    Dim fName As String
    Dim fMap As String

    fMap = "Y:\RECEPTIE\KASSALIJSTEN\Kassalijst "
    fName = Range("A2").Value & Range("A3").Value

    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=fMap & fName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

Maar dat staat los van je fout. De werking blijft gelijk.

 

[Warme bakkertje]

Allereerst welkom op het forum.
Als je het bestand in dezelfde directory zet als de opgeslagen PDF-bestanden heb je aan deze voldoende en werkt hij ongeacht waar het bestand staat.

Sub SavePDF()
    With ActiveSheet
        .ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & _
            "Kassalijst " & .Range("A2").Value & .Range("A3").Value
    End With
End Sub

 

[seabert1]

Dank jullie wel voor jullie reacties. De Y-schijf verwijst naar hetzelfde locatie. Het gaat wel om een netwerkschijf.
Ik heb ook al de code van warme bakkertje geprobeerd maar ik krijg dezelfde foutmelding. Op alle pc's draait Excel 2010 en op mijn laptop deed hij het ook.
Ik zou verder niet weten waar het aan kan liggen.