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 : 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 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
Partager