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 : Sélectionner tout - Visualiser dans une fenêtre à part
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