TCD EN VBA

[EMMANUEL]

Encore moi 😉

j'ai une macro pour faire un vba
seulement je voudrai que les données alimentent chaque fois le même onglet nommé TCD
Ci-dessous un extrait de la requete...

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'etape2!R2C1:R8000C7').CreatePivotTable TableDestination:=Sheets('TCD').Select, _
TableName:='Tableau croisé dynamique8'

LE programme BUGUE!!!!

je voudrais réutiliser à chaque fois le même onglet
car d'un autre côté je récupère les données avec formule
liredonneestabcroisdynamique

merci d'avance

 

[Dan]

Bonsoir,

Rien d'anormal à première vue dans ta macro.
Une chose à vérifier cependant :

1. etape2!R2C1:R8000C7 est ta source de données et la feuille s'appelle bien 'étape2'
2. Sheet('Tcd') est bien la feuille devant recevoir le TCD et s'appelle bien TCD
3. Tu dois aussi enlever toutes les données se trouvant dans la feuille (ici TCD) de destination du TCD que tu crèes

🙂

 

[EMMANUEL]

Le message d'erreur est erreur execution 5, argument ou appel de procédure incorrect

Sheets('etape2').Select
Range('C13').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'etape2!R2C1:R8000C7').CreatePivotTable TableDestination:=Sheets('TCD').Select, _
TableName:='Tableau croisé dynamique8' ActiveSheet.PivotTables('Tableau croisé dynamique8').SmallGrid = False
ActiveSheet.PivotTables('Tableau croisé dynamique8').AddFields RowFields:= _
Array('TYPE', 'OPCVM'), ColumnFields:='MOIS', PageFields:='DEPOSITAIRE'
ActiveSheet.PivotTables('Tableau croisé dynamique8').PivotFields('Actif net'). _
Orientation = xlDataField
Range('D14').Select
With ActiveSheet.PivotTables('Tableau croisé dynamique8').PivotFields( _
'Somme Actif net')
.Function = xlAverage
.NumberFormat = '# ##0,00'
End With
Application.CommandBars('PivotTable').Visible = False
End Sub

 

[Dan]

Bonsoir,

Merci de ton code mais ce que je voudrais c'est que tu me confirmes ce que je t'ai écrit avant, car là sans ton fichier c'est un peu difficile de te répondre à partir de code erreur.

Dis moi également où ta macro s'arrete.

🙂