Method ' PivotTable' for 'Object Worksheet fail

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Comme vous l'aurez deviné, il y a un problème...
C'est à dire que mon Excel, utlise un code qui "refresh" un tableau croisé dynamique via un bouton.
Et donc, on va dire que 10 % des utilisateurs voient ce message après avoir activer la macro :
Pièce jointe 329291

Et donc 90 % dont moi, la macro fonctionne, aucuns message d'erreurs...
J'ai déjà regardé d'autres forums sur ce type de message et fais des modifications sur le code mais rien n'a changé pour ces 10%

Je viens donc ici demander votre aide et donc voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Brand15_Cliquer() Dim ws As Worksheet Set ws = Sheets("Select model WC RC") Application.Cursor = xlWait Application.ScreenUpdating = False ws.Unprotect "Cool" ' C'est ici que le code se met en arrêt : ws.PivotTables("Tableau croisé dynamique4-1").PivotCache.Refresh ws.PivotTables("Tableau croisé dynamique4-2").PivotCache.Refresh ws.PivotTables("Tableau croisé dynamique4-3").PivotCache.Refresh ws.Protect "Cool", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True Application.Cursor = XlDéfault End Sub
Je ne peux pas vous fournir d'excel ou d'exemple je suis désolé.
Au total j'ai 12 tableaux croisés dynamique dont 3 par feuilles.
Hope..

22/11/2017, 14h44
Poussemousse

Method ' PivotTable' for 'Object Worksheet fail Help !

Bonjour,

Etant donné qu'il bloque sur le premier PivotTable à mon avis c'est parce qu'il ne le trouve pas (ou qu'il a changé de nom).

Dans le code on ne voit pas non plus de feuille active, donc il se peut que le classeur s'ouvre dans un autre onglet, et par conséquent l'objet cherché n'est pas trouvé.
Essaie de tester ce comportement en exécutant la macro depuis une autre feuille active.

Voilà, sans l'exemple qui bloque c'est dur d'en dire plus, mais il faudrait trouver le point commun entre vos 10% où ça ne fonctionne pas, plutôt que dans le code.
Est-ce que tout le monde utilise la même version d'Excel (différence 32 ou 62 bits) ?

Sinon, il faut ajouter une gestion d'erreur qui aidera progressivement au dépannage :
On error goto XXXX

Bonne chance,
Poussemousse

Bonjour ! :)

Je n'ai pas réglé le problème mais je l'ai contourné :

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
27
28
29
30
31
Sub Macro5()
'
' Macro5 Macro
'
 
'
    On Error GoTo handlerror
    Application.Cursor = xlWait
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "Cool"
 
    ThisWorkbook.RefreshAll
    ActiveSheet.PivotTables("Tableau croisé dynamique1-1").PivotCache.Refresh
    ActiveSheet.PivotTables("Tableau croisé dynamique1-2").PivotCache.Refresh
    ActiveSheet.PivotTables("Tableau croisé dynamique1-3").PivotCache.Refresh
 
            ThisWorkbook.RefreshAll
        ActiveSheet.Protect "Cool", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
 
    Application.Cursor = XlDéfault
 
 Exit Sub
handlerror:
        ThisWorkbook.RefreshAll
        ActiveSheet.Protect "Cool", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
 
    Application.Cursor = XlDéfault
 
End Sub

Merci pour l'idée de "on error goto" :mouarf: