Code VBA à copier/coller et insérer dans un Module dans la fenêtre VBA (Alt+F11) :

Sub ExporterFeuilleEnPDF()
    Dim dossier As FileDialog
    Dim cheminDossier As String
    Dim nomFichier As String
    Dim cheminComplet As String

    Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
    
    With dossier
        .Title = "Sélectionnez un dossier pour l'exportation"
        .AllowMultiSelect = False
        If .Show = -1 Then
            cheminDossier = .SelectedItems(1)
        Else
            MsgBox "Aucun dossier sélectionné. Export annulé.", vbExclamation
            Exit Sub
        End If
    End With

    nomFichier = ActiveSheet.Name & "_" & Format(Now, "yyyy-mm-dd") & ".pdf"
    cheminComplet = cheminDossier & "\\" & nomFichier

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=cheminComplet, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

    MsgBox "Exportation réussie dans : " & vbCrLf & cheminComplet, vbInformation
End Sub
'Programme de code VBA original écrit et mise en place par Pierre pour Exceler
'Toute copie ou reproduction, intégrale ou partielledans le but d’une commercialisation,
'faite sans le consentement et accord écrit est illicite.