Export onglet en PDF et renommer le PDF avec le nom de l'onglet

Bonjour,

J'aimerais que lors de l'enregistrement de l'onglet en PDF que le nom du PDF corresponde au nom suivant : TR_nom de l'onglet".

J'ai trouvé cette macro, mais je n'arrive pas à la modifier afin qu'elle me fasse ce que je veux. Car pour l'instant lors de l'export en PDF, le PDF s'enregistre avec le nom "TR_.pdf".

Pensez-vous que cela soit possible

Sub NomPdf()
Chemin = ThisWorkbook.Path & "\"
Fich = "TR_" & ".pdf"
NomFiche = Chemin & Fich
    Call EditionPDF(NomFiche)
   MsgBox "Edition du PDF Terminée"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

Merci

Bonjour,

Oui c'est possible si tu mets une variable exemple NomOnglet =ActiveSheet.Name

Et tu changes Fich = "TR_" & ".pdf"
en Fich = "TR_" & NomOnglet & ".pdf"

A+

Merci ça fonctionne nickel