Macro avec Table Croisée Dynamique

said.aghzil

XLDnaute Nouveau
Bonjour à tous,
Je voudrais créer un macro avec TCD mais il plante des que je l’exécute

Voici le code que donne Excel VBA (il plante dans la partie Grande):mad:
Code:
Sub Macro2()
'
' Macro2 Macro
' SSSSSSSSSSS MAJ
'
' Touche de raccourci du clavier: Ctrl+Maj+S
'
    Columns("A:H").Select
    Selection.Delete Shift:=xlToLeft
    Range("B:B,D:D").Select
    Range("D1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "PRG"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "INSER"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "LANG"
    Columns("A:C").Select
    Sheets.Add
   [SIZE=5]ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!L1C1:L1048576C3", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Feuil4!L3C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion12[/SIZE]
    Sheets("Feuil4").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("PRG")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("INSER"), _
        "Nombre de INSER", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("LANG"), "Nombre de LANG" _
        , xlCount
    Range("C16").Select
    ActiveWindow.SmallScroll Down:=3
    Range("E20").Select
End Sub

Quelqu'un peut m'aider ?
Merci par avance
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs