PivotTables.Add, méthode (Excel)

Article
04/07/2023

Cette méthode ajoute un nouveau rapport de tableau croisé dynamique. Elle renvoie un objet PivotTable.

Syntaxe

expression. Add (PivotCache, TableDestination, TableName, ReadData, DefaultVersion)

Expression Variable qui représente un objet PivotTables .

Parameters

Nom	Requis/Facultatif	Type de données	Description
PivotCache	Requis	PivotCache	Cache de tableau croisé dynamique sur lequel repose le nouveau rapport de tableau croisé dynamique. Le cache fournit les données nécessaires au rapport.
TableDestination	Obligatoire	Variant	Cellule située dans le coin supérieur gauche de la plage de destination du rapport de tableau croisé dynamique (plage de la feuille de calcul destinée à recevoir le rapport obtenu). Vous devez spécifier une plage de destination sur la feuille de calcul qui contient l'objet PivotTables spécifié par expression.
TableName	Facultatif	Variante	Nom du nouveau rapport de tableau croisé dynamique.
ReadData	Facultatif	Variant	True pour créer un cache de tableau croisé dynamique contenant tous les enregistrements issus de la base de données externe ; ce cache peut être très volumineux. False pour autoriser la définition de certains champs en tant que champs de page reposant sur un serveur avant que les données soient effectivement lues.
DefaultVersion	Facultatif	Variant	Version de Microsoft Excel dans laquelle le tableau croisé dynamique a été créé à l’origine.

Valeur renvoyée

Objet PivotTable qui représente le nouveau rapport de tableau croisé dynamique.

Exemple

Cet exemple crée un cache de tableau croisé dynamique basé sur un fournisseur OLAP, puis crée un rapport de tableau croisé dynamique basé sur le cache dans la cellule A1 de la première feuille de calcul.

Dim cnnConn As ADODB.Connection 
Dim rstRecordset As ADODB.Recordset 
Dim cmdCommand As ADODB.Command 
 
' Open the connection. 
Set cnnConn = New ADODB.Connection 
With cnnConn 
 .ConnectionString = _ 
 "Provider=Microsoft.Jet.OLEDB.4.0" 
 .Open "C:\perfdate\record.mdb" 
End With 
 
' Set the command text. 
Set cmdCommand = New ADODB.Command 
Set cmdCommand.ActiveConnection = cnnConn 
With cmdCommand 
 .CommandText = "Select Speed, Pressure, Time From DynoRun" 
 .CommandType = adCmdText 
 .Execute 
End With 
 
' Open the recordset. 
Set rstRecordset = New ADODB.Recordset 
Set rstRecordset.ActiveConnection = cnnConn 
rstRecordset.Open cmdCommand 
 
' Create PivotTable cache and report. 
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _ 
 SourceType:=xlExternal) 
Set objPivotCache.Recordset = rstRecordset 
 
ActiveSheet.PivotTables.Add _ 
 PivotCache:=objPivotCache, _ 
 TableDestination:=Range("A3"), _ 
 TableName:="Performance" 
 
With ActiveSheet.PivotTables("Performance") 
 .SmallGrid = False 
 With .PivotFields("Pressure") 
 .Orientation = xlRowField 
 .Position = 1 
 End With 
 With .PivotFields("Speed") 
 .Orientation = xlColumnField 
 .Position = 1 
 End With 
 With .PivotFields("Time") 
 .Orientation = xlDataField 
 .Position = 1 
 End With 
End With 
 
' Close the connections and clean up. 
cnnConn.Close 
Set cmdCommand = Nothing 
Set rstRecordSet = Nothing 
Set cnnConn = Nothing

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via