• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Foutmelding bij macro SavePDF

Status
Niet open voor verdere reacties.

seabert1

Nieuwe gebruiker
Lid geworden
23 nov 2014
Berichten
2
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:

Code:
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
 
Als die andere Pc werkt met Excel 2003 of lager, dan werkt het niet.
Saveas PDF is pas vanaf Excel 2007.
 
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:

Code:
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.
 
Laatst bewerkt:
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.
Code:
Sub SavePDF()
    With ActiveSheet
        .ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & _
            "Kassalijst " & .Range("A2").Value & .Range("A3").Value
    End With
End Sub
 
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.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan