Bonjour,
J'ai un petit souci, je souhaiterai pouvoir automatisé la création d'un tableau croisé dynamique avec VB, j'ai enregistré une macro qui crée ce fameux tableau, et j'ai modifié les variable de cette macro afin de pouvoir l'utiliser dans plusieurs cas différents. Le code modifié donne ca:
Lorsque je lance le programme, une erreur surgit de cette ligne
je gratte depuis hier dessus, et j'ai toujours pas compris l'erreur, si quelqu'un pouvait m'aider ça serait sympa, merci.
J'ai un petit souci, je souhaiterai pouvoir automatisé la création d'un tableau croisé dynamique avec VB, j'ai enregistré une macro qui crée ce fameux tableau, et j'ai modifié les variable de cette macro afin de pouvoir l'utiliser dans plusieurs cas différents. Le code modifié donne ca:
Code:
i = 6
While Not IsEmpty(Cells(i, 1))
i = i + 1
Wend
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'" & Sheets(ComboPièce).Activate & "'!" & Range(Cells(6, 1), Cells(i - 1, 13))).CreatePivotTable TableDestination:="'[Chiffrage.xls]" & Sheets(ComboPièce).Activate & "'!" & Cells(6, 16), TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.SmallScroll Down:=-9
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Code")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Marge T."), "Nombre de Marge T.", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Prix net HT"), "Nombre de Prix net HT", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("PTHT"), "Nombre de PTHT", xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique1").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Type")
.Orientation = xlRowField
.Position = 1
End With
ActiveWorkbook.ShowPivotTableFieldList = False
Code:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'" & Sheets(ComboPièce).Activate & "'!" & Range(Cells(6, 1), Cells(i - 1, 13))).CreatePivotTable TableDestination:="'[Chiffrage.xls]" & Sheets(ComboPièce).Activate & "'!" & Cells(6, 16), TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10