erreur macro vba excel 2007

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:

---

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

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:

---

1 2 3 4 5

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

---

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,

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:

---

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

---

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:

---

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.

Bonsoir,

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

Code:

---

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

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.

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/)