Discussion :

[adelion]

Bonsoir,

je reviens pour une seconde fois pour un probleme presque identique, mais la différence est que je voudrais faire une exportation du résultat d'une requête vers excel mais en ayant le choix entre deux filtre.

Bien sur tout marche dans le sens ou l'exportation est faite mais sans application de filtre dont voici le 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
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub cmdExportExcel3_Click()
 Dim strSQL As String
    Dim strQueryName As String
 
    Select Case Me.expRapport
 
    Case "qryRptPosteFlux" ' en place de 'Case "qryRptPosteFluxbis"
        strSQL = Replace(CurrentDb.QueryDefs("qryRptPosteFluxbis").SQL, ";", "")
        C_Where = InStr(strSQL, "WHERE")
        If C_Where Then
            strSQL = Left(strSQL, C_Where - 1) & "WHERE "
        End If
        '
        Case "qryRptBénéficiaire" ' en place de 'Case "qryRptBénéficiairebis"
       C_Where = InStr(strSQL, "WHERE")
        If C_Where Then
            strSQL = Left(strSQL, C_Where - 1) & "WHERE "
        End If
        '
 
        strFilter = "((([SUIVI DES CHEQUES 2007].Statut) Is Null"
 
        If Not IsNull(Me.expBénéficiaire) Then
            strFilter = strFilter & " AND [Beneficiaire]=""" & Me.expBénéficiaire & """"
            strCriteria = "Bénéficiaire = """ & Me.expBénéficiaire & """"
        End If
        '
            If Not IsNull(Me.expPosteFlux) Then
        If strFilter = "" Then
            strFilter = "[Description_Transaction]=""" & Me.expPosteFlux & """"
            strCriteria = "Catégorie=""" & Me.expPosteFlux & """"
 
        End If
'
        If Not IsNull(Me.expDateDe) Then
 
                strFilter = strFilter & " AND [Date du cheque]>=" & SQLDate(Me.expDateDe)
                strCriteria = strCriteria & " ET " & "Date du cheque >= '" & Me.expDateDe & "'"
        End If
 
        If Not IsNull(Me.expDateA) Then
 
            strFilter = strFilter & " AND [Date du cheque]<=" & SQLDate(Me.expDateA)
            strCriteria = strCriteria & " ET " & "Date du cheque <= '" & Me.expDateA & "'"
        End If
        '
        strSQL = strSQL & strFilter & "));"
        '
        CurrentDb.QueryDefs("qryRptPosteFluxbis").SQL = strSQL
        Me.expCriteria = strCriteria
 
        '
         CurrentDb.QueryDefs("qryRptBénéficiairebis").SQL = strSQL
        Me.expCriteria = strCriteria
 
End If
 
 End Select
 
 
    On Error GoTo Err_Références_Actives_Click
 
    chemin = "C:\PosteFlux"
    DoCmd.TransferSpreadsheet acExport, , "qryRptPosteFlux", chemin, False, ""
 
MsgBox ("c'est bon")
 
Exit_Références_Actives_Click:
    Exit Sub
 
Err_Références_Actives_Click:
    MsgBox err.Description
    Resume Exit_Références_Actives_Click
 
End Sub

Merci.

[nico84]

Bonsoir,

Pour faire ce type d'extraction je préfère travailler directement depuis excel :
Dans le menu "Données" il est possible de créer une connexion vers n'importe quelle base ODBC. La requête reste écrite en sous-jacent du tableau résultat et elle peut faire appel à des cases du tableau pour définir un filtre.

C'est très puissant et l'utilisateur apprécie beaucoup de voir son tableau se mettre automatiquement à jour à chaque ouverture

[adelion]

oui mais au fait j'ai le choix entre deux type de filtre, c'est a la convenance de l'utilisateur.

[nico84]

Comme on peut utiliser plusieurs cases (donc plusieurs paramètres) c'est assez souple. En plus lors de la mise à jour le formatage est conservé ainsi que les formules, graphiques... Enfin la plupart des utilisateurs savent filtrer dans excel et apprécient de personnaliser leurs filtres.

Pour ma part j'évite TransferSpreadsheet car l'utilisateur doit chaque fois refaire la mise en forme du fichier