Discussion :

[omen123]

Bonjour a tous ,

klk pourrai me localiser l'erreur svp :

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
46
47
48
49
50
51
52
53
54
 
Private Sub cmdSave_Click()
Dim rs                    As DAO.Recordset
    Dim sFolder               As String
    Dim sFile                 As String
    Const sReportName = "ETAT"
 
    On Error GoTo Error_Handler
 
    'The folder in which to save the PDFs
    sFolder = Application.CurrentProject.Path & "\"
 
    'Define the Records that you will use to filtered the report with
    Set rs = CurrentDb.OpenRecordset("SELECT TIERS, RELATION FROM PTF;", dbOpenSnapshot)
    With rs
        If .RecordCount <> 0 Then 'Make sure we have record to generate PDF with
            .MoveFirst
            Do While Not .EOF
                'Build the PDF filename we are going to use to save the PDF with
                sFile = sFolder & Nz(![RELATION], "") & ".pdf"
                'Open the report filtered to the specific record or criteria we want in hidden mode
                DoCmd.OpenReport sReportName, acViewPreview, , "[TIERS]=" & ![TIERS], acHidden
                'Print it out as a PDF
                DoCmd.OutputTo acOutputReport, sReportName, acFormatPDF, sFile, , , , acExportQualityPrint
                'Close the report now that we're done with this criteria
                DoCmd.Close acReport, sReportName
                'If you wanted to create an e-mail and include an individual report, you would do so now
                .MoveNext
            Loop
        End If
    End With
 
    'Open the folder housing the PDF files (Optional)
    Application.FollowHyperlink sFolder
 
Error_Handler_Exit:
    On Error Resume Next
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    Exit Sub
 
Error_Handler:
    If Err.Number <> 2501 Then    'Let's ignore user cancellation of this action!
        MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
               "Error Number: " & Err.Number & vbCrLf & _
               "Error Source: Command0_Click" & vbCrLf & _
               "Error Description: " & Err.Description & _
               Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
               , vbOKOnly + vbCritical, "An Error has Occurred!"
    End If
    Resume Error_Handler_Exit
End Sub

[micniv]

Très certainement la ligne

DoCmd.OpenReport sReportName, acViewPreview, , "[TIERS]=" & ![TIERS],

si tiers est un STRING, il faut

Code :

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

"[TIERS]='" & ![TIERS] & "'"

Pour débugger, mets en commentaire la ligne

Code :

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

 On Error GoTo Error_Handler

alors le code t’indiquera en la sur quelle il y a une erreur

[omen123]

Bonjour Micniv ,

merc bcp pour le coup de main ,c est plus pratique de le faire un par un .

une autre question stp ,mon portefeuille contient presque 12000 clients je dois faire cette operation que pour 2000. Jai créé une requete selection avec critere [CF] = 17008 par exemple .

Serai t il possible de faire la meme chose avec le VBA (ajout du code ou modification) ?

PS : je suis trés trés debutant niveau VBA .