Opgelost Vraag over een extra variabele in macro

[RickK96]

Ik heb een macro die ervoor zorgt dat van een actief werkblad een PDF wordt geëxporteerd naar een bepaalde map. Echter zit daar ook de moeilijkheid, want de bestandsmap is een OneDrive. De Excel met macro staat ook in die Onedrive omdat verschillende mensen hierin moeten kunnen werken.

Ik heb geprobeerd om Piet Jansen in het voorbeeld hieronder te veranderen in %username% maar dit werkt niet.

Sub PDF()
    Dim EventName As String, Jaar As String
  
    EventName = ActiveSheet.Range("D3")
    Jaar = ("2024 - Rapportage ")
  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Piet Jansen\OneDrive - Organisatie\Map 1\Submap 1\PDF\" & Jaar & EventName & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Hoe kan ik ervoor zorgen dat het toch mogelijk is om te kijken naar de gebruiker en op basis hiervan de uiteindelijke doelmap te bepalen?

 

[edmoor]

Dat is dan niet %username% maar Environ("Username")
Maar ik denk dat je dan beter Environ("Userprofile") kunt gebruiken.

 

[RickK96]

Dat is dan niet %username% maar Environ("Username")
Maar ik denk dat je dan beter Environ("Userprofile") kunt gebruiken.

Hoe plaats ik dit in de macro?

 

[edmoor]

Dit zou voldoende moeten zijn:

Sub PDF()
    EventName = Range("D3")
    Jaar = "2024 - Rapportage "
    Bestand = Environ("Userprofile") & "\OneDrive - Organisatie\Map 1\Submap 1\PDF\" & Jaar & EventName & ".pdf"
    ActiveSheet.ExportAsFixedFormat 0, Bestand
End Sub