VBA Excel 2007 : Création TCD

Résolu
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -  
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   20
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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   Statut Membre Dernière intervention   20
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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