Bonjour à tous,
J'ai encore une fois besoin de vos lumière:
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
Private Sub btn_Impression_Click()
Dim TypeMat As String

Select Case Me.lst_Type
    Case "Serveur"
        TypeMat = "Serveur"
    Case "Imprimante"
        TypeMat = "Imprimante"
    Case "Desktop"
        TypeMat = "Desktop"
    Case "Laptop"
        TypeMat = "Laptop"
    Case "Ecran"
        TypeMat = "Ecran"
    Case "PDA"
        TypeMat = "PDA"
    Case "Periferiques"
        TypeMat = "Periferiques"
    Case "Autres"
        TypeMat = "Autres"
    Case Else
        TypeMat = ""
End Select
    If Me.chk_Tous.Enabled = True Then
        DoCmd.RunMacro "TotalPc"
    
    ElseIf Me.chk_HS.Enabled = True Then
        DoCmd.RunMacro "PcHs"
    
    ElseIf Me.chk_Production.Enabled = True Then
        DoCmd.RunMacro "PcOk"
    
    ElseIf Me.chk_Stock.Enabled = True Then
        DoCmd.RunMacro "PcStock"
    
    ElseIf TypeMat <> "" Then
    'DoCmd.RunMacro "PcTypeListe"
    DoCmd.OpenReport "etat_Pc", acViewPreview, "", [tbl_Pc].[Etat]='[TypeMat]'", acNormal

    End If
End Sub
J'ai réussit les Macro en passant par Access maintenant je veut inclure une condition particulière donc je me met au VBA le problème étant qu'il m'affiche un état vide comme si il ne comprennais pas la clause condition.

Mercipour vos lumière