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 :