Tableau croisé dynamique et VBA

[duhartfr]

Bonjour,

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

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

 

[KangOl]

balise

 :o