Discussion :

[Breizh22p]

Bonjour,

J'ai créé dans le module "Projet" une "Feuille"; c'est un masque avec 2 options et 2 boutons "Valider" et Quitter"

Je voudrait au démarrage seul le menu soit visible, afin qu'une fois le choix fait, il ouvre telles ou telles feuilles

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
    ' Afficher la fenêtre "Fenêtre_Choix"
    Fenêtre_Choix.Show
    ' Cacher toutes les feuilles excel
    Sheets().Visible = False
End Sub

Il me retourne "Erreur d'exécution 1004"

Merci

[tirex28]

Bonsoir,

Tu ne peux pas masquer toutes les feuilles mais tu peux masquer la fenetre.

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
    ' Masquer la fenetre
    ActiveWindow.Visible = False
    ' Afficher la fenêtre "Fenêtre_Choix"
    Fenêtre_Choix.Show
End Sub

Cordialement,

Tirex28/

[Breizh22p]

Salut,

merci pour le code, c'est exactement ce que e voulais, mais le probleme c'est qu'il me retourne un msg d'erreur exécution 91 : "Variable object ou variable de bloc with non définie", et les codes rattachés aux boutons ne marchent plus. J'ai l'impression de ne pas travailler avec mon classeur mais sur un classeur vierge.

[tirex28]

Bonsoir,

Si tu veux bien nous montrer ton code en indiquant ou ca bloque on trouvera surement commenr t'aider.

Cordialement,

Tirex28/

[Breizh22p]

Salut,

Comme ça Avec ce code, ça marche, mais je vois mes feuilles derrières. C'est pas terrible

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_Open()
    ' Afficher la fenêtre "Fenêtre_Choix"
    Fenêtre_Choix.Show
 
     ' Masquer la fenetre
    ActiveWindow.Visible = True
 
End Sub

Par contre, comme ça, c'est à marcher au début après j'ai du faire une manip et depuis il me sort le code 91

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_Open()
 
     ' Masquer la fenetre
    ActiveWindow.Visible = True
 
 ' Afficher la fenêtre "Fenêtre_Choix"
    Fenêtre_Choix.Show
 
End Sub

Merci d'avance

[tirex28]

Bonsoir,

Si tu utilise des expressions telles que ActiveCell, ActiveSheet ou Selection c'est normal que ca plante car il n'y plus rien d'actif ou de selectionné...

Fais donc voir le code de ton formulaire.

Cordialement,

Tirex28/

[Breizh22p]

Salut,

Voila le code qui me retourne une erreur 91, je n'arrive plus à afficher mes feuilles excels

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
Private Sub Workbook_Open()
 
    ' Masquer la fenetre
    ActiveWindow.Visible = False
 
    ' Afficher la fenêtre "Fenêtre_Choix"
    Fenêtre_Choix.Show
 
End Sub
Private Sub Bouton_Valider_Click()
 
    ' Afficher la fenêtre
    ActiveWindow.Visible = True
    ' Confirmation du entre "Commerciaux" et "Autres"
    If Option_Commerciaux.Value = True Then
            ' Selection de la feuille
            F_Commerciaux.Activate
            ' cacher toutes les feuilles
            F_Attachés.Visible = xlSheetVisible
            F_Autres.Visible = xlSheetVisible
            F_Infos.Visible = xlSheetVisible
            ' Rendre visible la feuille
            F_Commerciaux.Visible = xlSheetVisible
            Else
            Option_Autres.Value = True
            F_Autres.Activate
            F_Autres.Visible = xlSheetVisible
 
            End If
            ' Masquer la fenetre
 
    Unload Fenêtre_Choix
 
End Sub

A +

[tirex28]

Bonsoir,

Une fois masquée ActiveWindow n'est plus active...

Code :

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

1
2
3
4
Private Sub Bouton_Valider_Click()
    ThisWorkbook.Windows(1).Visible = True
....
End Sub

Cordialement,

Tirex28/

[Breizh22p]

Salut,

Ok, mais je fais comment pour réactiver mes feuilles. j'ai supprimé la ligne de code, j'ai essayé de mettre ça à la place . il me mets toujours un code 91. Je voudrais au moins récupérer mes feuilles

Code :

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

1
2
' Activer la fenêtre window
    ActiveWindow.active

A +

[tirex28]

Bonsoir,

Une fois la fenêtre affichée rien ne devrait t'empecher de masquer/afficher les feuilles selon ton désir. Assure toi qu'il y a toujours au moins une feuille visible, que le classeur n'est pas protégé et vérifie le nom de tes feuilles.

Cordialement,

Tirex28/

[Invité]

Bonsoir Breizh22p,

Comme l'a écrit Tirex28, avec la procédure :

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
    ' Masquer la fenetre
    ActiveWindow.Visible = False
 
    ' Afficher la fenêtre "Fenêtre_Choix"
    Fenêtre_Choix.Show

dès l'ouverture du fichier la fenêtre n'est plus active.
Vous ne pouvez donc pas dans le code de votre Userform utiliser "ActiveWindow".

Si vous indiquez (toujours come l'a écrit Tirex28)

Code :

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

1
2
3
4
Private Sub Bouton_Valider_Click()
    ThisWorkbook.Windows(1).Visible = True
....
End Sub

ou même :

Code :

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

1
2
3
4
Private Sub Bouton_Valider_Click()
    Windows(1).Visible = True
....
End Sub

Cela fonctionne.

Ensuite si vous avez masqué des feuilles avant de masquer la fenêtre il suffit de les réafficher :

Code :

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

Sheets("xxxx").Visible = True

[Breizh22p]

Meric de tous les deux, j'ai enfin récupéré mes feuilles. et je vais affiner un peu (pour pas dire beaucoup mon petit code

A +

Par contre, je ne vois pas l'option RESOLU