Discussion :

[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 :

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

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 :

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

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

[SfJ5Rpw8]

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 :

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

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 :

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

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)" )...

[SfJ5Rpw8]

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..


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

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

[comme de bien entendu]

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.

[SfJ5Rpw8]

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

chez moi ça fonctionne :

Code :

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

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