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 :
Nom : Capture.PNG Affichages : 329 Taille : 15,2 Ko

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