Macro Tableau croisé dynam sous excel 2007

mat20008 -  
Bonjour,

Décidemment je n'arrete plus de poser des question concernant VBA que je découvre depuis peu...
Alors voici le soucis du jour:

Je crée un tableau dynamique dans l'onglet "LILLE", j'en ai fait au passage une macro, le soucis est d'utiliser ce code sur les onglets PARIS, MARSEILLE....dans chaque onglet

En essayant le code suivant dans l'onglet PARIS, évidemment ça bloque à cause de "LILLE", j'aimerai savoir ce qu'il faut modifier pour pouvoir utiliser la macro dans les autres onglets PARIS.....

Ca doit pas être très compliqué, mais je suis novice...
Cdmt

Sub TCD()
'
' TCD Macro
'

'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"LILLE!L1C1:L65536C20", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="LILLE!L11C22", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion10
Sheets("LILLE").Select
Cells(11, 22).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Commercial")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Mois Comptable")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Montant cde")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Montant cde"), _
"Nombre de Montant cde", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Mois Comptable")
.Orientation = xlColumnField
.Position = 1
End With
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 22
ActiveWorkbook.Save
Range("X16").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Mois Comptable").PivotFilters.Add Type:=xlDateThisYear
End Sub
Configuration: Windows XP
Internet Explorer 7.0

3 réponses

  1.  eriiic Contributeur
    Bonjour,

    partout où tu as Lille d'écrit remplace par le nom du classeur actif.
    Ex:
    "LILLE!L1C1:L65536C20" devient :
    activesheet.name & "!L1C1:L65536C20"
    (attention aux " ")

    eric
    5
    1. mat20008 Auteur
      Merci pour ta réponse, j'y suis presque, mais il me mets erreur d'execution 5, voici le code, modifié comme tu me l'as indiqué, la surbrillance se fait au niveau DefaultVersion:=xlPivotTableVersion12, j'comprend rein, c'est du grèque pour moi:)

      Sub TCD()
      '
      ' TCD Macro
      '

      '
      ActiveWindow.ScrollColumn = 11
      ActiveWindow.ScrollColumn = 12
      ActiveWindow.ScrollColumn = 13
      ActiveWindow.ScrollColumn = 14
      ActiveWindow.ScrollColumn = 15
      ActiveWindow.ScrollColumn = 16
      ActiveWindow.ScrollColumn = 17
      ActiveWindow.ScrollColumn = 18
      Range("W18").Select
      ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
      ActiveSheet.Name & "!L1C1:L1048576C20", Version:=xlPivotTableVersion12).CreatePivotTable _
      TableDestination:=ActiveSheet.Name & "!L18C23", TableName:="Tableau croisé dynamique1", _
      DefaultVersion:=xlPivotTableVersion12
      Sheets(ActiveSheet.Name).Select
      Cells(18, 23).Select
      ActiveWorkbook.ShowPivotTableFieldList = True
      With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Commercial")
      .Orientation = xlRowField
      .Position = 1
      End With
      With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Mois Comptable")
      .Orientation = xlRowField
      .Position = 2
      End With
      With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Montant cde")
      .Orientation = xlRowField
      .Position = 3
      End With
      ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
      PivotTables("Tableau croisé dynamique1").PivotFields("Montant cde"), _
      "Nombre de Montant cde", xlCount
      With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Mois Comptable")
      .Orientation = xlColumnField
      .Position = 1
      End With
      ActiveWorkbook.ShowPivotTableFieldList = False
      ActiveWindow.ScrollColumn = 2
      ActiveWindow.ScrollColumn = 3
      ActiveWindow.ScrollColumn = 5
      ActiveWindow.ScrollColumn = 6
      ActiveWindow.ScrollColumn = 7
      ActiveWindow.ScrollColumn = 8
      ActiveWindow.ScrollColumn = 10
      ActiveWindow.ScrollColumn = 11
      ActiveWindow.ScrollColumn = 12
      ActiveWindow.ScrollColumn = 13
      ActiveWindow.ScrollColumn = 15
      ActiveWindow.ScrollColumn = 16
      ActiveWindow.ScrollColumn = 17
      ActiveWindow.ScrollColumn = 18
      ActiveWindow.ScrollColumn = 20
      ActiveWorkbook.ShowPivotTableFieldList = True
      With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Nombre de Montant cde")
      .Caption = "Somme de Montant cde"
      .Function = xlSum
      End With
      With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Commercial")
      .PivotItems("(vide)").Visible = False
      End With
      ActiveWorkbook.ShowPivotTableFieldList = False
      ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
      "Mois Comptable").PivotFilters.Add Type:=xlDateThisYear
      End Sub
      0
      1. eriiic Contributeur
        Bonjour,

        Aucune idée, erreur 5 n'est pas parlant du tout, le libellé est mieux....
        Fais F& sur DefaultVersion et consulte l'aide.
        Et puis est-ce que tous les graphiques utilisent ("Tableau croisé dynamique1") qcq soit la feuille ? Je ne pense pas...
        eric
        0