Discussion :

[marot_r]

Bonjour à tous, bonne et heureuse année et merci de votre aide.

J'ai un tableau croisé qui présente les données en provenance d'une base de données. Dans ces données il y a un période de douze mois (Novembre à Octobre) qui change chaque année. Pour chaque période j'ai un champ dans ma requête. Par exemple, cette année j'ai les champs [2010-11] à [2011-10] et l'année prochaine j'aurai les champs [2011-11] à [2012-10].

Actuellement je fais les modifications à la main. C'est un peu pénible et source d'erreur.

En fouillant sur Internet j'ai trouvé qu'apparemment je devrais utiliser la méthode PivotTableWizard de l'objet PivotTable mais aucun exemple prenant une requête comme source du tableau et mes essais ne se sont révélés concluants.

J'aimerais, par code, remplacer la requête actuelle (ex : Select [Table1].[Champ01], [Table1].[Champ02], [Table1].[Champ02], [Table1].[2010-11], ..., [Table1].[2011-10] form [Table1] par la nouvelle (ex : Select [Table1].[Champ01], [Table1].[Champ02], [Table1].[Champ02], [Table1].[2011-11], ..., [Table1].[2012-10] form [Table1]

A+

[pgz]

Bonjour.

S'il s'agit de changer des noms de champs, c'est assez simple en VBA.
Il faut commencer pas ajouter les nouveaux noms dans la ligne d'en-tête des données. Si les nouveaux noms remplacent les anciens, au premier Refresh, les anciens champs ont disparus et les nouveaux sont dans la liste. Il suffit alors de les placer dans la zone de données du TCD, de ligne, de colonne ou de page et dans l'ordre que tu souhaites, ce qui se fait en renseignant la propriété Orientation de chaque nouveau champ.

Cordialement,

PGZ

[marot_r]

Merci pgz, comment dois-je procéder pour faire cela.

As-tu un exemple de code ?

Juste pour être certain, les champs de l'année précédente vont disparaitre de la source de données et être remplacés par ceux de l'année en cours. Au total j'ai toujours autant de champs.

A+

[pgz]

Bonjour.

Les champs en question ont quelle orientation : ligne, colonne, page, données?

Il faut aussi que la base de données soit à jour (plus de champs anciens mais tous les nouveaux). En supposant que ce sont des champs de colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub subMarot()
Dim pvt As Excel.PivotTable
Dim dte As Date, iMois As Integer
 
Const dDebut As Date = #11/1/2010#
 
Set pvt = ThisWorkbook.Worksheets("NomFeuille").PivotTables("NomTCD")
pvt.PivotCache.Refresh
 
For iMois = 0 To 11
    dte = DateAdd("m", iMois, dDebut)
    pvt.PivotFields(Format(dte, "yyyy - mm")).Orientation = xlColumnField
Next i
 
Set pvt = Nothing
 
End Sub

Bien cordialement,

PGZ

[marot_r]

Pgz, je viens d'essayer ton code en changeant ma source de données dans ma base Access et lors du pivottable.refresh j'ai le message suivant :

erreur 1004, Trop peux de paramêtres, 12 attendus.

Cela correspond aux nombres des nouveaux champs de l'année en cours.

À mon humble avis cela vient du fait que la DatSource n'a pas été mis à jour et qu'elle cherche toujours les champs de 2009.

A+

Au fait mes champs sont de type xlPageField.

À part pour pvt.PivotFields(Format(dte, "yyyy - mm")).Orientation = cela change-til le code ?

A+

[pgz]

Bonsoir.

Si les champs sont toujours là, il faut les descendre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub subMarot()
Dim pvt As Excel.PivotTable
Dim dte As Date, iMois As Integer
 
Const dDebut As Date = #11/1/2009#
 
Set pvt = ThisWorkbook.Worksheets("NomFeuille").PivotTables("NomTCD")
 
For iMois = 0 To 11
    dte = DateAdd("m", iMois, dDebut)
    pvt.PivotFields(Format(dte, "yyyy - mm")).Orientation = xlHidden
Next i
 
pvt.PivotCache.Refresh
 
For iMois = 12 To 23    dte = DateAdd("m", iMois, dDebut)
    pvt.PivotFields(Format(dte, "yyyy - mm")).Orientation = xlPageField
Next i
 
Set pvt = Nothing
 
End Sub

Cordialement,

PGZ

[marot_r]

Désolé même résultat.

Le masquage des champs de 2009 se fait bien mais dès que je demande le refresh j'ai le message d'erreur 'Trop peu de paramêtres. 12 attendus'.

A+

[marot_r]

Bon j'ai perdu suffisement de temps là dessus. Je vais écrire une procédure manuelle pour faire cela.

Merci de votre aide.

A+