Excel opslaan als PDF

[Manon22]

Hoi,
Ik hoop dat iemand mij kan helpen met onderstaande code. Ik had deze vba code werkend. Daarna heb ik iets veranderd en ik weet niet meer hoe ik de code nu weer werkend krijg.
Ik krijg de foutmelding compileer fout verwacht aanduiding of expressie tussen haakjes. Dit wordt aangegeven bij de codes "Range".
Iemand een idee.

Groeten Manon


Sub Button2_Click()
'
' Button2_Click Macro

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="T:\Samenwerking\MR\Office_Management\TIJDELIJKE_ZAAKAANVRAGEN" & ActiveSheet.Name & Format(Date, "ddmmyyyy").Range("E5").Range("g4").Value & ".pdf"

MsgBox "uw document is opgeslagen", vbInformation

End Sub

 

[edmoor]

Probeer het eens zo:

Sub Button2_Click()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="T:\Samenwerking\MR\Office_Management\TIJDELIJKE_ZAAKAANVRAGEN\" & _
        ActiveSheet.Name & _
        Format(Date, "ddmmyyyy") & _
        Range("E5").Value & _
        Range("G4").Value & ".pdf"
    
    MsgBox "Uw document is opgeslagen", vbInformation
End Sub

 

[Manon22]

Werkt
Bedankt!