Pdf opslaan in map kwartaal 2 als pdf in dit kwartaal is gemaakt

[loek010]

Beste hulpverleners,

Ik kom er niet echt uit, met wat ik wil de bedoeling is dat als een factuur bv in kwartaal 2 is opgemaakt
dat hij dan de factuur ook in de map kwartaal2 plaatst.
zie bijgaande code

Dim FacName As String
FacName = ActiveSheet.Range("D11").value                   
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Willem\Documents\Facturatie D\facturen\Factuurnr. " & FacName & ".pdf"

Dim LValue As Integer
Dim LDate As String
LDate = Date
LValue = DatePart("q", LDate = "dd/mm/yyyy")
If LValue = 1 Then   'is kwartaal 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Willem\Documents\Facturatie D\facturen\Kwartaal1\Factuurnr. " & FacName & ".pdf"
End If

If LValue = 2 Then  'is kwartaal 2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Willem\Documents\Facturatie D\facturen\Kwartaal2\Factuurnr. " & FacName & ".pdf"
End If

If LValue = 3 Then  'is kwartaal 3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Willem\Documents\Facturatie D\facturen\Kwartaal3\Factuurnr. " & FacName & ".pdf"
End If

If LValue = 4 Then  'is kwartaal 4
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Willem\Documents\Facturatie D\facturen\Kwartaal4\Factuurnr. " & FacName & ".pdf"
End If
End Sub

wat gaat hier niet goed

Met vriendelijke groet
Loek010

 

[HSV]

sub hup()
ActiveSheet.ExportAsFixedFormat 0, [COLOR=#3E3E3E]"C:\Users\Willem\Documents\Facturatie D\facturen[/COLOR]\Kwartaal" & DatePart("q", Date) & "\Factuurnr. " & range("d11").value & ".pdf"
end sub

 

[loek010]

Super Harry, precies wat ik wilde en zelfs met 1 regel
bedankt voor je snelle hulp.
vraag is opgelost

mvg,
loek010