Inclure les extraits dans un seul fichier pdf

Bonsoir Forum,

S'il vous plaît, je voudrais modifier le code vba excel pour qu'il puisse inclure les extraits dans un seul fichier pdf

Merci

Sub TraiterFichiersListEleve()

    Dim cheminDossier As String
    Dim fichier As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lr As Long
    Dim i As Long
    Dim numOrdre As Integer
    Dim pdfFinal As String

    ' Chemin du dossier contenant les fichiers ListEleve_*
    cheminDossier = ThisWorkbook.Path & "\"

    ' Initialiser le fichier PDF final
    pdfFinal = ThisWorkbook.Path & "\groupélist.pdf"

    ' Boucle à travers tous les fichiers dans le dossier
    fichier = Dir(cheminDossier & "ListEleve_*.xlsx")
    Do While fichier <> ""

        ' Ouvrir le fichier
        Set wb = Workbooks.Open(cheminDossier & fichier)

        ' Traiter chaque feuille dans le classeur
        For Each ws In wb.Sheets

            ' Filtrer et trier les données si la feuille n'est pas vide
            If Application.WorksheetFunction.CountA(ws.Cells) > 0 Then
                ' Filtrer la plage A10:G10
                ws.Range("A10:G10").AutoFilter Field:=5, Criteria1:="<>"

                ' Trier la colonne E de A à Z
                ws.Range("E11").Sort Key1:=ws.Range("E11"), Order1:=xlAscending, Header:=xlNo

                ' Déterminer la dernière ligne avec des valeurs
                lr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

                ' Mettre les numéros d'ordre
                numOrdre = 1
                For i = 11 To lr
                    If ws.Cells(i, "A").Value <> "" Then
                        ws.Cells(i, "A").Value = numOrdre
                        numOrdre = numOrdre + 1
                    End If
                Next i

                ' Imprimer en PDF dans le fichier final
                ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFinal, OpenAfterExport:=False, Append:=True

            End If
        Next ws

        ' Fermer le classeur sans enregistrer les modifications
        wb.Close SaveChanges:=False

        ' Passer au fichier suivant dans le dossier
        fichier = Dir
    Loop

End Sub

1 - Pouvez-vous nous proposer 2 fichiers d'élèves avec un contenu et le résultat attendu à titre d'exemple ?

2 - Dans quelle version d'Excel trouve-t-on les paramètres OpenAfterExport et Append pour la fonction ExportAsFixedFormat ?