Exporter PDF chaque feuille (séparément) d'un classeur

Bonjour à tous,

J'ai un classeur dit "intercalaire" où une feuille = un intercalaire.

J'aimerais pouvoir exporter toutes les feuilles au format pdf et séparément (en une manipulation). Les fichiers porteront comme noms le nom celui de chaque feuille.
Est-ce possible ?

Actuellement, j'exporte feuille par feuille, et renomme les noms des fichiers manuellement. Puisque ce travail est régulièrement effectué, existe-t-il un moyen pour "automatiser" cet export ?

Merci déjà pour votre retour.

Bonne journée.

Bonjour

Oui tout a fait possible : a tester :

Sub enregistre_pdf()
For i = 1 To Sheets.Count
Sheets(i).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub

Fred

Bonjour,

Quelque chose comme ça ?

Sub Save()

Dim chemin As String
chemin = ThisWorkbook.Path & "\"

For i = Sheets.Count To 1 Step -1
    Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Worksheets(i).Name
Next
End Sub

De base, les fichiers vont s'enregistrer au même endroit que le fichier excel en cours, mais c'est modifiable.

Edit : Ahah, je suis resté longtemps sur la page. Allez, j'arrête pour aujourd'hui, j'en ai assez de faire la même chose que toi, Fred :D

@joyeuxnoel

je vais aussi arrêter là pour aujourd'hui... j'ai des courses à faire....

Fred