S
Stéphane79
Guest
Bonjour à tous,
J'essaie de faire s'actualiser un TCD automatiquement mais je n'y arrive pas !
Pourriez-vous me dire ce qui cloche dans ce que j'ai écrit ?
Merci pour vos conseils précieux !
Stéphane79
Sub Actualisation_TCD()
Application.ScreenUpdating = False
Dim age(4) As String
Dim rep(5) As String
Dim i As Integer
base = InputBox('Nom de la base utilisée ?', , 'ExBaseTCD.xls')
age(0) = 'PARIS'
age(1) = 'LYON'
age(2) = 'MARSEILLE'
age(3) = '(Tous)'
For i = 0 To age(4)
Windows(base).Activate
Sheets('TCD').Select
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields('Agence').CurrentPage = age ()
'Masque les lignes vident qui se crée en changeant les champs (paramètres/champs/dispositions/insérrer ou masquer une ligne
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields('Article').LayoutBlankLine = False
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotCache.Refresh
Range('A65000').End(xlUp).CurrentRegion.Copy
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
End Sub
Merci d'avoir jeté un oeil
Stéphane79
[file name=ExBaseTCD_20051120214708.zip size=10929]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExBaseTCD_20051120214708.zip[/file]
J'essaie de faire s'actualiser un TCD automatiquement mais je n'y arrive pas !
Pourriez-vous me dire ce qui cloche dans ce que j'ai écrit ?
Merci pour vos conseils précieux !
Stéphane79
Sub Actualisation_TCD()
Application.ScreenUpdating = False
Dim age(4) As String
Dim rep(5) As String
Dim i As Integer
base = InputBox('Nom de la base utilisée ?', , 'ExBaseTCD.xls')
age(0) = 'PARIS'
age(1) = 'LYON'
age(2) = 'MARSEILLE'
age(3) = '(Tous)'
For i = 0 To age(4)
Windows(base).Activate
Sheets('TCD').Select
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields('Agence').CurrentPage = age ()
'Masque les lignes vident qui se crée en changeant les champs (paramètres/champs/dispositions/insérrer ou masquer une ligne
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields('Article').LayoutBlankLine = False
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotCache.Refresh
Range('A65000').End(xlUp).CurrentRegion.Copy
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
End Sub
Merci d'avoir jeté un oeil
Stéphane79
[file name=ExBaseTCD_20051120214708.zip size=10929]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExBaseTCD_20051120214708.zip[/file]