Adobe Reader DC

Status
Niet open voor verdere reacties.
J

jverstraten

Gebruiker
Lid geworden
31 dec 2009
Berichten
132
In excel heb ik een macro staan die het werkblad bij het sluiten automatisch opslaat als een PDF.

Dat gaat perfect

Echter ik kan daarna het PDF bestand niet openen met Adobe Reader DC, krijg de foutmelding dat het bestandstype niet wordt ondersteund of omdat het beschadigd is.


Willekeurige andere PDF bestanden kan ik wel normaal openen. Wordt hij vanuit excel toch verkeerd opgeslagen ??


Wie kan mij hier bij helpen


Groeten
Johan.
 
Zonder dat je die macro laat zien valt daar niets over te zeggen.
 
Dit is de macro



Sub Auto_Open()
ChDir "C:\Users\Johan\Documents\AAB\Factuur"
Dim filenaam As String
Application.DisplayAlerts = False
Cells(16, 5) = Cells(16, 5) + 1
Start = MsgBox("Is dit het juiste faktuurnummer ?", vbQuestion + vbYesNo)
If Start = 6 Then
ActiveSheet.SaveAs ("Faktuur")
filenaam = Cells(16, 5)

ActiveSheet.SaveAs "Factuur" & " " & Range("E16").Value & " .pdf"

Else
Cells(16, 5) = Cells(16, 5) - 1
End If


End Sub

Gr
Johan
 
Je slaat nu een Excel document op met de extensie .pdf
Dat maakt het geen pdf maar een bestand dat door zowel Excel als een PDF reader niet meer kan worden gebruikt.

Maak er zoiets van:
Code: 
Sub Auto_Open()
    Pad = "C:\Users\Johan\Documents\AAB\Factuur"
    Cells(16, 5) = Cells(16, 5) + 1
    If MsgBox("Is dit het juiste faktuurnummer ?", vbQuestion + vbYesNo) = vbYes Then
        Sheets("Factuur").ExportAsFixedFormat 0, Pad & "\" & Cells(16, 5).Value
    Else
        Cells(16, 5) = Cells(16, 5) - 1
    End If
End Sub
 
Laatst bewerkt:
Hallo,
Bedankt voor uw reactie.

Ik heb de code over genomen, en hij wordt nu inderdaad als PDF weggeschreven, die ook als PDF te openen is.


Echter het probleem is nu dat de verandering op het werkblad niet opgeslagen worden.
Ik heb er al een range voorgezet, maar die gok werkt niet.

De code ziet er nu zo uit.

Sub Auto_Open()
Pad = "C:\Users\Johan\Documents\AAB\Factuur"
Cells(16, 5) = Cells(16, 5) + 1
If MsgBox("Is dit het juiste faktuurnummer ?", vbQuestion + vbYesNo) = vbYes Then
Range("A1:M51").ExportAsFixedFormat 0, Pad & "" & Cells(16, 1) & Cells(16, 5).Value
Else
Cells(16, 5) = Cells(16, 5) - 1
End If
End Sub
 
Ik neem aan dat je gewoon het document wilt opslaan?
Code: 
Activeworkbook.Save
 
Dank voor de snelle reactie


Ik denk dat ik de code op de verkeerde plaats gebruik

Als ik die code plaats, in plaats van "range ….." krijg ik een foutmelding

Sub Auto_Open()

Pad = "C:\Users\Johan\Documents\AAB\Factuur"
Cells(16, 5) = Cells(16, 5) + 1
If MsgBox("Is dit het juiste faktuurnummer ?", vbQuestion + vbYesNo) = vbYes Then

Activeworkbook Save. ExportAsFixedFormat 0, Pad & "" & Cells(16, 1) & Cells(16, 5).Value

Else
Cells(16, 5) = Cells(16, 5) - 1
End If


End Sub
 
Dat is inderdaad helemaal fout, het is een op zichzelf staande opdracht.
Code: 
Sub Auto_Open()
    Pad = "C:\Users\Johan\Documents\AAB\Factuur"
    Cells(16, 5) = Cells(16, 5) + 1
    If MsgBox("Is dit het juiste faktuurnummer ?", vbQuestion + vbYesNo) = vbYes Then
        Activeworkbook.Save
        Sheets("Factuur").ExportAsFixedFormat 0, Pad & "\" & Cells(16, 5).Value
    Else
        Cells(16, 5) = Cells(16, 5) - 1
    End If
End Sub
 
Laatst bewerkt:
Ook die optie had ik geprobeerd maar kreeg ook foutmelding " Compliteerfout : Ongeldig gebruik van een eigenschap
 
Wat er in #8 staat is goed, dat kan geen compileerfout geven.,
 
Nu heb ik de complete code uit #8 gekopieerd en in mijn macro geplakt, krijg geen foutcode meer en wordt het werkblad keurig als PDF opgeslagen maar een aanpassing van tekst en/of cijfers op het werkblad worden niet opgeslagen, alleen de vaste tekst, de datum ed worden goed opgeslagen.
Ook het factuurnummer wat bij openen aangepast wordt wel goed opgeslagen.
 
Hallo edmoor

Waarschijnlijk gaat er iets mis
Krijg twee mailtjes kort achter elkaar, maar daar staat geen antwoord bij :-(
 
Dat laatste mailtje kan je negeren.
Ik heb geen idee wat je nu bedoeld dat er niet wordt opgeslagen.

Het werkblad factuur als apart werkboek?
 
Laatst bewerkt:
Ben alweer een hele tijd aan het stoeie, maar het lukt niet.

ik gebruik een normaal excel werkblad, met die code van u wordt het werkblad keurig als PDF opgeslagen, behalve de tekst of cijfers wat ik op het werkblad heb ingevuld.

Open ik vervolgen weer een nieuwe factuur (werkblad) staat de verandering van het vorige werkblad al in gevuld. Ongelofelijk maar waar.

Dus ik pas een werkblad aan, wat ik op de normale manier met het rode kruisje rechtsboven sluit. Dan krijg ik de vraag of ik het op wil slaan, wat ik met ja bevestig. Als ik dan kijk wat er opgeslagen is, is het een blanco factuur (werkblad) met de standaard tekst van het werkblad, wel met de verandering van het factuur no.
Wanneer ik dan een nieuwe factuur (werkblad) open, zie ik tot mijn verbazing dat de aanpassing van de vorige factuur is ingevuld.


Ik hoop dat ik het voor u begrijpelijk omschreven heb.
 
Ben in het weekend ook nog druk bezig geweest, maar zonder resultaat.

Heb van internet nog andere codes gehaald, maar komt allemaal op hetzelfde neer, slaat het wel op als PDF maar zonder verandering.

Wanneer ik het werkblad gewoon opsla als Excel blad, ik open het opnieuw en sla hem handmatig op als PDF dan is het wel goed


Nog enig idee ??????
 
Plaats dan je document want ik begrijp nog steeds niet wat je nu precies en op welk moment wil.
De code in #8 slaat het Excel document gewoon keurig op met de wijziging in het factuurnummer.
 
Laatst bewerkt:
excel 1.jpg gestart met werkblad
opgeslagen.jpg werkblad opgeslagen, keurig als PDF
geopend.jpg Pdf geopend (alleen fak.no is goed meegenomen, maar de willekeurige tekst is niet opgeslagen.
 
Mooie plaatjes, maar ik zie nog geen voorbeeld document.
 
Dat is nog steeds geen Excel document.
Waarom doet iedereen altijd zo moeilijk als er om een voorbeeld document wordt gevraagd...:confused:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan