Option Explicit
Sub Export_PDF_V2()
Dim WB As Workbook
Dim WSSupport As Worksheet, WSBase As Worksheet, WSTemp As Worksheet
Dim NomFeuilleBase As String
Dim NomDossier As String
Dim CheminDossier As String
Dim NomPdf As String
Set WB = ThisWorkbook
Set WSSupport = WB.Worksheets("Support")
Set WSBase = WB.Worksheets("BASE")
NomFeuilleBase = WSSupport.Range("A1").Value & "_" & WSSupport.Range("B3").Value
NomDossier = NomFeuilleBase
CheminDossier = WB.Path & "\"
'copier coller la nouvelle feuille à la fin du classeur et la renommer
WSBase.Copy After:=WB.Worksheets(WB.Worksheets.Count)
Set WSTemp = WB.Worksheets(WB.Worksheets.Count)
WSTemp.Name = NomFeuilleBase
'créer dossier avec nom de la nouvelle feuille
If Len(Dir(CheminDossier & NomFeuilleBase, vbDirectory)) = 0 Then
MkDir CheminDossier & NomFeuilleBase
End If
NomPdf = "Export-PDF-" & Format(Now, "YYYY-MM-DD-hh-mm-ss") & ".pdf"
' Enregistrer la Feuille en PDF dans le dossier créé
WSTemp.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=CheminDossier & NomFeuilleBase & "\" & NomPdf, _
OpenAfterPublish:=True
' Suppression de la feuille temporaire qui a servi à faire le PDF
Application.DisplayAlerts = False
WSTemp.Delete
Application.DisplayAlerts = True
End Sub