S
Stéphane
Guest
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
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