Debug sur création TCD

Bonjour,

je cherche un avis éclairé pour m'aider à trouver une erreur dans un code:
je crée un TCD avec l'instruction suivante

Code:

---

1 2	ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PlageTCD, Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:=NomTCD & "!R3C1", TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion14

---

et le code fonctionne correctement.

Suite à une modification qui, a priori, n'a rien à voir avec la routine qui crée le TCD, VisualBasic tombe en défaut "Erreur 1004 , Référence non valide " et c'est cette instruction qui est pointée en jaune par le débug.
Les variables sont correctes.
Quelqu'un pourrait-il m'indiquer comment faire pour détecter l'origine du problème car je ne trouve pas quelle est la référence qui tombe en défaut.

D'avance merci, bonne journée à tous

Bonjour,
Sans avoir testé, il est fort probable que le nom "Tableau croisé dynamique1" est déjà présent dans la feuille de destination.

re-bonjour,

j'ai bien essayé de changer le nom de la table pour être certain que le nom de la table n'existe pas déja, voir les instructions ci-dessous , sans succès...

Code:

---

1 2 3 4 5 6

Sheets.Add ActiveSheet.Name = NomTCD   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PlageTCD, Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:=NomTCD & "!R3C1", TableName:=NomTCD, DefaultVersion:=xlPivotTableVersion14 Sheets(NomTCD).Select

---

Je cherche avant tout des informations pour bien comprendre comment interpréter le message d'erreur, comment chercher ce qui le fait planter, d'autant plus que j'ai une version précédente du code qui fonctionne et que les évolutions entre les deux versions ne concernent absolument pas la création du TCD. En clair, est-ce qu'il est possible de faire parler Visual Basic pour qu'il m'indique l'origine du défaut?

D'avance merci