Discussion :

[garavous]

Bonjour à tous,

J'ai une BDD Access qui me permettait de sortir des attestations fiscales chaque année pour des clients en partant d'un état que j'imprimais dans la foulée ce qui ne me posait aucun problème puisque je les envoyais par courrier.
Aujourd'hui, je voudrais pouvoir créer plusieurs PDF à partir d’un état pour les envoyer par mail.

J'ai donc trouver ce bout de code sur internet en me disant "C'est juste ce qu'il me faut..." (ci-dessous l'original) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
' ---
' CREATION DE FICHES PDF
' ---
'
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 = "rpt Personnes"
 
    ' 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("tbl Destinataires", 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("Nom"), _
            rst("Pré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

que j'ai tenté d'adapter à ma base (modifié ci-dessous) mais j'ai un message d'erreur...

Erreur de compilation :
Sub ou fonction non définie



Auriez-vous une idée ?

D'avance merci