VBA Forcer Debug incohérent
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:
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:
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 !
