Enregistrer feuille active sous pdf

Bonjour,

je souhaite "enregistrer sous" ma feuille active d'excel sous pdf et choisir le chemin.

J'aimerai aussi que le nom du fichier soit celui de ma cellule B14 automatiquement.

J'ai cherché un peu partout mais on ne me propose que d'enregistrer sous .xls et le classeur entier.

Merci

    nompdf = Chemin & "\" & Range("B14").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Pour obtenir une boite qui te permet de choisir le chemin, tu dois pouvoir trouver facilement.

Tu peux restreindre à une partie de ta feuille, il suffit de définir la "zone d'impression"

Pour le choix du chemin

    Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        Chemin = Repertoire.SelectedItems(1)
    Else
        Exit Sub
    End If