En fait quand je crée une nouvelle feuille (par exemple "Fevrier 2008") Et que sur cette feuille je lui demande de me lancer mon TCD il me met un message d'erreur suivant :

erreur d'execution 1004, impossible de lire la propriété pivotables de la classe worksheet
sur la ligne suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.PivotTables("Tableau croisé dynamique1").SourceData = vTableau
Voici le code qui me permet de lancer mon TCD:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Page = ActiveWorkbook.ActiveSheet.Name
MsgBox Page
'NumPage = Worksheets.Count
'MsgBox NumPage
Sheets(Page).Range("A7").CurrentRegion.Select
vTableau = Page + "!" + Selection.Address(ReferenceStyle:=xlR1C1)
Sheets(Page).Range("a1").Select
'MsgBox vTableau
ActiveSheet.PivotTables("Tableau croisé dynamique1").SourceData = vTableau
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
En fait ce code ci-dessus fonctionne très bien sur ma première feuille, en l'occurence "Janvier 2008" mais pour les autres feuilles il met le message d'erreur cité ci-dessus

Merci pour votre aide