TCD en macro - Source de données variable

Bonjour,

J'ai enregistrée la macro pour unTCD, mais j'aurais besoin que celle-ci s'exécute sur la feuille active, plutôt que sur une feuille et plage désignée... (donc, nom fichier, feuille et plage qui varie d'un mois à l'autre)

Actuellement, mon code est le suivant:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

"Jan 2020 UNIFLOW Report!R1C1:R100744C9", Version:=6).CreatePivotTable _

TableDestination:="", TableName:="Tableau croisé dynamique5", _

DefaultVersion:=6

Je voudrais modifier le SourceData pour que la macro prenne la feuille active, et les cellules non-vides sans tenir compte du nom de la feuille ou d'une plage spécifique.

Possible de m'aider? Merci beaucoup!

Bonjour,

Des éléments de réponse.

Cdlt.

Public Sub CreatePivotTable()
Dim wb As Workbook
Dim wsPT As Worksheet
Dim PTCache As PivotCache, PT As PivotTable
Dim rngPT As Range
Dim lastRow As Long

    With ActiveSheet
        Set wb = .Parent.Name
        lastRow = .Cells(.Rows.Count, 1).End(xlUp)
        Set rngPT = .Cells(1).Resize(lastRow, 9)
    End With

    Application.DisplayAlerts = False

    On Error Resume Next
    wb.Worksheets("TCD").Delete
    On Error GoTo 0

    Application.DisplayAlerts = True

    Set PTCache = wb.PivotCaches.Create(xlDatabase, rngPT)

    Set wsPT = wb.Worksheets.Add
    wsPT.Name = "TCD"

    Set PT = PTCache.CreatePivotTable(wsPT.Cells(3, 1), "TCD_1")

End Sub