Création Tableau croisé Dynamique

[Pioul14]

(re)Bonjour à tous,

Aprés avoir récupérer des données dans un tableau et les avoir copier/coller dans une autre feuille, je chercher maintenant à créer un tableau croisé dynamique avec celles-ci. J'ai ecris ça (extrait du code):

derniéreLigne = Cells(6, 1).End(xlDown).Row
selection1 = "L4C1:" & derniéreLigne & "C11"
Worksheets("Feuil2").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Historique pannes entre 2 dates!" & selection1, Version:=xlPivotTableVersion10).CreatePivotTable TableDestination:="Feuil2!L2C1", TableName:="Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10

    Sheets("Feuil2").Select
    Cells(3, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True

mais ca me renvoie une erreur d'excecution '438' : Propriété ou Methode non gére par cet objet.


Si quelqu'un peut m'aider ... je le remercie par avance !