Créer un PDF par client

Version imprimable

Bonjour,

Dans ma BDD, j'ai crée un état qui récapitule les différentes factures de commissions et qui l'enregistre dans un dossier au format PDF (1 PDF avec plusieurs factures).
J'aimerais créer autant de factures PDF que de clients soit 1 PDF par client.

Je progresse de jour en jour dans la formation VBA grâce à vos interventions et vous en remercie.

J'ai tenté plusieurs choses qui n'ont pas été concluantes. Je sais que mon code est incomplet mais je n'arrive pas à trouver.
Pourriez-vous m'aiguiller ?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Report_Activate() Dim fichier As String fichier = Application.CurrentProject.Path & "\archives_factures\Commissions\" & Format([date_com], "yyyy-mm") & " - Factures commissions " & Format([date_com], "mmmm yyyy") & " (" & num_com & ")" & ".pdf" ' 1 seul PDF avec plusieurs clients (fonctionne) 'DoCmd.OutputTo acOutputReport, , acFormatPDF, fichier, False '1 PDF par client (ne fonctionne pas) DoCmd.OutputTo acOutputReport, , acFormatPDF, fichier, False, "num_com=" & num_com End Sub

15/05/2021, 20h11
hyperion13

Salut
Une piste via ce lien ou ce lien.
@+
23/05/2021, 09h46
garavous

J'ai regardé mais j'avoue que c'est trop compliqué pour mon petit cerveau 8O

Je vais continuer à chercher...

Salut
A tester et à adapter à votre environnement.
Je passe via un btncommande dans un form

Code:

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
Private Sub btnExportpdf0_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strChemin As String
Dim strFichier As String
Dim strSql As String
Const strReportName = "nom de l etat" ' mettre à jour le nom de l'état
 
strChemin = Application.CurrentProject.Path & "\archives_factures\Commissions\"
 
strSql = "SELECT DISTINCT num_com, date_com, etc." _
& " FROM tbl_com"
 
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
 
If rst.RecordCount = 0 Then Exit Sub
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
        strFichier = Format([date_com], "yyyy-mm") & " - Factures commissions " & Format([date_com], "mmmm yyyy")
        strFichier = strFichier & " - " & rst("num_com") & ".pdf"
        DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strChemin & strFichier
        DoCmd.Close acReport, strReportName
        DoEvents
    rst.MoveNext
    Loop
Application.FollowHyperlink strChemin 'ouvre le dossier destination *.pdf
End Sub