Impression ONGLETS PDF Séparés

Bonjour,

Quelqu'un aurait une idée pour imprimer en PDF les 3 onglets séparément de préférence avec le nom de l'onglet via une macro ?

Merci d'avance

Bonjour,

Essayez ceci:

Sub ImprimeEnPDF()
    Dim Feuille As Worksheet
    Dim CheminDossier As String, NomFichier As String
    Dim i As Long

    CheminDossier = "C:\Users\xxxx\Documents\" 'Spécifiez le chemin où vous voulez enregistrer les fichiers PDF
    For i = 1 To Sheets.Count
        Set Feuille = Sheets(Sheets(i).Name)
        NomFichier = CheminDossier & "\" & Feuille.Name & ".pdf"

        ' Imprime la feuille en PDF
        Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier, Quality:=xlQualityStandard
    Next i
    Set Feuille = Nothing
End Sub

Remplacez "C:\Users\xxxx\Documents" par l'emplacement de votre dossier (attention, n'oubliez pas le "\" à la fin)

Cdlt

Edit: petite modification pour imprimer en paysage et ajuster la page

Sub ImprimeEnPDF()
    Dim Feuille As Worksheet
    Dim CheminDossier As String, NomFichier As String
    Dim i As Long

    CheminDossier = "C:\Users\xxxx\Documents\" 'Spécifiez le chemin où vous voulez enregistrer les fichiers PDF
    For i = 1 To Sheets.Count
        Set Feuille = Sheets(Sheets(i).Name)
        NomFichier = CheminDossier & "\" & Feuille.Name & ".pdf"

        ' Imprime la feuille en PDF
        With Feuille.PageSetup
            .Orientation = xlLandscape ' Définit l'orientation en paysage
            .FitToPagesWide = 1 ' Ajuste à une page de large
            .FitToPagesTall = False ' Pas d'ajustement vertical
        End With
        Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier, Quality:=xlQualityStandard
    Next i
    Set Feuille = Nothing
End Sub

Bonjour,

J'ai cette erreur, vous savez ce que cela veux dire?

Le fichier à enregistré c'est bien en extension XLSM?

Petite précision, c'est excel 2007 et non 2010 je ne sais pas si cela change quelque chose...

Merci d'avance

Essayez ceci:

 .ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF on Ne01:", PrintToFile:=True, PrToFileName:=NomFichier

Cdlt