Macro Impression en format .pdf

Bonjour à toutes et à tous

J'ai trouvé une macro sur le forum qui me permet d'imprimer les différentes feuilles de ma liste déroulante.

Mais l'impression se fait sur mon imprimante papier (toutes les pages sortent sous format papier).

Toutefois, j'aimerais que mes différentes feuilles soient compilées dans un seul fichier au format .pdf

Voici le code que j'utilise pour l'impression "normale"

Sub Impression()
    Dim Liste As String, C As Range
    With Sheets("Impression - Emargement")
        Liste = .Range("C5").Validation.Formula1
        Liste = Right(Liste, Len(Liste) - 1)
        For Each C In Range(Liste)
            .[C5] = C.Value
            .PrintOut
        Next C
    End With
End Sub

Je ne sais pas quelle ligne de code il faut ajouter pour mon impression au format pdf.

Merci par avance pour votre aide

Belle journée à vous

Fichier excel :

21test.xlsm (84.32 Ko)

Bonjour,

est ce que tu veux enregistrer l'onglet "Impression - Emargement" au format pdf ?

Oui. seulement cette feuille

Oui. seulement cette feuille

voici un exemple,

Sub SaveAs_PDF()
NomDuFichier = "Impression - Emargement"
chemin = ThisWorkbook.Path

Sheets("Impression - Emargement").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\" & NomDuFichier & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Bonsoir

Merci I20100 pour ton aide.,

Serait-il possible de modifier le code pour que toutes les feuilles de ma liste déroulante soient sauvegarder en pdf ??

merci d'avance

bonne soirée

Bonsoir le fil et le forum,

une proposition:

Sub Impression()
    Dim Liste As String, C As Range, Fichier As String, Chemin As String

    Chemin = ThisWorkbook.Path & "\"

    With Sheets("Impression - Emargement")
        Liste = .Range("C5").Validation.Formula1
        Liste = Right(Liste, Len(Liste) - 1)
        For Each C In Range(Liste)
            .[C5] = C.Value
            Fichier = C.Value
            .ExportAsFixedFormat Type:=xlTypePDF, _
                               Filename:=Chemin & Fichier, _
                               Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, _
                               IgnorePrintAreas:=False, _
                               OpenAfterPublish:=False

           ' .PrintOut <<== à décommenter si on veut aussi imprimer sur papier

        Next C
    End With
End Sub

Cordialement

Rechercher des sujets similaires à "macro impression format pdf"