Bonjour à tous,
J'ai une VBA qui fait appel successivement à des modifications multiples, suppression lignes, tri, et classement pour terminer sur un croisé dynamique.
A la dernière étape qui consiste à créer un croisé dynamique cela beug !
"erreur de compilation"
NB cette macro fonctionne correctement seul mais pas associé.
Sheets("Feuil4").Select
.Range("1:3,5:5").Delete
Sheets("Feuil1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C6:R2300C20").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("dfdd.", "Données")
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("code" _
)
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("quantité" _
)
.Orientation = xlDataField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("xxx"). _
Orientation = xlDataField
Application.CommandBars("PivotTable").Visible = False
End Sub
Avez vous une solution, ou est ce normal ?
A+
J'ai une VBA qui fait appel successivement à des modifications multiples, suppression lignes, tri, et classement pour terminer sur un croisé dynamique.
A la dernière étape qui consiste à créer un croisé dynamique cela beug !
"erreur de compilation"
NB cette macro fonctionne correctement seul mais pas associé.
Sheets("Feuil4").Select
.Range("1:3,5:5").Delete
Sheets("Feuil1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C6:R2300C20").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("dfdd.", "Données")
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("code" _
)
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("quantité" _
)
.Orientation = xlDataField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("xxx"). _
Orientation = xlDataField
Application.CommandBars("PivotTable").Visible = False
End Sub
Avez vous une solution, ou est ce normal ?
A+