PDF naar OneDrive

[mvdvlist]

Hallo allemaal,
ik heb een goed werkende code, maar zou willen dat deze ook werkt met een ThisWorkbook.Path, zodat ik hem kan plaatsen op meerder computers. En dan ook in OneDrive.
Ideeën wat het handigst is? Misschien iets met Environment("temp")?

Sub PDF_OPSLAAN()
    Dim ws As Worksheet
    Dim pdfPad As String
    Dim bestandsNaam As String
    Dim oneDrivePad As String
 
    ' Verwijzing naar de sheet "Factuur"
    Set ws = ThisWorkbook.Sheets("Factuur")

    ' OneDrive-map correct instellen
    oneDrivePad = "C:\Users\mvdvl\OneDrive\Bureaublad\EXCELPDF" ' Pas dit pad aan indien nodig
 
    ' Bestandsnaam instellen
    bestandsNaam = "Factuur_" & Format(Date, "YYYY-MM-DD") & ".pdf"
    pdfPad = oneDrivePad & "\" & bestandsNaam ' Combineer pad en bestandsnaam
 
    ' Exporteer de sheet als PDF naar OneDrive
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=pdfPad, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox "Factuur opgeslagen als PDF in OneDrive-map: " & pdfPad, vbInformation
End Sub
[CODE]

 

[AHulpje]

Probeer het eens met Environ("userprofile"), dat geeft in jouw geval C:\Users\mvdvl

 

[mvdvlist]

Ga ik morgen proberen. Achteraf heb ik dat vroeger ook wel eens gebruikt, dus alle vertrouwen. Ik laat het weten... Bedankt vast...