Tableau croisé dynamique et VBA

FORUM Tom's Hardware » Programmation » Autre » Tableau croisé dynamique et VBA

Tableau croisé dynamique et VBA

Il y a 351 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Tableau croisé dynamique et VBA

duhartfr

Plus d'informations

06-02-2006 à 11:09:14

Bonjour,

J'essai actuellement de programmer un tableau croisé dynamique avec Excel97. Voici le code:

Citation :

Sub tableau()

NomFichTrait = ActiveWorkbook.Name
NomFeuilDonnees = ActiveSheet.Name
NomFeuilTab = "TCD"

'création de la feuille du TCD

Sheets("Catégories" ).Select
Sheets.Add
ActiveSheet.Name = NomFeuilTab

Worksheets("Données" ).Activate

NomTab = "TCD100"

ActiveSheet.PivotTableWizard xlDatabase, _
Range("A7:E111" ), _
Worksheets("TCD" ).Range("A3" ), _
TableName:="TCD100" , _
SaveData:=True

ActiveSheet.PivotTables(NomTab).AddFields RowFields:= _
"Affaire", ColumnFields:=Array("Catégorie", "Nom" )
ActiveSheet.PivotTables(NomTab).PivotFields( _
"Nb d'heures (heures décimale)" ).Orientation = xlDataField

End Sub

Mon probléme est le suivant: La première fois que je lance la macro elle marche très bien. Mais quand j'essaie de la relancer (après avoir supprimer la feuille "TCD" ), Excel me renvoie une erreur 1004.

Si qq'un a une idée, il est le bienvenu...

Merci d'avance

Fred