Discussion :

[puledad1]

Bonjour,

J'e viens de developper une petite application sous VBA.
Je voulais masquer EXCEL en arrìère plan au démarage de l'appli j'ai donc urilisé :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
Application.Visible = False
Welcomeuserform.Show
End Sub

Private Sub Workbook_Open()

Comment faire pour qu'excel réapparaisse à la fermeture de l'application.

Merci pour votre réponse.
Adrien

[SfJ5Rpw8]

bonjour,

utilise l'événement Workbook_close et remet à true la propriété "visible" de ton application.

[puledad1]

J'avais déja essayer, mais rien ne se passe.

L'évênement ne serait-il pas plutôt : Application_Close () ???
Mais dans ce cas là : Il faut mettre la propriété Visible.True à quel objet.

Je répête : A l'ouverture je ne veux pas voir excel en arrière plan, uniquement mon application.
A la fermeture de mon application, je souhaiterai que excel réapparaisse.

Une question supplémentaire, comment faire pour afficher une feuille excel, a partir d'un bouton dans un userform.

Merci de l'intérêt porté a ma question

[Daniel.C]

Bonjour,

Avec XL2010, ça fonctin=onne avec la macro évènementielle : Workbook_BeforeClose

[Jean-Pierre49]

Bonjour

As-tu essayé :
Dans le module ThisWorbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
ActiveWindow.Visible = False
Welcomeuserform.Show
End Sub

Dans le module de l'Usf

Code :

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

1
2
3
4
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWindow.Visible = True
Unload Me
End Sub

Tu dis

Bon courage

[SfJ5Rpw8]

....
L'évênement ne serait-il pas plutôt : Application_Close () ???
Mais dans ce cas là : Il faut mettre la propriété Visible.True à quel objet.
...

A oui Daniel à raison c'est plutôt before_close évite les ActiveWorkbook et autres ActiveWindows

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 Application.Visible = False
 UserForm1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

...
Une question supplémentaire, comment faire pour afficher une feuille excel, a partir d'un bouton dans un userform.

Merci de l'intérêt porté a ma question
.

Nouvelle question nouvelle discussion