1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim toto As String
toto = Range("A1")
Range("A1").Activate
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = Array(Array( _
"ODBC;DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=HEPSTG1;DBQ=ECFH0;DFTPKGLIB=ECHF0;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2" _
), Array(",0,1,0,512;"))
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT CASE SCQNCC WHEN '' THEN null ELSE 1 End as CFCLI, CAST(SCQLCT as NUMERIC(1, 0))AS CFT, CAST(SCQLCP as NUMERIC(1, 0))AS CFP, SCQPOS, SCQAGC, SCQDPT, SCQDFA FROM SCQPOS WHERE SCQAGC=77 and SCQSCE=40 and SCQCLS=634859 and SCQDFA='" & toto & "' and SCQTYP=1")
.CreatePivotTable TableDestination:="[SCQPOS.xls]Données!R2C2", _
TableName:="Tx", DefaultVersion:= _
xlPivotTableVersion10
End with |
Partager