Discussion :

[yan14]

Bonjour,
Novice en langage VBA sous excel 2007, je recherche de l'aide pour corriger ma macro qui ne fonctionne pas. Cette dernière a pour objet de laisser s'executer une mise à jour des données sous un tableau croisé dynamique protégé.

Code :

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

1
2
3
4
5
6
Sub MacroavecfeuilleProtect()
ActiveSheet.Unprotect "mdp"
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables(1).PivotCache.Refresh
ActiveSheet.Protect "mdp", True, True, True
End Sub

Dans l'attente, de votre aide. Merci

[BlueMonkey]

Bonjour,

Pour une raison obscure, il y a une déclaration de fonction Private Sub Worksheet_Activate() au milieu de la fonction MacroavecfeuilleProtect.

Essaye

Code :

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

1
2
3
4
5
Sub MacroavecfeuilleProtect()
   ActiveSheet.Unprotect "mdp"
   ActiveSheet.PivotTables(1).PivotCache.Refresh
   ActiveSheet.Protect "mdp", True, True, True
End Sub

[yan14]

Merci BlueMonkey
Néanmoins subsiste un petit probleme : je suis obligé sur la feuille protégée de lancer l'execution de la macro et j'aurai souhaité une mise à jour automatique en d'autres termes un lancement automatique de la macro. Dans l'attente Bien cordialement,

[BlueMonkey]

Bonjour,

Si le nom de la feuille contenant le TCD s'appelle Feuil1, ajoute la fonction ci-dessous dans le code associé au classeur ThisWorkBook

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
   With Worksheets("Feuil1")
         .Unprotect "mdp"
         .PivotTables(1).PivotCache.Refresh
         .Protect "mdp", True, True, True
   End With
End Sub

[yan14]

Bonsoir BlueMonkey
Comme je l'ai déjà signalé je suis un vrai débutant et lorsque je copie cette macro, que vous m'avez gentiment corrigé :

Code :

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

1
2
3
4
5
Sub MacroavecfeuilleProtect()
   ActiveSheet.Unprotect "mdp"
   ActiveSheet.PivotTables(1).PivotCache.Refresh
   ActiveSheet.Protect "mdp", True, True, True
End Sub

et que je l'applique sur d'autres feuilles toujours liées au même TCD, la macro ne fonctionne que sur la premiere feuille soit Janvier mais il reste 11 feuilles à protéger et à rafraichir dès que les données changent. et franchement je bloque. merci d'avance.

[BlueMonkey]

Bonsoir,

Pour exécuter la macro sur l'ensemble des feuilles du classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.PivotTables.Count > 0 Then
            With ws
             .Unprotect "mdp"
             .PivotTables(1).PivotCache.Refresh
             .Protect "mdp", True, True, True
           End With
        End If
    Next ws
End Sub

P.S :
Quelques conseils qui, si tu les suis, t'aiderons à recevoir de l'aide sur le forum :
- lorsqu'on insère du code, on utilise la balise # (voir exemple ici)
ca aide beaucoup à la lecture. Plus c'est lisible, plus tu auras de chance de trouver du support.
- lorsque tu souhaite répondre à un message, utilise le bouton <Ajouter une réponse>, (le bouton <Citer> doit est réservé aux situations
où la citation apporte quelque chose au message.)

[yan14]

Bonjour BlueMonkey.
Je vous remercie encore de votre précieuse aide mais malheureusement la dernière macro ne me donne pas le résultat attendu. J'ai une erreur 1004.
Je ne voudrai pas vous faire prendre votre temps mais franchement je suis complètement dépassé et m'y prends surement très mal. Pourrai je vous faire parvenir le fichier excel afin que vous y puissiez repérer l'anomalie. Ci joint le fichier. je vous remercie par avance.

[BlueMonkey]

Bonsoir,

Sauf erreur de ma part, il n'y a pas de fichier joint.
S'il est volumineux, il est préférable de le compresser et/ou de le poster sur un site d'hébergement (http://www.yousendit.com/)