Bonjour à mon ouverture de fichier j'ai un userform, et lorsque l'on clique sur OK j'ai ce code:

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
Private Sub CommandButton1_Click()
 
'Afficher les onglets propres au service Devis
 
If TextBox1.Text = "Areva" Then
 
   Unload MotDePasseDevis
 
   Worksheets("Doc.").Visible = False
   Worksheets("Sommaire").Visible = False
   Worksheets("Révisions").Visible = False
   Worksheets("Emb.Tr.Stock.").Visible = False
   Worksheets("Limites Fournitures").Visible = False
   Worksheets("Disj.&Sect.&Malt").Visible = False
   Worksheets("Qualité").Visible = False
   Worksheets("TA&BaC&TR").Visible = False
   Worksheets("Générales").Visible = False
   Worksheets("Paraf.&TC&TT").Visible = False
   Worksheets("Saisie").Visible = False
 
   Worksheets("Main Data").Visible = True
   Worksheets("Annexes").Visible = True
   Worksheets("Aide").Visible = True
 
   Worksheets("Main Data").Select
 
End If
 
 
If TextBox1.Text <> "Areva" Then
 
    MsgBox ("Mot de passe incorrect...")
 
End If
 
End Sub

J'ai ensuite le message suivant:


"Erreur: La méthode Select de la classe worksheet a échoué"

Et ça me déverrouille mon onglet "Main Data"...

Que se passe t il?