Discussion :

[giloo(94)]

voici les 2 parties de code qui posent probleme
1) sur la lecture du contenu du filtre DATE DE MISE EN OEUVRE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'a noter que Tableau croisé dynamique2 est dans l'onglet:Feuil_source
 ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
        "NOM DR", ColumnFields:="TYPE DE COMMANDE INTERNE", PageFields:= _
        "DATE DE MISE EN OEUVRE"
 With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "DATE DE MISE EN OEUVRE")
        nb = .PivotItems().Count
        tablo(0) = nb
        For i = 1 To nb
        tablo(i) = .PivotItems(i)
        Next
       End With

2)sur la selection d'une valeur contenu dans le filtre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 For Z = 1 To nb - 1 'car le dernier c'est l'option=blank
       Sheets("Feuil_source").Select
       '***********************************************************
 
   Range("a4").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "DATE DE MISE EN OEUVRE").CurrentPage = tablo(Z)
 
        Next

merci de m'aider a trouver les modifs a apporter

[Daniel.C]

Bonjour,

Quelle était ta version précédente d'Excel ? Quel est le problème ? un message d'erreur ? si oui, lequel ?

[giloo(94)]

erreur 1004,libelle:Erreur définie par l'application ou par l'objet
macro cree avec excel 2003
si avec le concepteur de macro je refait la meme macro avec excel 2010 j'ai la meme erreur quand j'execute la macro
la seule difference c'est que j'ai réalisé la macro dans un classeur xlsm

[Daniel.C]

Oui, il y a beaucoup de différences entre les deux versions. Je n'ai pas trouvé d'erreur dans la première partie du code. Pour la seconde, teste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With ActiveSheet.PivotTables(1).PivotFields("DATE DE MISE EN OEUVRE")
     .EnableMultiplePageItems = True
     .PivotItems(nb).Visible = True
     For Z = 1 To nb - 1 'car le dernier c'est l'option=blank
       .PivotItems(nb).Visible = False
     Next
     For Z = 1 To nb - 1 'car le dernier c'est l'option=blank
       .PivotItems(Tablo(Z)).Visible = True
     Next
End With

Cependant, si ça ne fonctionne pas, poste un classeur exemple.

[giloo(94)]

macro_test.zip
voici le fichier de test...le debut de programme est dans le module :lanceur,
le test que tu as demandé genere la meme erreur voir module: module_aide
merci

[Daniel.C]

Ta macro plante bien avant, au moment de la création du TCD. La syntaxe est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "=data_internet", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Feuil5!R1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion15

[giloo(94)]

helas, j'ai avec ce code une erreur d'execution 5:argument ou appel de procedure incorrect....

[Daniel.C]

Remplace "Feuil5" par le nom de ta feuille; remplace "xlPivotTableVersion15" par "xlPivotTableVersion14". Sinon, fournis un classeur simple avec juste une macro créant seulement un TCD. J'ai le tournis à force de sauter d'une macro à l'autre. De plus, je plante sans arrêt sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows("macro_prau_internet.xlsm").Activate

Comme je n'ai pas ce classeur...

[giloo(94)]

oui biensur, au départ j'avais tout mis au cas ou....,mais voici une version très allégée:test.zip

j'ai laissé ma partie de code qui fonctionne pour creer le tcd l"erreur 1004 arrive quand on filtre sur une valeur du filtre de page

[Daniel.C]

La macro "M_tcd2" s'exécute sans erreur.

[giloo(94)]

oui tu a essayé avec quelle version d'excel? chez moi c'etait ok en excel 2003 mais plus depuis le passage en 2010 avec Windows 7....peutetre...il y a une dll specifique?.....
bref.....si tu as 2010 en aucune erreur je ne sais pas quelle siolution trouver...j'essaierai lundi sur un autre poste de travail dans mon entreprise au cas ou ma version d'office serai mauvaise

[Daniel.C]

Effectivement, j'avais testé avec Excel 2013. J'ai également un plantage avec Excel 2010. Il faut mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "DATE DE MISE EN OEUVRE").CurrentPage = DateSerial(Year(tablo(Z)), Month(tablo(Z)), Day(tablo(Z))

[giloo(94)]

super!merci......c'est ok desormais.....