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

[lsc.b]

code werkt perfect maar niet in het origineel

 

[edmoor]

Dan zie je dus dat het niet aan de code ligt.
Als je wil dat ik er verder naar kijk heb ik toch het originele document nodig.

 

[JEC.]

Heb je wel bewerk rechten in die onedrive map?

 

[snb]

Zo gaat het altijd goed

Sub M_snb()
  ActiveWorkbook.ExportAsFixedFormat 0, application.defaultfilepath & "voorbeeld.pdf"
End Sub

 

[edmoor]

Je mist daar nog wel een \ teken.

 

[edmoor]

Dat ligt aan je werkblad Logboek.
Kennelijk is het niet mogelijk die als PDF op te slaan.
Maak er maar eens dit van:

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

En voer hem dan eerst eens uit met het blad feestdagen(2) actief en daarna het blad logboek.

 

[lsc.b]

sorry dit begrijp ik even niet
feestdagen(2) staat normaal op 0-xlsheethidden
en de macro staat er al of moet deze in thisworkbook komen ?
en waar kan ik kunnen zien wat er dan niet goed is van mijn logboekbestand
als ik het bestand opsla onder een andere naam zou het dan opgelost kunnen zijn

 

[lsc.b]

ik ga op nieuw beginnen even snel een beginnetje gemaakt met de kalender en tot zover werkt het
ik hou deze nog even open voor verder vragen bedankt zover voor de moeite

 

[snb]

Je mist daar nog wel een \ teken.

neen hoor.
Afhankelijk van je instellingen.

 

[edmoor]

Als je dat \ teken daar altijd gebruikt is het altijd goed en ben je niet afhankelijk van instellingen.

 

[mvdvlist]

Edmoor, eens tipte jij mij om bij een OneDrive opslag (Environment) te gebruiken ip Path

 

[edmoor]

Volgens mij was dat om de gebruikersnaam variabel te hebben:

Environ("Userprofile") & "\OneDrive"

 

[lsc.b]

En waar zo deze code geplaatst ( bij geplaatst) moeten worden kan het altijd proberen als dit het probleem is ik zal vanavond eens proberen met mijn nieuwe sheet iin aanbouw kijken of ik het klaar krijg

 

[edmoor]

Dat is niet de oorzaak vn je probleem.

 

[lsc.b]

Dat ligt aan je werkblad Logboek.
Kennelijk is het niet mogelijk die als PDF op te slaan.
Maak er maar eens dit van:

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

En voer hem dan eerst eens uit met het blad feestdagen(2) actief en daarna het blad logboek.

Beste Edmoor de code werkt tot nu toe nog steeds prima ook slaat hij het op in onedrive
kun je voor me ook even de code er bij zeten dat de pdf bestand op datum is ik had deze er bij geprobeerd maar dit werkt dus niet "& format (now(), "dd mm yyyy hh mm") & ".pdf

 

[edmoor]

Dat kan zo:

saveLocation = ThisWorkbook.Path & "\MyFile " & Format(Now(), "dd mm yyyy hh mm") & ".pdf"

 

[lsc.b]

thanks nogmaals

 

[edmoor]

Tip:
Leer gebruik te maken van het Direct venster.
Daar kan je dat soort dingen allemaal eenvoudig in testen.