Discussion :

[ChChatou]

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 :

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

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

[Philippe Tulliez]

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

[ChChatou]

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 :

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

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