Enregistrer en PDF

Bonjour,

J'ai lu sur le forum qu'on pouvait convertir une feuille Excel au format PDF.

J'ai bien ce code que j'ai trouvé sur le forum mais je ne sais pas l'appliquer.

(Pour enregistrer au format PDF, essaie ce code)
Sub Enregistrement_FIRC()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\lsoulier\Desktop\Essai-PDF.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

J'aimerai que ma feuille PDF s'enregistre comme le bouton sauvegarde,

c’est-à-dire nommé de la même façon et dans le même dossier (voir pj)

Merci pour tout

Sylvie

Bonjour Sylvie64

Voici le code adapté à tes besoins

Sub CréationPDF()
  Dim LaDest$
  LaDest = ThisWorkbook.Path & "\" & [F11] & "_" & [I6] & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LaDest, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

A+

Bonjour BrunoM45,

Excellent !!!

Un grand merci

Sylvie