Macro Tableau Croisé Dynamique

[Adriano43]

Bonjour à tous,

J'ai enregistré la macro avec l'enregistreur de macro afin de pouvoir automatiser la création de tableau croisé dynamique. Mais dès lors que je relance la macro enregistrée précédemment, celle-ci échoue et me propose le débogage. Bien que j'ai essayé différentes choses pour me débloquer, je vous avoue ne pas arriver à trouver la solution et rendre cette dernière utilisable.
Quelqu'un peut il m'aider SVP??

Cordialement

Voici mon code:

Sub Macro1()
'
' Macro1 Macro
'

Range("A1").Select
Selection.CurrentRegion.Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil5!L1C1:L93C4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil1!L3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Référence")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Qté"), "Nombre de Qté", _
xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de Qté")
.Caption = "Somme de Qté"
.Function = xlSum
End With
End Sub

 

[titiborregan5]

Re : Macro Tableau Croisé Dynamique

Bonjour,
quel message d'erreur as-tu? Et quelle ligne surlignée lors du débogage?

 

[Adriano43]

Re : Macro Tableau Croisé Dynamique

Les lignes surlignées en jaune sont les suivantes:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
"Feuil5!L1C1:L93C4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil1!L3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12

Je vous avoue être dépassé par ce problème...

 

[titiborregan5]

Re : Macro Tableau Croisé Dynamique

tu peux mettre un fichier exemple stp?

 

[Adriano43]

Re : Macro Tableau Croisé Dynamique

Ci joint le fichier exemple

 

[chris]

Re : Macro Tableau Croisé Dynamique

Bonjour

Sub test()
 'Méthode PivotCaches.Create
    Sheets.Add
    Dest = ActiveSheet.Name
Set Moncache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Feuil1!R1C1:R30C2", Version:=xlPivotTableVersion12)
Worksheets(Dest).PivotTables.Add PivotCache:=Moncache, TableDestination:=Worksheets(Dest).Range("a3"), TableName:="MonTCD"
    With ActiveSheet.PivotTables("MonTCD").PivotFields("Référence")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("MonTCD").AddDataField ActiveSheet. _
        PivotTables("MonTCD").PivotFields("Qté"), "Nombre de Qté", _
        xlCount
    With ActiveSheet.PivotTables("MonTCD").PivotFields( _
        "Nombre de Qté")
        .Caption = "Somme de Qté"
        .Function = xlSum
    End With
End Sub

Je te conseille de mettre ta source sous forme de tableau...