Actualiser un TCD protégé avec VBA
mcstayhi99
Messages postés
34
Statut
Membre
-
mcstayhi99 Messages postés 34 Statut Membre -
mcstayhi99 Messages postés 34 Statut Membre -
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.
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.
1 réponse
-
Re pour aujourd'hui
Ça ne va toujours pas?
Pour info,la macro n'est pas dans le fichier.
crdlmnt
-
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. -
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!
-
-
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 -
-
