Bonjour , deouis quelques jours je m'obstine à créer un TCD mais je n'y parviens pas
voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Page = ActiveWorkbook.ActiveSheet.Name
Sheets(Page).Range("A7").CurrentRegion.Select
vTableau = Page + "!" + Selection.Address(ReferenceStyle:=xlR1C1)
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
    SourceData:=Page & "!" & vTableau).CreatePivotTable
    TableDestination:=Page & "!" & "R1C13", _
    TableName:="TCD" & Page,
En fait, je détermine la variable "vTableau" qui correspond à ma source. J'ai créé une variable car je veux créer un TCD à chaque feuille créée.

Et voici mon message d'erreur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
erreur d'execution "5"
Argument ou appel de procédure incorrect
De plus pensez vous qu'il soit plus judicieux de créer un autre bouton de commande pour rafraichir mon TCD ou il vaut le faire à la suite du code de création de mon TCD

Merci pour votre aide