Macro tableau croisé beugue

[Stéphane]

Bonjour à tous,

Complètement bloqué; je ne m'y connais pas trop !
Pourriez vous m'aider à comprendre pourquoi ma macro beugue au niveau de l'ActiveSheet.PivotTables.

D'avance un grand MERCI !



Sub Macro()

Dim age (7) As String
Dim i As Integer

base = InputBox ('Nom de la base utilisée ?', , 'Base')
mois = InputBox ('Mois ?', , 'Septembre')

age(1) = 'PARIS'
age(2) = 'LYON'
age(2) = 'MARSEILLE'

Sheets ('Feuil1').Select
' ActiveSheet.PivotTables ('Tableau croisé dynamique1').PivotFields('Agence'). _
CurrentPage = age (i)

Range ('A65000').End(xlUp).CurrentRegion.Copy

End Sub

 

[Dugenou]

Salut,

A première vue le i n'est pas défini dans le bout de code que tu indiques.

Pourrais tu joindre un bout de fichier avec le code entier ?

Bye