Opgelost wie kan deze code veranderen zodat het toch kan werken ( pdf )

[lsc.b]

normaal gezien zo dit moet werken getest in een leeg test blad maar als ik het in mijn originele blad zet niet de laatste regel geef dan een fout melding ik weet me geen raad meer originele blad zitten meerder macro`s en is beveiligt maar at moet volgens mij niet uit maken als het een ander code moet worden is het ook goed

Sub SaveActiveWorkbookAsPDF()

Dim saveLocation As String
saveLocation = "C:\Users\bonoi\OneDrive\Documenten\test\myPDFFile.pdf"


'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

 

[edmoor]

Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.

 

[lsc.b]

Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.

hier zit de fout
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation

 

[edmoor]

Dat liet je al zien.
Ik vraag om de foutmelding die je krijgt.

 

[lsc.b]

Dat liet je al zien.
Ik vraag om de foutmelding die je krijgt.

ik was net te laat staat er nu bij #3

 

[edmoor]

Dan ligt het dus niet aan de code, die is goed.
Als je daar op Foutopsporing klikt wordt die getoonde regel geel?

 

[lsc.b]

klopt maar waarom werkt het nu dan niet
en wat kan men aan de code veranderen dat het wel werkt

nog een gekeken de regel word dus geel en het pijltje staat bij
Filename:=saveLocation

 

[JEC.]

De melding is vrij duidelijk. Je bestand is niet opgeslagen

 

[edmoor]

Dat heeft niks met de code te maken.
De code is goed.
Er is aan de hand wat er in die foutmelding staat.
Hij kan dus niet bij die PDF omdat die al ergens geopend is.
Wijzig die saveLocation eens naar een niet OneDrive locatie.

 

[lsc.b]

ik heb de code iet aangepast de zelfde regel is iets niet goed ik heb nu deze fout melding

 

[edmoor]

Wat is er niet duidelijk aan wat ik in #9 schreef?

 

[lsc.b]

Sorry niet gezien ik ga het eens proberen

 

[lsc.b]

Dat heeft niks met de code te maken.
De code is goed.
Er is aan de hand wat er in die foutmelding staat.
Hij kan dus niet bij die PDF omdat die al ergens geopend is.
Wijzig die saveLocation eens naar een niet OneDrive locatie.

blijft het zelfde zie #10

 

[edmoor]

Wat is dan nu de waarde van de variabele saveLocation?

 

[lsc.b]

Sub SaveActiveWorkbookAsPDF()

Dim saveLocation As String
saveLocation = "C:\Users\testmap\pdf_uren\myPDFFile.pdf" & Format(Now(), "dd mm yyyy hh mm") & ".pdf"

'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

 

[edmoor]

Nu maak je een puinhoop van saveLocation.
Doe dit eens:

Sub SaveActiveWorkbookAsPDF()
    Dim saveLocation As String
    saveLocation = ThisWorkbook.Path & "\MyFile.pdf"
   
    'Save active workbook as PDF
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=saveLocation
End Sub

 

[lsc.b]

helaas geeft de zelfde foutmelding

als ik in #1 Sub SaveSelectionAsPDF() van maak en de laatse reggel dit van maak
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
dan staal hij het wel op maar daar hub ik niks aan het is maar 1 cel

 

[edmoor]

Dan weet ik niet wat je allemaal doet.
Die code werkt prima, daar mankeert niets aan.
Plaats dat Excel document eens hier.

 

[lsc.b]

kan even duren moet veel vertrouwde info er uit halen en dan weet ik nog niet of het nog werkt

 

[edmoor]

Zet die code in een nieuw document en vul iets in A1 in.
Test het dan.