Code enregistrement Pdf

Bonjour le Forum

S'il vous plais je souhaite créer un bouton pour enregistrer ma feuille en forma pdf dans le même dossier et avec un nom indiqué en cellule F1

Il manque quelque chose à mon code mais je ne la trouve pas

Sub ff()

    Sheets("Facture").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         ThisWorkbook.Path & "Range("f1").pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
End Sub

bonjour,

une correction

Sub ff()

    Sheets("Facture").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         ThisWorkbook.Path & "\" & Range("f1") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
End Sub

Bonjour saber36, h2so4,

Une autre version,

Sub enregistrerpdf()

Dim nompdf As String
 Dim dossier As String

    dossier = ThisWorkbook.Path

    nompdf = dossier & "\" & ActiveSheet.Range("F1").Value

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    MsgBox "Enregistré sous " & dossier & "\" & ActiveSheet.Range("F1").Value

End Sub

Cordialement,

tu m'as sauvé la vie

merci beaucoup