Enregistrement pdf avec nom des feuilles Excel

Bonjour,

J'ai créé une macro dans le but de sauvegarder mon classeur excel en pdf avec la particularité de créer un document pdf par feuille du claseur excel.

Cependant j'ai encore une question. Comment faire pour que les fichiers PDF créés s'enregistrent avec le nom de la feuille excel?

Actuellement :

Sub genere_pdf()

End Sub

D'avance merci pour votre aide qui me serait précieuse !

Bonjour

Essaie ce code :

Sub EnregistrerSousPDF()

    For Each f In Worksheets
        f.Copy
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & f.Name & ".pdf"
    Next f
End Sub

Bye !

SALUT

J'cru que mon message est arrivé

alors je te le renvoie encore

Sub genere_pdf()
Dim i As Integer, nbr_onglets
nbr_onglets = ActiveWorkbook.Sheets.Count

Select Case nbr_onglets
Case 1 To 4
MsgBox ("Attention,les onglets ne seront pas exportées")
Case 5 To 60

For i = 5 To ActiveWorkbook.Sheets.Count

Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\PLUGANDGO\OneDrive\Plug\1-Plugandgo\18_Finances\Reporting\" & Sheets(i).Name & ".pdf", Quality:= _
xlQualityStandard ', IncludeDocProperties:=True, IgnorePrintAreas:=False, '_
'OpenAfterPublish:=True
'Application.WindowState = xlNormal

Next i
Case Else
MsgBox ("Attention, tous les onglets ne seront pas dans le PDF")
End Select
End Sub