Discussion :

[chriss01800]

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 :


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 :

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

[Poussemousse]

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

[chriss01800]

Bonjour !

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

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