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 !