Discussion :

[sbeprod]

Bonjour à tous,

Je gère dans une application Access l'ensemble des tarifs des clients de mon entreprise.
L'impression des tarifs est réalisée aujourd'hui en éditant l'état pour le client correspondant (en saisissant dans une boîte de dialogue 2 paramètres: nom client, code tarif) puis en l'imprimant en un pdf qui est sauvegardé. Cela est évidemment fastidieux quand nous devons le faire pour plusieurs dizaines de client.

J'aurai donc souhaité automatiser la tâche d'export du tarif en pdf par un code VBA qui parcourerait une table contenant les données suivantes:

- nom client,
- code tarif,
- chemin de sauvegarde du fichier

Auriez-vous connaissance d'un tutoriel qui traiterait de ce principe ?

Bien cordialement.

[EricDgn]

Cette partie de ce tutoriel devrait être une bonne piste:
https://claudeleloup.developpez.com/...ciation/#LIV-F
Bonne continuation.

[accessisgood]

Bonjour,

je proposerai une boucle VBA qui identifie des variables temporaires, lesquelles sont critère de filtre dans un query, lequel est source d'un rapport; puis d'utiliser la fonction OutputTo

voir fichier testBoucle.zip

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
Dim rst As DAO.Recordset
 
    Set rst = CurrentDb.OpenRecordset("select * from Tarif where Imprimer", dbOpenSnapshot)
 
    While Not rst.EOF
        Application.TempVars("TV_Client") = rst("Client").Value
        Application.TempVars("TV_Tarif") = rst("Tarif").Value
        DoCmd.OutputTo acOutputReport, "Rpt_Tarif", acFormatPDF, rst("Chemin") & "\" & rst("Client").Value & "_" & rst("Tarif").Value & ".pdf"
        rst.MoveNext
    Wend
    rst.Close: Set rst = Nothing
End Sub

[sbeprod]

Merci beaucoup pour vos réponses: je vais essayer d'exploiter vos pistes.