Problème avec TCD

Version imprimable

Problème avec TCD

Kikou all et bonne année 2008 !!!

Je voudrais automatiser la création d'un tableau croisé dynamique pour que, à partir des données d'une colonne, ca créer automatiquement un graphique.

Voici schématiquement le contenu de ma colonne :
Colonne n°4
Titre en ligne 1 : Liste des défauts
Ligne 2 : Défaut1
Ligne 3 : Défaut6
Ligne 4 : Défaut3
Ligne 5 : Défaut1
Ligne 6 :Défaut1
Ligne 7 : Défaut3

Quand j'enregistre une macro en faisant les opérations de création du TCD j'obtiens bien le bon résultat à savoir un histogramme en abscisse le nom du défaut et en ordonnée le nombre de défauts apparu...j'ai donc :
- un "baton" avec Défaut1 en abscisse et 3 en ordonnée (le défaut1 est apparu 3 fois)
- un "baton" avec Défaut6 en abscisse et 1 en ordonnée
- un "baton" avec Défaut3 en abscisse et 2 en ordonnée

Quand je lance la macro que je viens d'enregistrer le graphique présente 1 seul colonne totalisant le nombre de défaut

Voici le code de la macro enregistrée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Macro40() ' ' Macro40 Macro ' Macro enregistrée le 07/01/2008 par beau ' ' Columns("D:D").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "'Def AVD'!C4").CreatePivotTable TableDestination:="", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select Charts.Add ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart.PivotLayout.PivotTable.PivotFields("Défauts") .Orientation = xlRowField .Position = 1 End With ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout. _ PivotTable.PivotFields("Défauts"), "Nombre de Défauts", xlCount ActiveWorkbook.ShowPivotTableFieldList = False End Sub
Savez vous ce qui cloche ?

Merci pour vos réponse ;)

PS : Le nombre de ligne de la colonne n°4 est variable d'un rapport à un autre

08/01/2008, 07h58
cb_60

Bonjour
Regarde si cela te convient?
09/01/2008, 03h30
geo909

1 pièce(s) jointe(s)

Merci beaucoup pour ta réponse...j'ai essayé la macro que tu m'a envoyé sur mon fichier excel ben ca marche pas :cry:

J'ai essayé de modifier cette macro pour l'adapter à mon cas mais je suis pas doué :oops:

Je met le fichier type en pièce jointe...tu pourrais essayer de voir pourquoi ca bloque avec ta macro...ca serais gentil tout plein ;)
09/01/2008, 06h51
cb_60

Bonjour
Regarde si cela te convient?
09/01/2008, 22h13
geo909

Tous simplement nikel !!!!! un grand merci à toi !!!!

depuis le temps que je suis decu je pensais que j'allais attraper des toiles d'araignée lol

Encore merci @+++
09/01/2008, 23h44
AlainTech

Problème résolu?

Bouton :resolu:!
10/01/2008, 01h21
geo909

En fait j'avais une autre question docteur...je recois un fichier de données par jour...maintenant je peux crée un TCD en lancant la macro à chaque fichier...c'est déjà cool mais oserais-je pousser plus loin en demandant si il est possible de faire un TCD avec les données de plusieurs fichiers XLS c'est à dire plusieurs jour sachant que :
- le nom du fichier est de la forme ExportAuto_Jour_Mois_Année.csv
(exemple : Le nom du fichier crée hier est ExportAuto_08_01_2008.csv)
- que le format des données est identique d'un fichier à un autre (seul le nombre de ligne varie)
- tous les fichiers se trouvent dans le même répertoire

Mon idée est de crée un fichier excel dans lequel on demandera la période sur laquelle on désire obtenir le graphique (exemple : du 01/01/08 au 08/01/08) et de cliquer sur un bouton afin de lancer le fusionnage des fichiers si besoin est...et enfin de lancer la macro TCD dans le nouveau classeur issu de la fusion

Es-ce faisable ?

Merci