Discussion :

[garavous]

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 :

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

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

[hyperion13]

Salut
Une piste via ce lien ou ce lien.
@+

[garavous]

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

Je vais continuer à chercher...

[hyperion13]

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

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
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