Macro Impression en format .pdf Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
c
ciracll
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 25 juin 2019
Version d'Excel : 2013 FR

Message par ciracll » 26 juin 2019, 14:02

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 :
TEST.xlsm
(84.32 Kio) Téléchargé 9 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 26 juin 2019, 16:51

Bonjour,

est ce que tu veux enregistrer l'onglet "Impression - Emargement" au format pdf ?
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
c
ciracll
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 25 juin 2019
Version d'Excel : 2013 FR

Message par ciracll » 26 juin 2019, 20:17

Oui. seulement cette feuille
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 26 juin 2019, 20:37

ciracll a écrit :
26 juin 2019, 20:17
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
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
c
ciracll
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 25 juin 2019
Version d'Excel : 2013 FR

Message par ciracll » 26 juin 2019, 21:12

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
Avatar du membre
Sequoyah
Membre habitué
Membre habitué
Messages : 138
Appréciations reçues : 15
Inscrit le : 25 juin 2017
Version d'Excel : Office 365 32 bit

Message par Sequoyah » 26 juin 2019, 21:30

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message