Discussion :

[Benwad]

bonjour a tous,

j'ai créé un fichier excel me permettant d'effectuer mes comptes . Dans ce fichier j'y intégre régulièrement de nouvelles feuilles ("Janvier 2008", "Février 2008"...) puis je fais un TCD pour chaque mois.
Ci-dessous le TCD du mois de Janvier 2008.
Jusque là pas de problème. Par contre, je rencontre des difficultés pour créer un TCD qui tienne compte toutes les données de toutes les feuilles.
J'espère avoir été assez claire dans mes explications, peut être avez une solution à me donner?
A l'avance merci

Code :

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

1
2
3
4
5
6
Sheets("Janvier 2008").Range("A7").CurrentRegion.Select
vTableau = "Janvier 2008!" + Selection.Address(ReferenceStyle:=xlR1C1)
Sheets("Janvier 2008").Range("a1").Select
MsgBox vTableau
ActiveSheet.PivotTables("Tableau croisé dynamique1").SourceData = vTableau
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

[alsimbad]

il faut que tu utilise des plages nommées pour pouvoir créer un tableau croisé dynamique a partir de plusieur feuilles

[SilkyRoad]

bonjour

j'espère que ce lien pourra t'aider

Comment créer un TCD multipages par macro ?


bonne soirée
michel

[Benwad]

merci a toi Silkyroad
je vais essayer
Par contre je rencontre un autre problème, toujours avec mon TCD.
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 :

Code :

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

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-dessous fonctionne très bien sur ma première feuille, en l'occurence "Janvier 2008"

Merci pour votre aide