Discussion :

[Naoned005]

Bonjour

Dans le classeur ci joint j'ai enregistré une macro qui par du tableau dans la ligne 1000 (oui il est bas lol) et qui en A1 fait un TCD

Mais quand j'exécute la macro il me dit "argument ou appel de procedure incorrect". Et il me surligne en jaune ces ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
 "Rapprochement NE1!R1003C3:R1093C7", Version:=xlPivotTableVersion14). _
 CreatePivotTable TableDestination:="Rapprochement NE1!R1C1", TableName:= _
 "Tableau croisé dynamique12", DefaultVersion:=xlPivotTableVersion14

Je ne vois pas pourquoi???



Sinon mon code de macro enregistré donne ça

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub Macro17()
 '
 ' Macro17 Macro
 '
 
'
     ActiveWindow.SmallScroll Down:=-33
     Range("D1035").Select
     ActiveWindow.SmallScroll Down:=-39
     Range("D1010").Select
     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
         "Rapprochement NE1!R1003C3:R1093C7", Version:=xlPivotTableVersion14). _
         CreatePivotTable TableDestination:="Rapprochement NE1!R1C1", TableName:= _
         "Tableau croisé dynamique12", DefaultVersion:=xlPivotTableVersion14
     Sheets("Rapprochement NE1").Select
     Cells(1, 1).Select
     ActiveWindow.SmallScroll Down:=-3
     With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
         "Code Bloom")
         .Orientation = xlRowField
         .Position = 1
     End With
     ActiveSheet.PivotTables("Tableau croisé dynamique12").AddDataField ActiveSheet. _
         PivotTables("Tableau croisé dynamique12").PivotFields("F+"), "Nombre de F+", _
         xlCount
     ActiveSheet.PivotTables("Tableau croisé dynamique12").AddDataField ActiveSheet. _
         PivotTables("Tableau croisé dynamique12").PivotFields("Bell"), "Nombre de Bell" _
         , xlCount
     ActiveSheet.PivotTables("Tableau croisé dynamique12").AddDataField ActiveSheet. _
         PivotTables("Tableau croisé dynamique12").PivotFields("Mom"), "Nombre de Mom", _
         xlCount
     ActiveSheet.PivotTables("Tableau croisé dynamique12").AddDataField ActiveSheet. _
         PivotTables("Tableau croisé dynamique12").PivotFields("Her"), "Nombre de Her", _
         xlCount
     With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
         "Nombre de Her")
         .Caption = "Somme de Her"
         .Function = xlSum
     End With
     With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
         "Nombre de Mom")
         .Caption = "Somme de Mom"
         .Function = xlSum
     End With
     With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
         "Nombre de Bell")
         .Caption = "Somme de Bell"
         .Function = xlSum
     End With
     With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
         "Nombre de F+")
         .Caption = "Somme de F+"
         .Function = xlSum
     End With
 
 
 
End Sub