graphique sur source de données externe
Bonjour à tous,
J'ai réussite à créer un TCD sur une source de données externe (AS400)
via le code suivant et je n'arrive pas à faire la mêmle chose avec un graphique :
Code:
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 |
Mon problème est que je ne peux pas faire mon graphique sur mon TCD car je ne veux pas utiliser les mêmes champs.
Qui pourrez me donner le code adapté à un graphique svp ?
Merci
