Création d'un TCD avec les macros

Bonjour à tous,

J''exportes tous les jours des données à partir de mon logiciel de gestion, que je transformes en un petit tableau excel de 10 colonnes et d'un nombre de ligne qui change tous les jours.

Je souhaites, à partir de ce tableau créer un TCD qui me regroupe les données par la colonne "FOURNISSEUR"(col 4) et qui me fasse la somme de la colonne "Montant échéance"(col 8).

Quand j'essaies d'enregistrer la procédure en macro et que je le relance, ça me met un message d'erreur "Erreur d'exécution 5", puis en cliquant sur Débogage, il me met en surveillance le paragraphe suivant :

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Feuil1!L1C1:L1048576C11", Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:="Feuil2!L3C1", TableName:= _ "Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion14

---

Est ce que quelqu'un pourrais m'aider car ça me faciliterait vraiment les choses, j'ai fait des recherche mais la plupart du temps ce sont des personnes utilisant Excel pour PC et donc les fonctions ne marchent pas toujours sous Mac.

Merci d'avance.

bonjour,
si ceci est le code produit par le générateur:

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Feuil1!L1C1:L1048576C11", Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:="Feuil2!L3C1", TableName:= _ "Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion14

---

Il y a quelques petites considérations qui nécessitent surement des modifications pour l'exploiter ailleurs.

La variable globale ActiveWorkbook,
Son piège est qu'il faut maîtriser le classeur actif au niveau de l'application,
ça ne renvoi pas forcément le classeur dans lequel ton code s'éxécute.
Mais le classeur actif au niveau de l'application qui peut être un autre.

SourceData: Assures toi de donner le chemin complet, si c'est un autre classeur.
Tiens ton erreur 5 vient probablement de là: "Feuil1!L1C1:L1048576C11" .
N'y a t-il pas un dépassement de capacité ?
Mais oui !
Ton "Feuil1!L1C1:L1048576C11" ne peut pas être renvoyé vers l'endroit que tu as désigné : "Feuil1!L3C1" comme départ. 3 lignes en moins.
corrige comme ça TableDestination:="Feuil1!L1C1"
Tant de lignes sont ils vraiment occupés par des données ? :(

http://www.developpez.net/forums/d14...t/#post7766805

regarde le fichier joint

Un GRAND MERCI, c'est parfait.

Je l'ai un peu re-travaillé avec juste les cellules qui m'intéresse et c'est super.

Je vais pouvoir gagner pas mal de temps tous les jours.

Encore merci

l'avantage c'est que tout est dans le module de classe donc il suffit d'appeler les fonction qui nous intéresse!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim TDC As New clsTdcRD Sheets("DATA").UsedRange = Sheets("DATA").UsedRange.Value TDC.CreerTableau ActiveWorkbook, "DATA!" & Sheets("DATA").UsedRange.Address, "TDC", "DATA" TDC.NewPivotTables "DATE", TypeFiltre TDC.NewPivotTables "DATES", TypeFiltre TDC.NewPivotTables "FOURNISSEUR", Typeligne, True TDC.NewPivotTables "PIECE", Typeligne, True TDC.NewPivotTables "REF", TypeColonne, True TDC.NewDataField "MONTANT", Somme TDC.AfficheTotal True, True TDC.Style PivotStyleMedium9 End Sub

---