Créer plusieurs PDF à partir d'un état Access

Sub CreerFichesInterlocuteurs()
    Dim strFichier As String
    Dim strFichierPDF As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As dao.Recordset
    
    ' Nom de l'état à imprimer
    strEtat = "E_Astuces Outlook"
    
    ' Nom de base du fichier PDF à créer
    strFichier = DossierSpecial(Bureau) & "TestInterlocuteur {0} - {1} {2}.pdf"
    
    ' Ouvrir la liste des personnes
    Set rst = CurrentDb.OpenRecordset("T_Astuces Outlook", dbOpenSnapshot)
    
    ' Parcourir toute la liste
    While Not rst.EOF
        ' Le nom du fichier varie en fonction de la personne
        strFichierPDF = StringFormat(strFichier, _
            Format(rst("id"), "000"), _
            rst ("Votre nom")
            
        ' Construire le filtre
        strFiltre = "[ID] = " & rst("ID")
            
        ' Imprimer l'état en le filtrant sur la personne concernée
        PrintAsPDF strFichierPDF, strEtat, strFiltre
            
        ' Personne suivante
        rst.MoveNext
    Wend
    
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub
End Sub  

strFichierPDF = DossierSpecial(Bureau) & "TestInterlocuteur " _
    & Format(rst("id"), "000") & " - " & rst ("Votre nom") & ".pdf"