Discussion :

[steps5ive]

Bonjour,

Afin de permettre de mettre à jour un tableau croisé dynamique lorsque la feuille est verrrouillée, j'ai créé un bouton sur ma feuille qui lui s'occupe de la mise à jour de la façon suivante:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub cmdMAJ_Click()
    With Worksheets("h.  Statistiques")
        .Unprotect
        .PivotTables(1).RefreshTable
        .Protect
    End With
End Sub

Malheureusement, j'ai une erreur à la ligne .unprotect comme de quoi cette fonction a échoué.

Quelqu'un aurait-il une idée pourquoi j'obtiens cette erreur?

Merci et bonne journée

[SilkyRoad]

bonsoir

Ta procédure fonctionne chez moi (Excel2002).
Quel est le code d'erreur et le message exact?
Quelle est ta version d'Excel?


michel

[steps5ive]

Sur mon poste elle fonctionne aussi et j'ai excel 2000. Par contre sur un autre poste où c'est excel 2002 qui est installé et ça plante. Le message d'erreur c'est quelque chose comme "La méthode 'unprotect' de l'objet worksheet a échoué".

Existe-t-il un moyen de contourner ce problème?