Discussion :

[sun19]

Bonjour,

J'ai créé sous excel 2002 une petite macro me permettant de générer automatiquement des TCD en passant en paramètre des plages de données dynamiques en utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=plage_data) _
        .CreatePivotTable TableDestination:=plage_dest _
        , TableName:=nom_TCD

Sous excel 2002 pas de pb mais sous excel 2000 cela ne marche pas (erreur 5 argument incorrect). Cela vient, je pense, de sourcedata qui n'aime pas les données dynamiques (g testé avec une plage en "dur" et c'est ok).

Comment résoudre ça avec excel 2000? Est-ce un pb de references?

Merci d'avance

[SilkyRoad]

bonsoir

je n'ai pas Excel2000 pour tester mais tu peux essayer cette autre méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CreerTCD()
    Dim Plage As Range
 
    Set Plage = Feuil1.Range("A1:B6")
 
    ActiveWorkbook.PivotTableWizard SourceType:=xlDatabase, _
        SourceData:=Plage, TableDestination:=Feuil2.Range("A1")
End Sub

bonne soiree
michel