XL 2010 Création d'un tableau croisé dynamique à partir de cellule déjà sélectionnée

[ricorico]

Bonjour,

Je fais appel à vous car je suis bloqué sur un point dans mon code VBA.

En effet je voudrais, après avoir sélectionné les cellules qui composeront mon TCD, pouvoir cliquez sur un bouton qui me le créé. Le TCD que je désire est assez basique, il est composé de seulement 2 colonnes mais je n'arrive pas à le faire fonctionner.

Je met en pièce-jointe un exemple d'excel ainsi que mon code VBA

Merci d'avance.

ActiveCell.Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "REPARTITION TEMPS D'ARRET!R1C7:R53C8", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Lecture Data!R13C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
    Sheets("Lecture Data").Select
    Cells(13, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Description du statut")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Down Hours"), _
        "Somme de Down Hours", xlSum

 

[MP59]

Bonjour ricorico,
Excel n'aime pas trop les noms de feuilles avec des espaces et des apostrophes.
Le fichier joint fonctionne (après correction des noms).