Problème création TCD vba

Version imprimable

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:

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 !

10/07/2015, 12h30
Djohn92

jej,

Quelle version utilises-tu ?
Quelle est la ligne qui plante ?
10/07/2015, 13h06
Gorillo

1 pièce(s) jointe(s)

J'utilise Excel 2010, la ligne qui plante est le premier bloc commençant par ActiveWorkbook
Pièce jointe 182777

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

Pur hasard :

tente

Code:

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

10/07/2015, 14h54
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...
10/07/2015, 14h58
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 ?
10/07/2015, 15h11
Gorillo

I'm so sorry !
J'ai regardé nos codes et je ne voyais pas de différences : et oui elle est tellement minime mais tellement efficace....
Je me sens bebête d'avoir buté sur ce point...

En effet ça marche très bien, merci à toi pour ta vigilance et ta réponse !

Je vais pouvoir résoudre bcp de problème liés à ces espaces !

Bonne journée !