Bonjour,
J'ai un fichier bourré de TCD (environ 50 pointant sur une base = un onglet du fichier, plus environ 10 autres pointant sur une deuxième base = un autre onglet du fichier)
Comme j'ai fréquemment des TCD qui se chevauchent (message : impossible d'afficher le rapport de tableau croisé dynamique sur un rapport déjà existant) j'avais créé une macro pour analyser les TCD du fichier et m'indiquer celui qui était en faute :
Mais depuis quelque temps (1 mois, 2 mois ?) cette macro ne marche plus. J'ai le message "Impossible d'afficher..." et aucun des tableaux n'est trouvé en erreur.
De plus auparavant quand il y avait ce message, les TCD étaient quand même rafraichis, le TCD en faute était affiché jusqu'à la limite de chevauchement avec le suivant. Visuellement il était donc facile de repérer le fautif.
Maintenant, quand le message "Impossible d'afficher...." arrive, aucun des TCD n'est rafraichi.
J'ai trouvé un endroit sur internet où un utilisateur présente un problème très similaire. Mais il n'a obtenu aucune réponse.
Je suis dans environnement 0ffice 365 ProPlus, Excel version 1808.
Est-ce que qq un a constaté le même phénomène : les TCD ne sont plus rafraichis quand il y a chevauchement d'un seul ?
Est-ce qu'il y a un moyen de forcer le rafraichissement ?
Est-ce que vous avez une autre idée pour tester si un TCD est en erreur ou non ?
Merci d'avance pour votre support.
J'ai un fichier bourré de TCD (environ 50 pointant sur une base = un onglet du fichier, plus environ 10 autres pointant sur une deuxième base = un autre onglet du fichier)
Comme j'ai fréquemment des TCD qui se chevauchent (message : impossible d'afficher le rapport de tableau croisé dynamique sur un rapport déjà existant) j'avais créé une macro pour analyser les TCD du fichier et m'indiquer celui qui était en faute :
'check if Pivot Table is displayed without error |
texte_erreur = "ok" |
check_display_TCD = .GetPivotData(.DataPivotField.PivotItems(1)) |
If (texte_erreur <> "ok") Then |
Cells(n_line + n_sheet + sheet_with_TCD, n_colonne + 1 + i).Interior.Color = RGB(255, 150, 0) 'orange |
'cette ligne passe en orange une cellule de la page où j'exécute la macro d'analyse des TCD du fichier |
End If |
traiter_erreur: 'traitement de l'erreur, utilisé pour diagnostiquer un TCD non complètement affiché |
texte_erreur = Err.Description |
Resume Next |
De plus auparavant quand il y avait ce message, les TCD étaient quand même rafraichis, le TCD en faute était affiché jusqu'à la limite de chevauchement avec le suivant. Visuellement il était donc facile de repérer le fautif.
Maintenant, quand le message "Impossible d'afficher...." arrive, aucun des TCD n'est rafraichi.
J'ai trouvé un endroit sur internet où un utilisateur présente un problème très similaire. Mais il n'a obtenu aucune réponse.
Je suis dans environnement 0ffice 365 ProPlus, Excel version 1808.
Est-ce que qq un a constaté le même phénomène : les TCD ne sont plus rafraichis quand il y a chevauchement d'un seul ?
Est-ce qu'il y a un moyen de forcer le rafraichissement ?
Est-ce que vous avez une autre idée pour tester si un TCD est en erreur ou non ?
Merci d'avance pour votre support.