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 : 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
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 ?