> Tous les forums > Forum Bureautique
 Macro Excel 2000 vers Excel 2003Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
miminerennaise
  Posté le 14/03/2007 @ 11:36 
Aller en bas de la page 
Petite astucienne

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



Modifié par miminerennaise le 14/03/2007 11:51
Publicité
miminerennaise
 Posté le 14/03/2007 à 12:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

ca marche pas en zippé ??

http://cjoint.com/?dolRyKdFIe

galopin01
 Posté le 14/03/2007 à 13:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

galopin01
 Posté le 14/03/2007 à 13:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

miminerennaise
 Posté le 14/03/2007 à 14:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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

galopin01
 Posté le 14/03/2007 à 14:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

miminerennaise
 Posté le 14/03/2007 à 14:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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 !

galopin01
 Posté le 14/03/2007 à 15:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

[Edit] : Supprimé



Modifié par galopin01 le 14/03/2007 16:29
miminerennaise
 Posté le 14/03/2007 à 16:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

merci de me proposer ton aide GALOPIN,

je viens de tenvoyer un mail avec le fichier.

MErci DAVANCE !

galopin01
 Posté le 14/03/2007 à 16:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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

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

A+

galopin01
 Posté le 15/03/2007 à 08:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+

miminerennaise
 Posté le 15/03/2007 à 09:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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!



Modifié par miminerennaise le 15/03/2007 10:05
galopin01
 Posté le 15/03/2007 à 09:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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+



Modifié par galopin01 le 15/03/2007 10:14
galopin01
 Posté le 15/03/2007 à 10:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Merci. Pas de problème.

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
232,06 €Processeur AMD Ryzen 5 5600X à 232,06 € livré
Valable jusqu'au 29 Janvier

Amazon Allemagne fait une promotion sur le processeur AMD Ryzen 5 5600G qui passe à 226,90 € (avec la TVA ajustée). Comptez 5,16 € pour la livraison en France soit un total de 232,06 € livré alors qu'on le trouve ailleurs à partir de 300 €. 

Le processeur pour PC de bureau AMD Ryzen 5 5600G intègre de puissants coeurs graphiques Radeon pour vous permettre de jouer en 1080p sans carte graphique dédiée. Avec 6 coeurs et 12 threads, des fréquences de fonctionnement jusqu'à 4.4 GHz et 16 Mo de cache L3, il vous permettra de jouer dans les meilleures conditions en Full HD. 


> Voir l'offre
8,99 €Lot de 32 piles Philips AAA à 8,99 €
Valable jusqu'au 30 Janvier

Fnac fait une promotion sur le lot de 32 piles Philips AAA qui passe à 8,99 € au lieu de 15 €.


> Voir l'offre
199,99 €Ecran Lenovo 31,5 pouces D32q-20 (QHD, IPS, 75 Hz, FreeSync) à 199,99 €
Valable jusqu'au 29 Janvier

Fnac propose actuellement l'écran 31.5 pouces Lenovo D32q-20 à 199,99 € alors qu'on le trouve ailleurs à plus de 265 €. Cet écran dispose d'une dalle QHD (2560x1440) à bords fins, avec un temps de réponse de 4 ms et un rafraichissement de 75 Hz. Il possède des entrées VGA et HDMI. Il est compatible Freesync. 


> Voir l'offre

Sujets relatifs
Amélioration d'une macro sous excel 97 ou 2003
excel vba passer une variable de commande vers macro
macro pour passer de word vers excel
macro excel copier collage special vers word
Macro Excel ExportAsFixedFormat (Excel vers PDF)
macro excel vers access
Excel 2003 : macro pour supprimer une ligne
Macro excel à utiliser dans excel 2000
Passage de Excel 2000 à Excel 2003
aide macro excel 2000
Plus de sujets relatifs à Macro Excel 2000 vers Excel 2003
 > Tous les forums > Forum Bureautique