Sujet Précédent Sujet Suivant

VBA Excel 2007 : Création TCD

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 4 sept. 2012 à 16:49
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 1 oct. 2012 à 18:16
Bonjour,

J'avais depuis 2 ans une macro qui me créait des tableaux croisés dynamiques.
Je fonctionne toujours sous la même version d'Excel (2007)
mais depuis quelques semaines, cette macro plante en indiquant une erreur "1004 : Référence non valide"

voici le code qui plante, verriez vous l'erreur ?. 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil10!R1C1:R" & Range("A65536").End(xlUp).Row & "C17", _
        Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Tableaux_Defauts!R2C1", TableName:="Tableau T1", _
        DefaultVersion:=xlPivotTableVersion12


J'ai beau chercher, je ne trouve pas ...
Merci d'avance pour votre aide
A voir également:

3 réponses

Réponse 1 / 3
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
Modifié par Eaheru le 1/10/2012 à 18:16
Désolé pour cette réponse très en retard mais je n'ai pas eu le temps de revoir ce code jusqu'à aujourd'hui.
Apres plusieurs essais, j'ai trouvé l'erreur ...
En fait, mon onglet de données source se nommait "MH-MX" et tout se passait bien depuis plus de deux an. Mais maintenant il semble que le "-" ne soit plus accepté.
J'ai simplement changé en "MHMX" et tout refonctionne parfaitement.
2
Réponse 2 / 3
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
4 sept. 2012 à 17:00
Bonjour,

sans fichier exemple difficile de tester...
Est-ce que ta feuille Tableaux_Defauts existe bien et est correctement écrite (respect des majuscules) ?

Sinon le déposer sur cjoint.com avec le modop pour reproduire l'erreur et coller ici le lien fourni.
eric
1
Réponse 3 / 3
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
Modifié par Eaheru le 4/09/2012 à 17:10
Merci de ta réponse eric,
Je n'ai pas inséré de fichier exemple car ce sont des données "société".
La feuille Tableaux_Defauts existe bien et est bien orthographiée.
Il me faut donc créer un fichier de datas lambda et tester ma macro dessus avant de mettre ça en ligne. ça devrait être bon demain AM
1
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
4 sept. 2012 à 17:31
tu peux mettre un stop juste avant cette ligne et évaluer les variables pour voir si elle sont correctes.
Par exemple sélectionner "Feuil10!R1C1:R" & Range("A65536").End(xlUp).Row & "C17", le glisser dans la fenetre espion et ajouter .address à la fin pour voir la référence fabriquée.

eric
0