VBA ecxel als PDF opslaan

[HennyS2019]

hallo,
ik heb een VBA die zou mijn ecxel werkblad moeten opslaan als PDF op mijn buroblad.
helaas werkt deze niet het is :
naam=Inputb("offerte")ActiveSheet.ExportAsFixedFormat_Type:=xlTypePDF,Filename:=_"C:\Desktop"&naam,QualityStandar,_IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=_True

ik wil het gehele werkblad als PDF opslaan.

graag hoor ik tips

alvast bedankt

 

[edmoor]

Waarom heb je overal die underscores er tussen staan?
En een functie met de naam Inputb heb je niet.

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Environ("Userprofile") & "\Desktop\" & naam, _
    IncludeDocProperties:=True, _
    OpenAfterPublish:=True

Daarin moet je naam dus nog wel even bepalen.

 

[HennyS2019]

super bedankt Edmoor.

ik heb de VBA ontvangen van een collega die mij vertelde dat deze werkte (niet dus)

uhm edmoor.

ik krijg een foutmelding namelijk:

 

[edmoor]

Dan heb je nog geen waarde voor de variabele "naam" bepaald, zoals ik in #2 zei.

Je mag het ook zo doen:

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Environ("Userprofile") & "\Desktop\NaamVanHetBestand.pdf", _
    IncludeDocProperties:=True, _
    OpenAfterPublish:=True

 

[HennyS2019]

aha ok, moet dit een speciale naam zijn of willekeurig?

zoals je begrijpt ben ik nog erg "groen" wat VBA betreft

 

[edmoor]

Precies.
Maar kijk nog eens in #4, daar heb ik net wat extra geplaatst.

"Groen" met VBA is geen probleem uiteraard, daar is Helpmij voor

 

[HennyS2019]

helemaal super, nu werkt het prima.
nogmaals bedankt