Sub test2()
'
' test2 Macro
' Macro enregistrée le 15/06/2009 par freddy
'
'
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CONSUMABLE IN MECHANICS").Visible = False
.PivotItems("DIA PURCHASING SEGMENTS").Visible = False
.PivotItems("ELECTRICITY").Visible = False
.PivotItems("ENERGY FUELS & UTILITIES").Visible = False
.PivotItems("GENERAL SERVICES").Visible = False
.PivotItems("INSTRUMENTATION AND CONTROL").Visible = False
.PivotItems("IT AND TELECOM.").Visible = False
.PivotItems("LABORATORY PRODUCTS AND EQU.").Visible = False
.PivotItems("LOGISTICS- PACKAGING").Visible = False
.PivotItems("LUBRICANTS").Visible = False
.PivotItems("MACHINES AND PROCESS EQU.").Visible = False
.PivotItems("MISC CONSUMABLES").Visible = False
.PivotItems("PHARMACEUTICALS PRODUCTS").Visible = False
.PivotItems("TECHNICAL GOODS").Visible = False
.PivotItems("TECHNICAL GOODS AND SERVICES").Visible = False
.PivotItems("VALVES AND PIPING").Visible = False
.PivotItems("VESSELS AND SPECIAL EQU.").Visible = False
.PivotItems("(vide)").Visible = False
.PivotItems("Not Assigned Mat Group DIA (s)").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CHEMICALS AND RAW MATERIALS").Visible = False
.PivotItems("IT AND TELECOM.").Visible = True
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("I34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("IT AND TELECOM.").Visible = False
.PivotItems("TECHNICAL GOODS").Visible = True
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("J34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CHEMICALS AND RAW MATERIALS").Visible = True
.PivotItems("TECHNICAL GOODS").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("K34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-21
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CHEMICALS AND RAW MATERIALS").Visible = False
.PivotItems("PHARMACEUTICALS PRODUCTS").Visible = True
End With
ActiveWindow.SmallScroll Down:=-6
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("L34").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.SmallScroll Down:=-18
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("ENERGY FUELS & UTILITIES").Visible = True
.PivotItems("PHARMACEUTICALS PRODUCTS").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("M34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("ENERGY FUELS & UTILITIES").Visible = False
.PivotItems("LOGISTICS- PACKAGING").Visible = True
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("N34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-18
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("GENERAL SERVICES").Visible = True
.PivotItems("LOGISTICS- PACKAGING").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
Range("O24").Select
Range("O34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
End Sub