opslaan als PDF op bureaublad voor meerdere gebruikers

[Tamara27]

Beste,

Ik maakte in excel een formuliertje dat via macro wordt opgeslagen als PDF.

Ik stuit echter op probleem bij gebruik door meerdere gebruikers.
Als ik dit zelf probeer, werkt het perfect, maar wordt dit door een collega geprobeerd, klopt natuurlijk de bestemming niet.

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\TAMARA\Desktop\AUTOMATISCHE BESTELLING ORALE CHEMO.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Waar nu TAMARA staat, zou eigenlijk afhankelijk van de gebruiker een andere naam moeten staan.

Hoe los ik dit best op?


misschien ook bijkomend vraagje, Ik zou ook graag de naam van het document laten afhangen van een bepaalde cel in mijn bestand.
Kan ik dit ook integreren?

Mvg,
Tamara

 

[edmoor]

Zoiets:

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Environ("userprofile") & "\Desktop\" & Sheets("Blad1").Range("A1").Value & ".pdf"

 

[VenA]

En als 1 van de gebruikers ziek/met vakantie/oid is kan niemand bij het document?

 

[Tamara27]

@ Edmoor: bedankt! Dit werkt perfect!

@VenA: het brondocument bevindt zich op een algemene server, waar dus inderdaad iedereen aan kan.

Bedankt!