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