[RESOLU]Masquer et fermer le classuer actif

[perpitou]

Bonjour à tous,

J'ai un souci car quand je lance mon fichier je masque le classeur en question ainsi que tous les classeurs ouverts par d'autres fichiers. Puis quand je le ferme ( à savoir la croix de l'userform ) tous les dossiers se ferment.
Les codes sont:
Pour masquer le classeur.

Private Sub Workbook_Open()
Application.Visible = FalseUserForm1.Show
End Sub

Pour fermer le fichier:

Private Sub UserForm_QueryClose( Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Application.Quit
End If
End Sub

Si quelqu'un a la solution?

Merci d'avance.

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Bonjour,

Puis quand je le ferme ( à savoir la croix de l'userform ) tous les dossiers se ferment...

normal..tu exécutes ce code :

Application.Quit

remplace par :

Application.Visible = True

bon après midi
@+

 

[perpitou]

Re : Masquer et fermer le classuer actif

Merci Pierrot
déjà ça m'évite de fermer tous les classeurs ( c'est un bon point...). Par contre quand j'ouvre mon classeur pour ne faire apparaitre que l'userform1, tous les classeurs se masquent je sais que c'est un problème avec Application.Visible = False

Mais je ne trouve pas d'autres fonctions pouvant masquer mon classeur.

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Re,

pour ne masquer que la fenêtre du classeur en question :

Windows("classeur.xls").Visible = False

 

[perpitou]

Re : Masquer et fermer le classuer actif

Donc je me dois de ne pas changer le nom de mon fichier excel??

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Re,

ou alors pour la fenêtre du classeur dans lequel s'execute le code :
Windows(ThisWorkbook.Name).Visible = False

 

[MichD]

Re : Masquer et fermer le classuer actif

Bonjour,

Si tu veux que ton classeur se masque automatiquement à l'ouverture, tu peux aussi utiliser ceci :

Dans le ThisWorkbook du projetVBA dudit classeur :

Private Sub Workbook_Open()
ThisWorkbook.Windows(1).Visible = False
End Sub

 

[perpitou]

Re : Masquer et fermer le classuer actif

Ben je n'ai plus la feuille mais le classeur est toujours présent...

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Re,

ThisWorkbook.Windows(1).Visible = False

attention si plusieurs fenêtre d'ouvertes pour un même classeur, seule la première sera masquée...

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Re,

Ben je n'ai plus la feuille mais le classeur est toujours présent...

quel code as tu utilisé...

 

[perpitou]

Re : Masquer et fermer le classuer actif

Celui qui fonctionen c'est celui çi :

Windows("classeur.xls").Visible = False

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Re,

le claseur doit être masqué alors, mais c'est l'application Excel qui elle est visible...

 

[perpitou]

Re : Masquer et fermer le classuer actif

Oui l'application excel est visible et il n'ya aucun moyen de la masquer?

 

[Pierrot93]

Re : Masquer et fermer le classuer actif

Re,

si...

Application.Visible = False

mais attention, bien la remettre visible... quand tu fermes l'usf...

Application.Visible = True

 

[perpitou]

Re : Masquer et fermer le classuer actif

Ok je vais m'arranger.
Merci beaucoup