Discussion :

[saiboht]

Bonjour à tous, ma question concerne un problème sous VBA :

En créant un TCD, il me sort une erreur 1004 : "Référence non valide". Seulement, cette erreur n'est pas bloquante. Je reclique sur éxécuter, et il éxecute le code correctement (et je suppose qu'il repasse sur la portion "bugguée", cette fois avec succès).
Le truc, c'est que des programmes avec des TCD, j'en ai des centaines, et tous construits pareils. Et j'ai ce bug nul par ailleurs, juste ici.
Ci-dessous : un code qui ne bug pas, et celui qui bug.

Pas de bug :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
        "Feuil1!R1C1:R" & nbline & "C" & nbcol).CreatePivotTable TableDestination:= _ 
        "'tableau age'!R1C1", TableName:= _ 
        "Tableau croisé dynamique", DefaultVersion:=xlPivotTableVersion10

Bug :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
        "Feuil1!R1C1:R" & nbline & "C" & nbcol).CreatePivotTable TableDestination:= _ 
        "'tableau anc'!R1C1", TableName:= _ 
        "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10

Ma question est donc : y a t-il un moyen de forcer le debug ? J'ai essayé avec toutes les variantes de "On error...", ça ne marche pas. Ou y a t-il une correction à apporter à mon code pour qu'il fonctionne à tous les coups, et non pas seulement quand il veut.

Merci d'avance !

[delphine35]

J'ai la meme erreur lorsque j'essaie de creer un TCD a un emplacement contenant deja un TCD :

Tu n'as pas de TCD existant sur la cellule A1 de ta feuille 'tableau anc' ?

Q° : Pourquoi creer 2 fois le meme TCD ?