Bonjour à tous et merci de vos réponses d'avance.

J'ai récupérer un code de ma "patronne" qui l'avais fait à la barbare. J'ai couper le sub en fonction, mais arrivé à la création de tableaux dynamique j'avoue que je peine un peu. Je vous donne le code dites moi si vous voyez quelque chose de pas bon :

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
Function_echantillon()
Sheets("XPART").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).select
Range(Selection, Selection.End(xlToRight)).select
Application.CutCopyMode = False ' Me demandez pas pourquoi y'a cette ligne je comprend pas, dites moi si elle est utile ou pas
ActiveWorkbook.Names.Add Name :="DonnéesSourcesTCD2", RefersTo:=Selection  ' Enregistre dans une plage de cellule les informations qui seront utilisées dans le Tableau dynamique
 
Sheets("TCD").Select
Range("E1"). Select
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DonnéesSourceTCD2").CreatePivotTable TableDestination:= _
"TCD!R3C5", TableName:="TCDnbpieces", _
DefaultVersion:=xlPivotTableVersion10
 
ActiveSheet.PivotTables("TCDnbpieces").AddFields RowFields:= _
"Echantillon", PageFields:=Array("Groupe","BM","Equipe")
 
With ActiveSheet.PivotTables("TCDnbpieces").PivotFields("piece"
.Orientation = xlDataField
.Caption = "Nombre de pieces"
.Funtion = xlCount
End With
 
ActiveSheet.PivotTables("TCDnbpieces").PivotFields("Groupe"). _
CurrentPage = Groupe  ' A cette ligne, j'ai une erreur '1004' Impossible de definir la propriété _Default de la classe PivotItem.
 
ActiveSheet.PivotTables("TCDnbpieces").PivotFields("BM"). _
CurrentPage = BM
Alors, avant je n'avais pas d'erreur, je ne comprend pas, pouvez-vous m'expliquer pourquoi y'a cette erreur ?

Merci d'avance, aidez-moi s'il vous plait