• 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.

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

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.
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.
 
Heb je wel bewerk rechten in die onedrive map?
 
Zo gaat het altijd goed

CSS:
Sub M_snb()
  ActiveWorkbook.ExportAsFixedFormat 0, application.defaultfilepath & "voorbeeld.pdf"
End Sub
 
Je mist daar nog wel een \ teken.
 
Dat ligt aan je werkblad Logboek.
Kennelijk is het niet mogelijk die als PDF op te slaan.
Maak er maar eens dit van:
Code:
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.
 
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
 
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
 
Als je dat \ teken daar altijd gebruikt is het altijd goed en ben je niet afhankelijk van instellingen.
 
Edmoor, eens tipte jij mij om bij een OneDrive opslag (Environment) te gebruiken ip Path
 
Volgens mij was dat om de gebruikersnaam variabel te hebben:
Code:
Environ("Userprofile") & "\OneDrive"
 
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
 
Dat is niet de oorzaak vn je probleem.
 
Dat ligt aan je werkblad Logboek.
Kennelijk is het niet mogelijk die als PDF op te slaan.
Maak er maar eens dit van:
Code:
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
 
Dat kan zo:
Code:
saveLocation = ThisWorkbook.Path & "\MyFile " & Format(Now(), "dd mm yyyy hh mm") & ".pdf"
 
Tip:
Leer gebruik te maken van het Direct venster.
Daar kan je dat soort dingen allemaal eenvoudig in testen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan