save a sheet in pdf with sheet name to specific folder

[michellin]

Hi there, i try to found my answer, 2 days i'm trying different solution find everywhere.

But i can't find my need.
Maybe you guys could help me.

I need to save my activesheet in pdf with the activesheetname (date) to a specific folder.
I already got my macro to copy the sheet i need and rename it with the today date.
But i'm not able to save it with sheet name to specific folder in pdf.


Sheets("TEST").Select
Application.CopyObjectsWithCells = True
Sheets("TEST").Copy After:=Sheets(2)
strDate = Format(Date, "yyyy-mm-dd")
With ActiveSheet
.Name = strDate
End With

I would like to save to "C:\TEST"2020-11-10.pdf

Thanks a lot for your help
Michellin

 

[Fluff]

How about

   With ActiveSheet
      .Name = strdate
      .ExportAsFixedFormat xlTypePDF, "C:\TEST\" & strdate
   End With

 

[michellin]

OMG fluff, i know you guys will have the answer.
so simple.
I was bug with choice, decide to let the path or the name.
In one single line you resolve all my need.
I search too far or too complicated.

OMG you just make my day

THANKS YOU FLUFF HAVE A NICE DAY

 

[Fluff]

You're welcome & thanks for the feedback.