Discussion :

[said.aghzil]

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 ce qu'est en rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!L1C1:L1048576C3", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Feuil4!L3C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion12
    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

[Invité]

bonjour,
regarde ça: http://www.developpez.net/forums/d14...i/#post8011359

[said.aghzil]

Bonjour,
Merci d'avoir me répondre.
j'ai consulté le lien que vous m'avez communiqué mais j'ai rien saisi,
En fait, je voudrais créer une macro me permettant de créer un tableau croisé dynamique à partir d'un fichier hebdomadaire sur excel.

[Daniel.C]

Bonjour,

Ton code plante pour - au moins - une raison. Quand tu te sers de l'enregistreur de macros, celui-ci enregistre les adresses des cellules à la mode Excel. (L pour les lignes). Il faut modifier la ligne en remplaçant les "L" par des "R" (comme "Row"). Il est également possible qu'une fois corrigé, la macro plante de nouveau parce que, si tu n'as pas supprimé le TCD "Tableau croisé dynamique2", VBA fera une erreur parce qu'il y a déjà un TCD avec le même nom.

[said.aghzil]

Merci beaucoup Daniel, ça marche très bien maintenant .
Merci infiniment

Bien à vous
Said
--