Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub nouvelle_periode()
- 'Crée un nouveau planning vierge fonctionnel à partir des feuilles types
- 'Copie les tableau et analyse
- ActiveWorkbook.Worksheets("Période type").Copy After:=Sheets(Sheets.Count)
- ActiveSheet.Name = "nouvelle-periode"
- ActiveWorkbook.Worksheets("Analyse type").Copy After:=Sheets(Sheets.Count)
- ActiveSheet.Name = "nouvelle-analyse"
- 'Associer la bonne période comme référence pour les tableaux croisés
- dynamiques de la feuille d'analyse
- Dim wb As Workbook
- Dim ws As Worksheet
- Dim pt As PivotTable
- Dim datarange As Range
- donnees = Worksheets("nouvelle-periode").Range("F10:M500")
- Worksheets("nouvelle-analyse").Activate
- Set wb = ActiveWorkbook
- Set ws = ActiveSheet
- For Each pt In ws.PivotTables
- pt.ChangePivotCache _
- wb.PivotCaches.Create(SourceType:=xlDatabase, _
- SourceData:=donnees)
- Next pt
- End Sub
Add Comment
Please, Sign In to add comment