Discussion :

[Gorillo]

Bonjour à tous,
J'ai lu cette discussion.
C'est exactement le problème auquel je suis confronté...
Je me suis servi de l'enregistreur de macro pour sortir un bout de code à retoucher... Mais le code me semble correct, cependant à chaque fois que j'essaie le debogueur s'ouvre et me pointe comme erreur la première ligne de code
J'ai essayé de remplacer le ActiveWorkbook par Sheets, sans résultat...

Comment donc réussir à activer la commande de création d'un TCD en VBA ?
Sachant qu'une fois créé toutes les manipulations sur le TCD sont aisées (changement de la plage de données, ajout de colonne etc.)

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
Sub CréerTCD()
'
' CréerTCD Macro
'
 
'
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data!R1C1:R1048576C30", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="TCD Soins!R3C1", TableName:="Tableau croisé dynamique2" _
        , DefaultVersion:=xlPivotTableVersion14
    Sheets("TCD Soins").Select
    Cells(3, 1).Select
    Range("A3").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Famille" _
        )
        .Orientation = xlRowField
        .Position = 1
    End With

D'avance merci pour votre aide !

[Djohn92]

jej,

Quelle version utilises-tu ?
Quelle est la ligne qui plante ?

[Gorillo]

J'utilise Excel 2010, la ligne qui plante est le premier bloc commençant par ActiveWorkbook


C'est l'erreur d'exécution 438 qui s'affiche : 'Propriété ou méthode non gérée par cet objet'

[Djohn92]

Pur hasard :


tente

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data!R1C1:R1048576C30", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="'TCD Soins'!R3C1", TableName:="Tableau croisé dynamique2" _
        , DefaultVersion:=xlPivotTableVersion14
    Sheets("TCD Soins").Select
    Cells(3, 1).Select
    Range("A3").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Famille" _
        )
        .Orientation = xlRowField
        .Position = 1
    End With

[Gorillo]

C'est le premier code que me sort l'enregistreur et que j'ai tenté en premier lieu. j'ai juste sur la capture d'écran du bog en jaune rajouté 'au hasard' le Sheets("TCD Soins")... sans succès
Sur un autre post quelqu'un dit qu'il faut faire attention pour la manipulation de ActiveWorkbook mais sans expliquer en quoi...

[Djohn92]

Bon, en tout cas, quand tu utilises l'enregistreur de maccro, essayes de ne pas utiliser des nom d'onglet à espace genre "TCD oins"

Pour traiter ce genre de cas, il faut ajouter des 'TCD Soins' (apostrophe dans les noms de range, pas rajoutée par l'enregistreur.)

As tu tenté le code précédent ?