Discussion :

[antony34200]

Bonjour le forum,
je rencontre un problème lorsque je souhaite imprimer et lot et en pdf.
J'ai un formulaire F_contrats_Liste avec un sous formulaire F_Contrats_Liste_SF

Dans le formulaire, j'ai un bouton imprim contrat qui devrait pouvoir lance l'impression en PDF des contrats coché dans la liste qui se trouve dans le sous formulaire. j'ai bien un code, mais lorsque je lance l'impression, j'ai une message d'erreur.

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
Private Sub Imprim_contrat_Click()
Me.Refresh
Set rst = Me.RecordsetClone
With rst
    .MoveFirst
    Do Until .EOF
        If .Fields("selection") = True Then
 
            DoCmd.OpenReport "E_Contrat_par_N°_Contrat_2022", acViewPreview, , "N°_Contrat = " & .Fields("N°_Contrat")
 
            'enregistrement du fichier et création de son nom
            sFileName = "c:\Users\Megaport\Desktop\a envoyer\" & .Fields("nom") & "_[0" & .Fields("N°_Société") & "]_(" & .Fields("N°_contrat") & ")_" & .Fields("enseigne") & "_" & .Fields("date_anim") & "_Sem " & .Fields("num_sem") & "_" & .Fields("nature_contrat") & "_" & .Fields("envoi_des_contrats") & ".pdf"
 
            DoCmd.OutputTo acOutputReport, , "PDF", sFileName
 
            DoCmd.Close acReport, "E_Contrat_par_N°_Contrat_2022", acSaveNo
        End If
        .MoveNext
        Loop
End With
End Sub

Si quelqu'un avait une idée à me soumettre, merci par avance du coup de main

[hyperion13]

Salut
"C'est simple !" comme dirait une certaine pub !
Set rst = Me.RecordsetClone désigne le rst du form principal, alors que vous voulez celui du sform !
Donc remplacez la L3 par Set rstS = Me.F_Contrats_Liste_SF.Form.RecordsetClone.

[antony34200]

Bonjour HYPERION,
Merci pour ton retour.
j'aiégalement rajouté un S à la ligne 4 à : With rstS, car sion j'avais un message d'erreur,


et maintemant c'est le chemin et le nom du fichier qui sont en erreur

[hyperion13]

j'ai fait une faute de frappe ! Corrigez rstS par rst !

[antony34200]

Meme en corrigeant j'ai toujours le débogage sur le sFilname. (sFileName = vide)

[hyperion13]

Après L1 de votre code Post#1 passez Dim rst As DAO.Recordset.
Si sFileName, est vide, cherchez laquelle des variables est vide.
Dans quel cas passez peut-être Nz(MaVarialbe, "")Mais quand je vois le genre de chaine en L12, ma vue se brouille. Totalement illisible.
L6 passez plus tôt Do While Not .EOF.