Enregistrer un fichier Excel en PDF avec nom de feuille

Bonjour tous,

J'utilise le code suivant pour enregistrer ma feuille de classeur en PDF:

Sub Edition_Epicerie_pdf()

 Sheets("Epicerie").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Worksheets("Saisie des effectifs").[D1] & " " & Worksheets("Saisie des effectifs").[E1] & Value & " Epicerie "

End Sub

Le nom de l'onglet (ici Epicerie) change souvent en fonction des fournisseurs, et je voudrais que le code puisse enregistrer l'onglet sous lequel je suis en tenant compte du nom de ce dernier.

Peux on avoir un code, que lorsque je clique sur le bouton, il enregistre la feuille active au nom de l'onglet ?

Je ne sais pas si je suis assez clair.............

Merci par avance.

Bonjour toutes et tous

@ tester merci à Dubois

un petit début de réponse

ne pas oublier de déclarer Dim nomfeuille as string

Dim nomfeuille As String
nomfeuille = ActiveSheet.Name

un truc comme cela je pense

crdlt,

André

Merci pour ta réponse rapide.

J'ai trouvé ce qu'il me fallait en partant de ta réponse.

Bonne continuation.............merci

Re,

merci @ toi bonne continuation

crdlt,

André