Bonjour à tous et à toutes
et bonne fin de semaine (bon week-end, en français métropolitain)

J'essaie de créer une liste dees TCD de mon fichier dansune nouvelle feuille de calcul, et ça ne marche pas.
Quelqu'un peut-il (ou elle) m'aider, ce serait très gentil, agréable et néammoins pratique ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ListerPtWbWs()
Dim rw As Range
Dim i As Integer
Dim ws As Worksheet
Set nwSheet = Worksheets.Add
nwSheet.Activate
rw = 0
For Each ws In Worksheets
      If ws.PivotTables.Count > 0 Then
           For i = 1 To ws.PivotTables.Count
                rw = rw + 1
                nwSheet.Cells(rw, 1).Value = ws.PivotTables.Name
           Next i
        End If
Next ws
 
End Sub
Merci beaucoup.
P.S. autodidacte, j'avance un peu à tâtons, bout de code par bout de code. Alors un grand MERCI à tous ceux et celles qui posent des questions et/ou y répondent.
Chordially