Discussion :

[jijie]

Bonjour à tous

Voici un autre problème sur mon fichier.
Dans ce fichier qui comprend des macros et plusieur Tableaux croisés dynamiques (5 sur des feuilles différentes), il arrive régulièrement que le fichier plante lorsque je suis sur une feuille qui contient un TCD, et il se ferme complètement à en perdre les données juste réalisées. Je ne sais pas quoi faire!

Il faut que j'apporte une petite précision: lorsque j'installe ce fichier sur mon ordi je ne connais pas ce problème! Alors je me demande si cela ne proviendrais pas de l’ordi (mais c'est le cas sur plusieurs ordi) ou alors qu'il manque quelque chose sur Excel! Mais quoi?

Ou alors ces mon code qui est faut que je réalise avant d'entrer ds une feuille contenant un TCD

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim LaFeuille As Worksheet
For Each LaFeuille In ActiveWorkbook.Worksheets
      LaFeuille.Unprotect
Next
 
 
Dim MaFeuille As Worksheet
 
For Each MaFeuille In ActiveWorkbook.Worksheets
     MaFeuille.Visible = xlSheetVisible
 
Next
Sheets("GL_Ana").Select
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowUsingPivotTables:=True
    Range("A1:H1").Select
Dim a As Worksheet
  For Each a In ActiveWorkbook.Worksheets
      a.Visible = (a.Name = "GL_Ana")
  Next a

Merci à vous!

[mercatog]

Je pense que le code entier n'est pas que ça.
Dans cet ordre:
1. Je dé protège toutes les feuilles
2. je les rends toutes visibles
3. je sélectionne la feuille "GL_ana"
4. je rafraichi le TCD
5. je protège cette feuille
6. je cache toutes les autres feuilles
à méditer

[jijie]

J'ai bien modifié l'ordre du code est ce que cela te semble + cohérant, mais cela ne m'explique pas pourquoi ça marche sur mon ordi et plante sur d'autre!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton15_Click()
' je déprotèje toutes les feuilles
Dim LaFeuille As Worksheet
For Each LaFeuille In ActiveWorkbook.Worksheets
      LaFeuille.Unprotect
Next
 
 
' je les rend tts visible
Dim MaFeuille As Worksheet
 
For Each MaFeuille In ActiveWorkbook.Worksheets
     MaFeuille.Visible = xlSheetVisible
 
Next
 
' je rafraichi le TCD
 
Sheets("GL_Ana").Select
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowUsingPivotTables:=True
' je protège la feuille
 
    ActiveSheet.Protect ' protection de la feuille
Range("a1").Select
 
'je rends la feuille GL_Ana visible
 
Dim a As Worksheet
  For Each a In ActiveWorkbook.Worksheets
      a.Visible = (a.Name = "GL_Ana")
  Next a
 
 
 
Unload UserForm8
End Sub

[mercatog]

à part un ActiveSheet.protect double
ça à l'aire de fonctionner.
mon dernier post était pour comprendre le but.
quelle version d'Excel tu as? dans les 2 pc

[jijie]

Oui c juste j'ai bien 2 protection, je modifie ça.

pour ta 2ème question , c'est bien des 2007 je regarde demain si c'est pas un problème de mise à jour et te donne ma réponse, ce doit-être ça qui me pose problème.

Merci encore et à demain!

[mercatog]

Je suis assez sur que dans un 2003, ça fonctionnerait sans souci. j'avais rencontré un problème similaire avec une autre personne. mais bon, j'en sais rien.