[VBA-E] Tableau croisé dynammique et Init

Bonjour, j'ai plusieurs TCD qui sont crées sur des feuilles associés à ma macro Excel. (un TCD par feuille)
Il se passe la chose suivante : si j'execute le code suivant

Code:

---

1 2 3

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Description Famille").CurrentPage = "CABLES TRANSPOSES CUIVRE"

---

et qu'il n'existe pas de CABLES TRANSPOSES CUIVRE j'ai une erreur.
Par contre si auparavant j'ai lancé le code

Code:

---

1 2 3

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Description Famille").CurrentPage = "SYSTEMES DURS"

---

et qu'il n'y a pas d'erreurs alors cette fois le premier code (celui du haut de la page) m'affiche des valeurs à 0 mais ne genere pas d'erreurs.
Je suis en outils/option/General/=>arret sur les modules de classe.
Est ce qu'il y a un autre parametre à modifier dans mon tcd pour éviter la survenue d'une erreur ?
Est ce qu'il est possible de faire un ActiveSheet.PivotTables qui marche à tous les coups pour éviter le probleme ?
D'avance merci de vos réponses

Citation:

---

Envoyé par comme de bien entendu

Bonjour, j'ai plusieurs TCD qui sont crées sur des feuilles associés à ma macro Excel. (un TCD par feuille)
Il se passe la chose suivante : si j'execute le code suivant

Code:

---

1 2 3

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Description Famille").CurrentPage = "CABLES TRANSPOSES CUIVRE"

---

et qu'il n'existe pas de CABLES TRANSPOSES CUIVRE j'ai une erreur.
Par contre si auparavant j'ai lancé le code

Code:

---

1 2 3

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Description Famille").CurrentPage = "SYSTEMES DURS"

---

et qu'il n'y a pas d'erreurs alors cette fois le premier code (celui du haut de la page) m'affiche des valeurs à 0 mais ne genere pas d'erreurs.
Je suis en outils/option/General/=>arret sur les modules de classe.
Est ce qu'il y a un autre parametre à modifier dans mon tcd pour éviter la survenue d'une erreur ?
Est ce qu'il est possible de faire un ActiveSheet.PivotTables qui marche à tous les coups pour éviter le probleme ?
D'avance merci de vos réponses

---

relis tes anciens Posts... je crois que tu as déjà posé la question !!!

... et je t'ai donné une solution que tu ne semble pas avoir exploitée...
( repasser par "(Tous)" )... :oops:

sur la page d'acceuil du forum en haut à droite tu as

Voir ces messages ..

je commence toujours par là lorsque je me connecte au forum..
:wink:

sinon pour les autres ... je parle de ma deuxiéme réponse sur le sujet :

http://www.developpez.net/forums/vie...asc&highlight= :wink:

J'avais déja tenté la manip avec le (Tous), je viens de réessayer mais
ca ne marche pas plus.
La solution serait peut être de vérifier que les données sont présentes
avant de lancer le tableau.
Peut être en faisant un Find, mais si il y a une commande plus "ramassée"
je suis preneur.

tu as du mal "tenter la manip avec tous ..."

chez moi ça fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

' ' Fonction ChangePage .. : à inclure dans ton projet ' retourne true si page existe .... ' Function ChangePage(stPage As String) As Boolean 'se positionne d'abords sur Tous ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Description Famille").CurrentPage = "(tous)"   On Error GoTo ErreurPage ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Description Famille").CurrentPage = stPage ChangePage = True Exit Function ErreurPage: ChangePage = False Debug.Print "Page :" & stPage & " Introuvable" End Function ' ' Procedure de test de ma fonction ... appellé par un bouton sur ma feuille.. ' ... avec en H6 le nom de la Page a afficher ... et l'on retrouve le résultat en I6 Sub Test() Range("I6") = ChangePage(Range("h6").Value)   End Sub

---

:roll: :wink: :wink: