Bonjour et merci d'avance

Je chercheà automatiser un tableau croisé dynamique afin que l'utilisateur n'ai rien à faire.
Le nombre de lignes et de colonnes peuvent changer d'où l' enregistrement ne m'a pas réussi.

Le mieux serait même de lui donner un nom et un emplacement.

Je veux mettre en ligne code, fournisseur
en colonne date
et la somme des nombres en données

voici mon morceau de programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
ActiveSheet.PivotTableWizard xlDatabase, Range(Cells(1, 1), Cells(Lig, Col))
.xlColumnFields = "Date"
.xlRowFields = "Code"
.xlRowFields = "Fournisseurs"
.xlDataFields = "Nombre"
Remarque : En mettant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.PivotTableWizard xlDatabase, Range(Cells(1, 1), Cells(Lig, Col))
Excel ne met pas d'erreur et on arrive à un TCD vide, dans une nouvelle feuille, où il faut disposer les cubes.

merci