Enregistrer des feuilles Excel en Pdf (1pdf/feuille)

Bonjour à tous,

J'essaye en vain de sauvegarder un fichier Excel comportant plusieurs feuilles en plusieurs pdf. Chaque feuille devant être sauvgarder dans un pdf distinct.

Voici actuellement ce que j'ai réussi à faire, cependant il sauvegarde tout dans le meme pdf.

Sub genere_pdf()

nbr_onglets = ActiveWorkbook.Sheets.Count

Select Case nbr_onglets

Application.WindowState = xlNormal

Comment faire pour enregistrer un pdf par feuille?

D'avance merci pour votre aide !

SALUT

ESSAI CA

[code]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 34

For i = 5 To ActiveWorkbook.Sheets.Count

Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\test" & i & ".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

[/code]

Un grand merci ! ça fonctionne !

Re-bonjour,

Est-il également possible de nommer les pdf par le nom de la feuille excel?

D'avance merci.