Je reprends le classeur d'un demandeur pour vous poser ma question.
Je sais qu'il est possible de créer tous les TCD des fournisseurs en une seule manip (analyse/options du TCD/options/afficher les pages de filtre de rapport...) mais est il possible d'avoir tous les rapports de TCD uniquement sans créer tous les TCD.
Ce que tu appelles rapport c'est l'extraction (pour MS le rapport c'est le TCD)
Manuellement non mais dans une boucle VBA c'est possible : faire au préalable un TCD avec le fournisseur en 1er champ de ligne, et juste le montant en zone de valeurs, sans totaux pour simplifier le code, puis avec une boucle
Code:
Sub Extraire()
'
Application.ScreenUpdating = False
With Worksheets("TCD").PivotTables(1)
For Each Rrow In .DataBodyRange
Rrow.ShowDetail = True
ActiveSheet.Name = "Fournisseur " & Cells(2, 1).Value
Next
End With
End Sub
Le code ne teste pas la longueur des noms d'onglets donc à améliorer...
Je me doutais bien qu'il n'était pas possible de faire cette manip sans VBA.
Ton code me donne le résultat souhaité, le problème est donc résolu.
Merci de ton aide.