[XL-2010] import de donnée depuis un tcd

import de donnée depuis un tcd

Bonjour

je cherche à importer des données depuis un Tableau croisé

les données sont organisées en colonnes de mois dans le tableau croisé dynamique pour l'année précédente j'ai les 12 mois DONC y a pas de problème

mais pour l'année en cours par exemple il y a uniquement des données sur le mois de janvier dans mon Tableau croisé: au fur à mesure qu'on aura des données pour les mois suivant le tableau croisé les affichera:

le problème c'est comment ramener au fur à mesure les données concernant les mois en cours.

j'ai fais un bout de code vraiment basique à l'aide de l'enregistreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sheets("PROD").Select
range("D10").select
 
ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Janvier"")"
    Range("D11").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Février"")"
    Range("D12").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Mars"")"
    Range("D13").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Avril"")"
    Range("D14").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Mai"")"
    Range("D15").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Juin"")"
    Range("D16").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Juillet"")"
    Range("D17").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Août"")"
    Range("D18").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Septembre"")"
    Range("D19").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Octobre"")"
    Range("D20").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Novembre"")"
    Range("D21").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Décembre"")"

si je suis sur la nouvelle année et que je n'ai que les données de janvier comment faire et ensuite au file des mois ?

Bonjour,
une solution primaire mais efficace consiste à intégrer à ton pivot (ou à coté via des formules calculèes) une colonne (calculée ou pas, à toi de voir) contenant la période sous la forme YYYYMM par exemple.

Il te suffit alors de traiter tes données data et périodes en accédant les cellules depuis la première ligne du pivot jusqu'à la dernière (j'espère que tu me comprends) en utilisant le YYYYMM lu comme index de ventilation

Ainsi, tu te libères des contraintes d'année et de mois variables.

Bonjour Godzestla
merci pour ta réponse
j'ai essayé de comprendre ce que tu as écris : tu veux dire une colonne qui afficherait les mois et l'année ?

J'ai essayé un champ calculé mais il me ramène des données.
j'ai du mal à intégrer ce champs.

Rebonjour,

j'ai intégrer la colonne période mais ya deux valeurs calculé dans le pivot du coup j'ai deux liste de données superposé de janvier à décembre
de janvier à decembre.