Bonjour a tous,

alors une pitite question un peu difficile. Voilà, avant j'avais Excel 2000, et tout fonctionnait impec'. Maintenant avec Excel 2003 j'ai un probleme avec l'une de mes macros. Quand j'execute la macro j'ai un message d'erreur :

"Erreur d'execution 1004 : Impossible de lire la propriété PivotItems de la classe PivotFields"

j'ai checher sur internet mais je ne trouve pas de solution... N'y aurait-il pas une options a cocher dans Excel 2003 ???

Je vous copie le code de ma macro ci dessous, et je vais essayé de mettre en piece jointe mon fichier (je vais regarder comment faire sur ce forum , mais le fichier fait 22 Mo donc je ne sais pas si cest possible)

Merci davance pour votre aide !

---------------------------------------------------------------------------------------------

Sub Macro4()
'
' Macro4 Macro
' totalisation par client (ndc) du montant des engagments et du montant des provisions
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlConsolidation, SourceData:= _
Array("totclient!R1C3:R40001C5", "Élément1")).CreatePivotTable TableDestination _
:="", TableName:="Tableau croisé dynamique11"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique11")
.ColumnGrand = False
.HasAutoFormat = False
.PreserveFormatting = False
.RowGrand = False
.SmallGrid = False
End With
ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Données"). _
PivotItems("Somme Valeur").Position = 1
Columns("A:A").Select
Selection.ColumnWidth = 25
Selection.ColumnWidth = 40
Columns("B:C").Select
Selection.NumberFormat = "#,##0.00"
End Sub

ca marche pas en zippé ??

http://cjoint.com/?dolRyKdFIe

bonjour,

Si... mais tu n'as pas créé le lien. Il faut attendre quelques secondes que le lien s'affiche pour nous le transmettre.

A+

bonjour,

Si... mais tu n'as pas créé le lien. Il faut attendre quelques secondes que le lien s'affiche pour nous le transmettre.

A+

jen ai fait un autre mais ca n'a pas lair de marcher non plus, comment on fait svp??

Jai cliquer sur PARCOURIR dans "Joindre un fichier, une image, une photo"

jai sélectionner mon fichier zipper, puis jai cliqué sur "Créer le lien Cjoint"

Et ca me donne ca : "LE LIEN A été CRéé : http://cjoint.com/?dooiqQ2QO4

Hei ! 22 Mo rien que ça ? Pas étonnant que ça ne passe pas. C'est limité à 500 Ko.

A mon avis ce n'est pas le passage de 2000 à 2003 qui est en cause mais la structure des données qui a été modifiée ?

Le PivotFields("Données") n'a-t-il pas été renommé ? ou peut être ne contient-il encore aucune valeur (par exemple si une nouvelle année à été initialisée et qu'il ne comporte encore aucune donnée...) et par suite aucune "Somme Valeur" ne peut-être calculée...

Tu pourrait commencer par enregistrer ton classeur sous un autre nom peu importe lequel.

Regarde si le fait de l'enregistrer sous un autre nom ne diminue pas significativement sa taille.

Il est possible que simplement le fait de le renommer supprime des "résidus anciens", des "vieux souvenirs inutiles" et allège ton classeur. Si oui, Après avoir enregistré ce classeur sous un autre nom, tu pourras le renommer encore une fois sous son nom d'origine, (après avoir archivé le fichier d'origine ailleurs)
Il est possible que ainsi allégé celà marche mieux, mais ce n'est pas garanti.

A+

merci pour ton aide GALOPIN,

amis ca ne marche pas. je ne gagne pas beaucoup sur la taille en faisant enregistrer sous et le renomant...

par contre je confirme mon probleme vient dexcel 2003. car si jexecute la macro sous 2000 aucun probleme, mais en prenant LE MEME FICHIER sous 2003 ca ne marche plus !

de plus le fichier zippé que jai voulu mettre en piece jointe ne fait plus que 3Mo... est ce que quelquun serait tenter pour que je lui envoi mon fichier et maider ? svp?

merci a tous pour votre aide !

[Edit] : Supprimé

merci de me proposer ton aide GALOPIN,

je viens de tenvoyer un mail avec le fichier.

MErci DAVANCE !

Une idée toute bête... essaie donc :

ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Données"). _
PivotItems("Somme de Valeur").Position = 1

A+

Bonjour,

Je n'avais pas de base de données qui se prêtait à cet exercice mais si tu as essayé tu as pu constater que cette idée farfelue était bonne !

PivotItems à des arguments prédéfinis et ces arguments ont été modifiés dans la version 2003.

Il suffit donc de modifier avec "Somme de Valeur" pour que ça fonctionne...

A+

Mille milliard deux milles millions neuf cents quatre vingt dix milles cinquante deux GROS MERCI Galopin !!!

Je suis étonnée de la solution mais en effet il faut bien mettre "SOMME DE VALEUR" ....

Encore merci beaucoup pour ton aide !!!!! Tu m'as bien dépanné !!!!

A +!

PS pour info, Ton adresse mail ne marche pas : "This is an automatically generated Delivery Status Notification. THIS IS A WARNING MESSAGE ONLY. YOU DO NOT NEED TO RESEND YOUR MESSAGE. Delivery to the following recipients has been delayed.

PS : pardon pour l'adresse, ca yest je lenleve ..... MERCI ENCORE en tout cas!

Bonjour,

merci de bien vouloir enlever cette adresse en éditant ta réponse SVP.
Pour éditer ta réponse cliquer sur licone crayon sur la première ligne

En effet cette adresse est bien exacte et je ne voudrais pas être pollué par du spam (c'est la raison pour laquelle je ne la communique qu'en mode image.)

Je pense que c'est ton message et surtout la pièce jointe volumineuse qui a entrainé ce message de refus sinon cette adresse fonctionne bien en général.

A+

Merci. Pas de problème.

A+