[XL-2007] Tableau croisé dynamique [Résolu]

[alf049]

Bonjour,
quand je crée un TCD à partir de l'enregistreur de macro, à chaque fois que je veux l'exécuter le débogueur se met en route sur :

Code :

1
2
3
4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "REMI!L1C1:L65536C12", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Feuil2!L3C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion10

je ne comprend pas car c'est EXCEL qui crée le script et pas moi

quelqu'un peut-il m'expliquer comment résoudre cela ?

[ZebreLoup]

Si tu le lances plusieurs fois de suite, il essaie de créer plusieurs TCD avec le même nom. Je pense que c'est pour ça que ça bloque.

[alf049]

merci pour cette réponse.

En fait le fichier qui me sert à faire ma maquette est systématiquement fermé sans enregistré puis rouvert. Donc c'est comme si il était nouveau ?

au fait si quelqu'un à une astuce pour faire un TCD sans que cela bug je prend

[ZebreLoup]

Tu as essayé en enlevant tableName pour être sûr que ce n'est pas ça (Peut-être des vestiges du TCD que tu as créé en enregistrant ta macro).
Essaie aussi avec des chemins de type A1 ou R1C1 plutôt que L1C1.

[alf049]

1ère option: zapper "table name": cela s'ecrirai-t-il comme cela ?

Code :

1
2
3
"REMI!L1C1:L65536C12", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Feuil2!L3C1", _
DefaultVersion:=xlPivotTableVersion10

2e option : dans le script créer par excel s'est déjà en LxCy ! peux-tu être plus précis ?

Désolé mais je suis novice en VBA.

[ZebreLoup]

1er essai

Code :

1
2
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"REMI!L1C1:L65536C12").CreatePivotTable TableDestination:="Feuil2!L3C1"

2ème essai

Code :

1
2
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"REMI!A1:L65536").CreatePivotTable TableDestination:="Feuil2!A3"

Je ne te demande pas si les feuilles REMI et Feuil2 existent...

[alf049]

Je viens d'essayer les 2 méthodes et j'ai à chaque fois une erreur code "5".
Il me met la flèche sure la 2e ligne:

Code :

"REMI!A1:L65536").CreatePivotTable TableDestination:="Feuil2!A3"

[ZebreLoup]

Dernier essai :

Code :

1
2
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"REMI!R1C1:R65536C12").CreatePivotTable TableDestination:="Feuil2!R3C1"

Et si ça ne marche pas, pour être sûr que ce n'est pas du à la façon d'écrire la référence :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim wsSource As Worksheet
Dim wsCible As Worksheet
 
Set wsSource = Worksheets("REMI")
Set wsCible = Worksheets("Feuil2")
 
Dim rgSource As Range
Dim rgCible As Range
 
Set rgSource = wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(65536, 12))
Set rgCible = wsCible.Cells(3, 1)
 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rgSource).CreatePivotTable TableDestination:=rgCible

[alf049]

hummm, tout semble bien se dérouler jusqu'a la ligne 13 et la patatra "erreur 1004"

[ZebreLoup]

Peux-tu mettre ton fichier car là je ne vois pas, ça marche sans problème chez moi (avec des données différentes bien sûr)

[alf049]

et hop
http://cjoint.com/?ALgpXNhPwd3

[ZebreLoup]

Je ne peux pas ouvrir le lien pour le moment. Je regarderais ce soir si j'ai le temps...

[alf049]

ok,
pas la peine de mettre la rate au cours bouillon.

En effet tous tes bons conseils remis bout à bout mon permis de trouver ce qui coincait.

c'était effectivement à un endroit une écriture de cellule en "LxCy" que j'ai modifié en "RxCy" et là

ce qui m'agace plus que tout c'est que c'est le générateur de macro qui l'écrit comme cela et quand t'y connais pas grand chose comme moi

[ZebreLoup]

Oui, l'enregistreur de macro prenait en compte le fait que tu avais un Excel français alors que VBA ne connait que l'anglais.
Il est très pratique cet enregistreur de macro, mais il faut s'en méfier !