Discussion :

[aurore_bousquet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[NVCfrm]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Invité]

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

regarde le fichier joint

[aurore_bousquet]

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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