Edition PDF dans un nouveau dossier

Bonjour,

je suis débutant en VBA et j'aurai besoin d'aide :)

J'ai une macro qui me permet de créer des exports PDF de plusieurs onglets afin d"éditer des fiches produit.

Fonctionnement du fichier: J'ai un tableau sur une page, où je renseigne les fiches produits, les onglets se complètent grâce des fonctions qui puisent dans une base de données. Je sélectionne dans le tableau les produits, j'appuie sur le bouton éditer, et les fiches produits apparaissent dans mes documents. Jusque là tout roule.

En revanche, je n'arrive pas à faire en sorte que la macro génère un dossier "Fiches produit JJ/MM/AAAA" et y fasse enregistrer les fiches. Une idée?

Question subsidiaire: sauriez comment faire apparaître le nom du produit dans le nom du PDF? J'ai pas réussi malgré plusieurs essais...

Sub Editer()
  Dim NumFiche As Integer
  Dim Onglet As Worksheet
  Dim Nom_PDF As String
  Dim Chemin_PDF
  Dim Rng As Range
  If Intersect(Selection, Range("C11:C200")) Is Nothing Then
    MsgBox "Merci de sélectionner les fiches que vous voulez créer!"
    Exit Sub
  End If
  For Each Rng In Selection
    NumFiche = Rng.Row - 10
    Nom_PDF = Worksheets("Fiche " & NumFiche)
    Chemin_PDF = "C:\Users\"
    Set Onglet = Worksheets("Fiche " & NumFiche)
    Onglet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom_PDF, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
    Set Onglet = Nothing
  Next Rng
End Sub