création de plusieurs tableaux croisés dynamiques

[Adam]

Bonjour,

Lorsque je crée plusieurs tableaux dynamiques à l'aide de macros,je ne peux pas en créer un sans fermer le précédent si ils ont le même tableau source.

L'erreur vient du 'xlPivotTableVersion10'.

Que faire pour en céer plusieurs les uns à la suite des autres svp?

 

[chris]

Bonjour
Une piste : est-ce que la macro n'essaye pas de donner le même nom à plusieurs tableaux ?

 

[Dan]

Bonsoir,

je ne sais pas si je pourrai t'aider sans voir un fichier mais peux-tu me montrer ta macro.

Merci

😉

 

[adam]

Salut,voici un exemple de macro:

Sub Nb()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'azerty!$A:$EY').CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique1', DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables('Tableau croisé dynamique1').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique1').PivotFields('log'), _
'Nom', xlCount
With ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields( _
'Seg')
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.Name = 'Nb'
End Sub

Sub Comp()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'azerty!$A:$EY').CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique5', DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables('Tableau croisé dynamique5').PivotFields( _
'id_')
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables('Tableau croisé dynamique5').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique5').PivotFields('Sir'), _
'Nom', xlCount
With ActiveSheet.PivotTables('Tableau croisé dynamique5').PivotFields( _
'Seg')
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique5').PivotFields('Sir')
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables('Tableau croisé dynamique5').PivotFields('id'). _
CurrentPage = '(vide)'
ActiveSheet.Name = 'Com'
End Sub


Il me met en jaune le 'DefaultVersion:=xlPivotTableVersion10' de sub comp(),mais il me lance sans probleme le premier.
Je ne comprend pas pourquoi...

 

[Dan]

Re:création de plusieurs tableaux croisés dynamiqu

Bonjour,

Tu peux supprimer ' DefaultVersion:=xlPivotTableVersion10'

Supprime aussi 'ActiveSheet.Cells(3, 1).Select' dans tes deux macros.

Si pb n'hésite pas

😉

 

[Adam]

Re:création de plusieurs tableaux croisés dynamiqu

Ok merci beaucoup :woohoo: