Hello
 
J'ai besoin de vos lumière pour corriger le code de ma macro qui est sensée me créer un TCD sur une autre feuille que celle où se trouve les données...
Je suis passé par l'enregistreur de macro mais en la lançant par la suite, la macro veux me coller le TCD sur la feuille où sont mes données, pas cool quoi.
 
Je pense que c'est le code qui ne précise pas l'adresse de la feuille de destination.
 
Feuille "RAPPORT" = celle où se trouve mes données
Feuille "SYNTHESE" = celle ou je veux coller mon TCD si possible à la cellule A10.
 
merchiii
 
ctiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "RAPPORT!R1C1:R3000C8" ).CreatePivotTable TableDestination:="'SYNTHESE'!R1C10", _
        TableName:="Tableau croisé dynamique4"
    ActiveSheet.PivotTables("Tableau croisé dynamique4" ).SmallGrid = False
    ActiveSheet.PivotTables("Tableau croisé dynamique4" ).AddFields RowFields:= _
        Array("Famille d'Objets", "Données" )
    With ActiveSheet.PivotTables("Tableau croisé dynamique4" ).PivotFields( _
        "Date Appel_" )
        .Orientation = xlDataField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique4" ).PivotFields("Date Appel_" ) _
        .Orientation = xlDataField

Hello
 
Il n'y a pas de ' dans la syntaxe
Et A10 c'est R10C1 (R = Ligne (Row) et C = Colonne (Column))
CreatePivotTable TableDestination:="SYNTHESE!R10C1"

bon même comme ça ça ne marchait pas. J'ai donc nommé ma plage variable de données et c'est bon.

Bonjour,  
 
Je relance ce sujet car j'ai exactement la même erreur en ce moment et je n'arrive pas à m'en dépétrer!  
Si quelqu'un à le bout de code qui va bien...
J'ai utilisé l'enregistreur de macro, coller le bout de code dans une nouvelle macro et j'ai l'erreur "Erreur d'éxécution 1004" Erreur défini par l'application ou par l'objet.  
 
Voici le code que j'utilise:  
 

 
 
la feuille Janv est celle ou je récupère les données pour alimenter le TCD.
la feuille RESUME est celle ou je veux avoir le TCD  
 
Merci d'avance pour votre aide!  
 
Ludo