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/