des conseils sur "Query"

M

ManuAntibes

Guest
Salut à tous

J'ai fais une macro avec l'enregistreur de macro sur excel.
Mais je ne comprend pas toujours se qu'il fait, pouvez vous m'expliquer .

Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 14/10/2004 par MARC
'

'
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Projet VB\Gestion du personnel\bd2.mdb;DefaultDir=C:\Projet VB\Gestion du personnel;DriverId=281;" _
), Array("FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
Range("j5"))
.CommandText = Array( _
"SELECT Re_inventaire.DATE_TICKET, Re_inventaire.NUMERO_RAYON, Re_inventaire.CODE_PLU, Re_inventaire.SommeDePOIDS_PIECES" & Chr(13) & "" & Chr(10) & "FROM `C:\Projet VB\Gestion du personnel\bd2`.Re_inventaire Re_inventaire" & Chr(13) & "" & Chr(10) & "WHERE" _
, _
" (Re_inventaire.DATE_TICKET={ts '2004-10-13 00:00:00'}) AND (Re_inventaire.NUMERO_RAYON=5) AND (Re_inventaire.CODE_PLU=1010)" _
)
.Name = "Lancer la requête à partir de MS Access Database"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

End Sub
A quoi correspond ces lignes:

DriverId=281
MaxBufferSize=2048
PageTimeout=5

merci
 

Statistiques des forums

Discussions
312 979
Messages
2 094 121
Membres
105 941
dernier inscrit
antho_qh