Impression plusieurs bulletins en un seul fichier PDF
Bonjour,
J'ai utilisé le code VBA suivant dans un fichier Excel pour imprimer des bulletins de paie suivant une liste déroulante :
Sub Iterate_Through_data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("BULLETIN DE PAIE 1").Range("F6")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
xRg = xCell.Value
ActiveSheet.PrintOut
Next
End Sub
Je veux que tous les bulletins soient imprimés en un seul fichier PDF.
Et merci pour vos aides.
Bonjour Yesser et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum.
Concernant votre demande, vous pouvez trouver le code ici
https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508
A+