Tableau croisé dynamique

[Jeremyy]

Bonjour a tous ,

voici mon probleme je dois faire un code en vba faisant un tableau croisé dynamique dont voici le code :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!C1:C6").CreatePivotTable TableDestination:=Range("A2"), TableName:= _
        "Tableau croisé dynamique4"

mais le probleme est que celui si ne va pas sur ma feuil1 !

comment faire? merci d'avance a tous....

 

[kjin]

Re : Tableau croisé dynamique

Bonjour,
Essaies comme ceci

With Sheets("Feuil1")
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!C1:C6").CreatePivotTable TableDestination:=.Range("A2"), TableName:= _
        "Tableau croisé dynamique4"
End With

Par contre, la source de données est pour le moins étrange
A+
kjin

 

[Jeremyy]

Re : Tableau croisé dynamique

Pourquoi ma source de données est pour le moins étrange???

Merci sa fonctionne aparament

 

[Jeremyy]

Re : Tableau croisé dynamique

Voici ci joint un exemple avec la macro qui ressemble a celle de mon fichier original

Regarde la pièce jointe Exemple.xls

 

[kjin]

Re : Tableau croisé dynamique

Re,
Comment renvoyer dans ton TCD des champs non compris dans ta plage source ?! le champs "Centre" existe mais pas dans la plage source et "Prénom" est lui inexistant !
Sans vraiment comprendre les données que tu cherches à consolider, un exemple à adapter

Sub Macro1()
With Sheets("Feuil2")
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!A1:G14").CreatePivotTable TableDestination:=[B][COLOR="Red"].[/COLOR][/B]Range("A1"), TableName:= _
        "Tableau croisé dynamique2"
    With .PivotTables("Tableau croisé dynamique2")
        .SmallGrid = False
        .AddFields RowFields:="Centre"
        .PivotFields("Nom").Orientation = xlDataField 'je n'ai pas vu de champ Prénom
        '.PivotSelect "", xlDataAndLabel ???
        .Format xlReport6
        .PivotFields("Centre").PivotItems("(vide)").Visible = False
    End With
End With
End Sub

N'oublie pas le point (en rouge dans le code)
A+
kjin

 

[Jeremyy]

Re : Tableau croisé dynamique

Merci Kjin sa marche , merci de ton aide 😉

 

[Jeremyy]

Re : Tableau croisé dynamique

Bonjour a tous,

voici mon code qui me donne une erreur d'execution "1004 "

    Sheets("Feuil6").Select
    Range("A2").Select
    With Sheets("Bulletin")
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!L1C1:R" & Derligne & " C7").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique2"
    End With

Je ne vois pas ou est le probleme .

Pouvez vous m'aider ?

Merci d'avance a tous

 

[kjin]

Re : Tableau croisé dynamique

Bonjour,
Un code extrait de son contexte ne veut rien dire
Donc soit tu fournis le code complet de la procédure, soit un extrait du fichier avec une note explicative
Mais là je ne pourrais rien te dire de plus
A+
kjin

 

[Jeremyy]

Re : Tableau croisé dynamique

Bonsoir, et bien le code s'aplique dans mon exmple car je souhaite créer un tableau croisé dynamique sur une feuille qui s'apelle bulletin a partir de la feuille 6 . Mais les données de ma feuille 6 sont variable d'un jour a l autre c'est pour cela qu'il y a "Derlign" qui est trouvé juste avant le code.

 

[Jeremyy]

Re : Tableau croisé dynamique

bonsoir a tous ,

j'ai besoin de votre aide c'est pour cela que je vous remet le code .

Désolé de reposté ma demande mais j'ai besoin de votre aide ! ! !

 Sheets("Feuil6").Select
    Range("A2").Select
    With Sheets("Bulletin")
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!L1C1:R" & Derligne & " C7").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique2"
    End With

ce code s'applique avec mon exemple ...

Merci d avance a tous

 

[Jeremyy]

Re : Tableau croisé dynamique

SVP j'ai besoin de votre aide