Envoi historiques de cotisations

Bonsoir à tous,

Merci Jean-Eric. Tout marche, l'information qui s'affiche après avoir appuyé sur "créer PDFs" m'a été d'une grande utilité. Effectivement tous les fichiers sont logés à l'emplacement indiqué dans le message. Reste à les réunir dans un seul fichier pour les imprimer.

Merci encore une fois.

Non, je ne travaille pas sur Mac, mais sur ASUS

Cordialement

Bonjour Yahaya,

Pas besoin de les réunir en un seul fichier, c'est bien mieux comme ça.

Pour l'impression papier, il suffit de les imprimer manuellement (10 par 10) ou d'ajouter une simple ligne dans la boucle de Jean-Eric :

Public Sub CreatePDFs()
Dim ws As Worksheet
Dim sPath As String, sFile As String, sDate As String
Dim pf As PivotField, pi As PivotItem

    Application.ScreenUpdating = False

    Set ws = ActiveSheet
    Set pf = ws.PivotTables(1).PivotFields("Nom")
    sPath = ActiveWorkbook.Path & Application.PathSeparator
    sDate = Format(VBA.Date, "yyyy-mm-dd")

    For Each pi In pf.PivotItems
        pf.CurrentPage = pi.Name
        sFile = "Avis cotisations " & pi.Name & " " & sDate & ".pdf"
        ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sPath & sFile, _
                ignoreprintareas:=False
        ws.PrintOut ignoreprintareas:=False 'LIGNE IMPRESSION PAPIER
    Next pi

    pf.CurrentPage = pf.PivotItems(1).Name

    MsgBox "Les PDFs ont été entregistrés dans le répertoire : " & Chr(10) & sPath, 64, "Information"

End Sub

Cordialement,