tableau croisé dynamiqueRésolu

Question

bonjour 
'je voudrai faire un tableau croisé dynamique 
'dont voici l'enregistreur de macro que j'ai dejà commencé a modifier 
'mon tableau se trouve sur la feuille "feuil1" et mon tableau croisé dynamique lui je 
'veux le mettre sur la feuille "param" 
pour l'instant j'ai ajouté la ligne 3 et modifier la ligne 7 
car c'est pas un tableau figé parce que les lignes peuvent etre ajoutées ou pas 

Sub tableau_croisé_d()
Dim k As Long
k = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
    Range("A6").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!L5C1:L" & (k) & "C16", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="param!L5C1", TableName:="Tableau croisé dynamique7", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("param").Select
    Cells(5, 1).Select
    ActiveSheet.PivotTables("Tableau croisé dynamique7").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique7").PivotFields("ID"), "Somme de ID", _
        xlSum
    With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("ISIN")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Libellé" _
        )
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Rating")
        .Orientation = xlRowField
        .Position = 3
    End With
End Sub

lorsque je lance le code avec F8 j'ai une erreur à la ligne 4 "erreur definie par l'application ou par l'objet" 

merci de votre aide

c148270 · Accepted Answer

Bonjour
sous vba ligne = row

        "Feuil1!R5C1:R" & (k) & "C16", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="param!R5C1", TableName:="Tableau croisé dynamique7", _

bonne journée

Tableau croisé dynamique

1 réponse

Votre réponse

Discussions similaires