Discussion :

[psykodumarteau]

Bonjour,

je lis le contenu d'un tableau croisé dynamique via le code VBA suivant:

Code :

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

Sheets("TCD_CHARGE").PivotTables("TCD_CHARGE").GetPivotData("Somme de CHARGE", "ANNEE_CHARGE", CStr(Year(Date)), "SEMAINE_CHARGE", CStr(TrouverNuméroSemaine(Date)), "ATELIER", atelier, "POSTE", poste)

Le problème est que si la donnée correspondant aux critères n'existe pas le code ne marche pas (normal quoi). Je voudrai donc vérifier au préalable que la donnée existe.

Quelqu'un sait-il comment faire?

Cordialement

[melouille56]

Salut
t'as essayé avec

Code :

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

If Not IsError(TaFormule) then ActionSiCestBon

J'ai pas testé mais c'est une idée qui me vient à l'esprit.
Mél

[ilcocodrillo]

normallement ça te donne une erreur avec un code donc une petite gestion d'erruer et le tour est joué.

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
 
on error goto GestionErreur
'.. ton code 
 
 
 
'***************   GESTION ERREURS    **************    
GestionErreur:
 
select case err
 
case 13
'code de gestion dans le cas d'une erreur 13
case xx
'code de gestion en cas d'erreur N°xx
 
case else
'code de gestin en cas d'autre code d'erreur
 
end select
''***************  FIN GESTION ERREURS    **************

[psykodumarteau]

Re,

J'ai déjà une gestion des erreurs. En effet, certaines sont normales et je les prends en compte. Je voulais savoir s'il existe une méthode ou une propriété dans les tableau croisé qui permet de tester si un champ existe. Je n'aime pas utiliser la gestion des erreur pour réaliser des tests je trouve que ce n'est pas propre.

je vais tester la méthode melouille56.

Merci cordialement

[psykodumarteau]

Re,

j'ai testé la solution de melouille56 :

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub TestTCD()
    If Not IsError(Sheets("TCD_CHARGE").PivotTables("TCD_CHARGE").GetPivotData("Somme de CHARGE", "ANNEE_CHARGE", "2008", "SEMAINE_CHARGE", "26")) Then
        MsgBox "l'année semaine existe"
    Else
        MsgBox "l'année semaine existe pas"
    End If
End Sub

Et malheureusement, ça ne marche pas. j'obtiens le message d'erreur suivant :Erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet.

Existe-t-il une autre solution?

Cordialement