Bonjour,
j'ai une "erreur d'exécution '13', Incompatibilité de type" lors de la création d'un tableau croisé dynamique. Le debug ne m'aide pas beaucoup.

Voici le code, que j'ai écrit sur base d'infos du forum:
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
Public Sub AjoutTCD(FileSVxl As String, NameFeuille As String, NbLignes As Long)
     Dim NomTCD As String
 
     Windows(FileSVxl).Activate
     NomTCD = "TCD_PlanProto"
 
     Sheets(NameFeuille).Select
 
     Dim PlageTCD As Range: Set PlageTCD = ActiveWorkbook.Worksheets(NameFeuille).Range("A1:AF" & NbLignes)
     Dim tcd As PivotCaches: Set tcd = ActiveWorkbook.PivotCaches
 
    Sheets.Add before:=Worksheets(1)
 
    tcd.Create(SourceType:=xlDatabase, SourceData:=PlageTCD, Version:=xlPivotTableVersion10). _
        CreatePivotTable Tabledestination:=Worksheets(1).Range("A3"), TableName:="Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Programme")
        .Orientation = xlPageField
        .Position = 1
    End With
L'erreur se produit sur la ligne tcd.create.
Quelqu'un pourrait-il m'indiquer où chercher l'erreur, je ne sais pas quel argument n'est pas bien déclaré.
D'avance merci