Actualiser un TCD protégé avec VBA

Fermé

mcstayhi99 Messages postés 33 Date d'inscription mardi 11 février 2014 Statut Membre Dernière intervention 25 février 2014 - 21 févr. 2014 à 18:27
mcstayhi99 Messages postés 33 Date d'inscription mardi 11 février 2014 Statut Membre Dernière intervention 25 février 2014 - 22 févr. 2014 à 13:19

Bonjour,

Voici le problème qu je rencontre :

J'ai un Tcd protégé que je veux actualiser sur excel 2010, voici le code que j'ai mis et que j'ai lié a un bouton:

Sub Actualiser()
'
' Actualiser Macro
'

'
ActiveSheet.Unprotect

ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowUsingPivotTables:=True

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

Qd j'appuie sur le bouton il me sort un message comme quoi je peux pas actualiser un tcd protégé ,qd j'enlève la partie "AllowUsingPivotTables:=True" sa fonctionne mais sa me donne une autre erreur " tableau croisé dynamique impossible a modifier dans une feuille protégé".

voici le fichier : https://www.cjoint.com/?DBvszAQhBFo

Merci pour votre aide.

A voir également:

Actualiser un TCD protégé avec VBA
Tcd excel - Guide
Proteger un dossier avec mot de passe - Guide
Vba range avec variable ✓ - Forum VB / VBA
Bouton actualiser google chrome ✓ - Forum Réseaux sociaux
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
21 févr. 2014 à 18:32

Re pour aujourd'hui
Ça ne va toujours pas?
Pour info,la macro n'est pas dans le fichier.
crdlmnt

mcstayhi99 Messages postés 33 Date d'inscription mardi 11 février 2014 Statut Membre Dernière intervention 25 février 2014
21 févr. 2014 à 18:49

Oui Ça ne va toujours pas malheureusement.

voici la macro :

Sub Actualiser()
'
' Actualiser Macro
'

'
ActiveSheet.Unprotect

ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowUsingPivotTables:=True

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

Merci.

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
21 févr. 2014 à 19:07

La macro on connait, ce que je voulais dire, c'est qu'elle n'est pas dans le fichier que vous avez mis à disposition et que dans tous les cas, on ne peut pas la valider vu que le TCD fait référence à un autre classeur!

mcstayhi99 Messages postés 33 Date d'inscription mardi 11 février 2014 Statut Membre Dernière intervention 25 février 2014
21 févr. 2014 à 19:11

Regardez juste si je px ajouter quelque chose sur cette macro pour qu'elle puisse fonctionner.
je travaille depuis hier sur sa et je n'arrive tjrs pas a réglé ce problème.

Merci

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
Modifié par Vaucluse le 21/02/2014 à 19:35

Désolé, mais pour ce qui me concerne, elle devrait fonctionner, mais comment voulez vous qu'on valide avec un fichier qui ne contient ni la macro, ni la source de données du TCD?
Au hasard essayez en laissant seulement dans la ligne de protection la partie en gras ci dessous et supprimer le reste
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowUsingPivotTables:=True
Jusqu'à:
ActiveWorkbook.Protect Structure:=True, Windows:=False qui est à conserver

mcstayhi99 Messages postés 33 Date d'inscription mardi 11 février 2014 Statut Membre Dernière intervention 25 février 2014
21 févr. 2014 à 19:42

j'ai déjà essayé ça, le segment ne fonctionne plus et les données ne s'actualisent pas.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

ouverture d'un fichier excel à partir d'un code VBA

Erreur d'exécution 13 Incompatibilité de type

actualisation de tableau croisé dynamique

Vba excel actualiser TCD