Sub Actualisation_TCD()
Dim age(1 To 4) As String
Dim rep(5) As String
Dim i As Integer
Application.ScreenUpdating = False
base = InputBox('Nom de la base utilisée ?', , 'ExBaseTCD.xls')
age(0) = 'PARIS'
age(1) = 'LYON'
age(2) = 'MARSEILLE'
age(3) = '(Tous)'
For i = 1 To UBound(age)
Windows(base).Activate
Sheets('TCD').Select
With ActiveSheet.PivotTables('Tableau croisé dynamique1')
.PivotFields('Agence').CurrentPage = age(i)
.PivotFields('Article').LayoutBlankLine = False
.PivotCache.Refresh
.PivotSelect '', xlDataAndLabel
End with
Sheets.Add
Range('A8').PasteSpecial Paste:=xlValues ', Operation:=xlNone, SkipBlanks:= _False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats ', Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
Application.ScreenUpdating = True
End Sub