Bonjour,

Je rencontre un problème dans ma macro lors de la création du TCD.
Pour explique le but et le raisonnement de ma macro :
Je pars d'un fichier source dans l'onglet "MTP Primes-Ind" qui est variable en fonction du mois, et je voudrais que la macro crée un TCD à partir de ce fichier dans l'onglet "Rappro primes MTP".
Je crée donc 3 variables : l'une pour le nom de la feuille source, la 2nde pour la dernière ligne qui bouge chaque mois, la dernière pour définir la plage à choisir.
Le code donne ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim f7 As String
f7 = "MTP Primes-Ind"
 
Dim derlignef7 As Long
derlignef7 = Worksheets(f7).Range("A" & Rows.Count).End(xlUp).Row
 
Dim plagef7 As Range
Set plagef7 = Worksheets(f7).Range(Cells(1, 1), Cells(derlignef7, 18))
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        plagef7, Version:=xlPivotTableVersion15). _
        CreatePivotTable TableDestination:="Rappro primes MTP!R10C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion15
Lors de l'exécution de la macro, le logiciel me renvoie le message d'erreur "Incompatibilité de type"

Est-ce que quelqu'un aurait une solution à proposer svp?