variable et where

bonjour
voila comment utiliser une variable pour modifier dans where
je m'explique
choixx est different a la demande , donc cela peut etre un filtre jour, mois, seamine etc..

Code:

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
Sub export()

ActiveSheet.Columns("D:D").Select
    Selection.NumberFormat = "dd/mm/yyyy"
choixx = "Month(Date_Saisie) = '6'"
'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=C:\Users\geraldine\Documents\controleso.mdb;DefaultDir=C:\Users\geraldine\Documents;DriverId=25;FIL=" _
        ), Array("MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("$A$1")).QueryTable
        '.CommandType = 0
        .CommandText = Array( _
        "SELECT Listes.DO_Piece, Listes.RP_Code, Listes.AR_ref, Listes.Date_Saisie, Listes.DL_Qte, Listes.Initiales" & Chr(13) & "" & Chr(10) & "FROM `C:\Users\geraldine\Documents\controleso.mdb`.Listes Listes" & Chr(13) & "" & Chr(10) & "WHERE (Listes.RP_Code='021" _
        , "COFEMBA') AND (Listes.Initiales='SOFC0105') AND  choixx ")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        
        .Refresh BackgroundQuery:=False
    End With
End Sub

merdi d'avance