Сохранить лист Excel в формате PDF в другом каталоге

Question

У меня есть макрос, который отлично работает, чтобы скопировать файл Excel из одного каталога в другой и добавить заголовок даты. Но мне нужно скопировать только один лист файла Excel и сохранить его в формате .PDF

Оба пути (источник, новое местоположение) должны оставаться такими же, как в приведенном ниже коде.

вот мой существующий код:

Sub CopierFichier()


Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

Call fso.CopyFile("\\mtr.intra\367$\profils\R06C286A\_RD\NASC02\Desktop\test\Heures.xls", "V:\DVI\11000_Surveillance\11200_ISP\PCQ\Suivi\FeuilleDeTemps_" & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xls")


End Sub

РЕДАКТИРОВАТЬ:

Я только что попробовал что-то, и он работал отлично. Есть одна проблема, когда я запускаю макрос, требуется вечность, чтобы опубликовать PDF в каталоге. Любая помощь приветствуется

это код, который я использовал:

Sub Macro1()

   Sheets("Grille").Activate
   ActiveSheet.UsedRange.Select


   ThisWorkbook.Sheets("Grille").Select
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "V:\DVI\11000_Surveillance\11200_ISP\PCQ\Suivi\FeuilleDeTemps_" & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True
End Sub