Discussion :

[Etienne Bureau]

Bonjour à tous,

Je me permets de poster car je ne trouve pas exactement la réponse au problème que je rencontre:
- j'ai un userform dans lequel j'ai ouvert un navigateur pour disposer d'informations en temps réel (un widget en gros)
- je réussi très bien à réduire mon classeur Excel sans réduire les autres
- mon userform est donc toujours affiché lorsque je travaille sur mon PC.

Le seul hic:
quand j'ouvre un autre classeur, et que je le réduis, mon userform se réduit aussi. Il faut donc que je conserve tous mes classeurs en xlnormal et ça c'est un peu gênant.

J'ai lu un post où on explique que l'on peut reconnaître une activité sur un autre workbook:

Hello !

Ca y est !
Ca marche !


Bon, l'idée c'est que tout le code soit géré dans ta macro complémentaire
Dans dans le ThisWorkBook de ta macro complémentaire, tu as besoin d'une variable qui pointe sur l'application en cours et qui trappe les évènement de l'objet application en cours

Code :

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

1
2
Option Explicit
Private WithEvents objApp As Application

Ensuite, il faut initialiser ta variable à l'installation en tant que macro complémentaire, et la détruire quand tu désinstalle (si tu le fais) la macro complémentaire

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_AddinInstall()
    Set objApp = Application
End Sub
Private Sub Workbook_AddinUninstall()
    Set objApp = Nothing
End Sub

Pour finir, tu récupères l'évènement dont t'a parlé pgz sur l'application (et non le classeur) pour tester la feuille et renvoyer un traitement plus adéquat que dans l'exemple:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub objApp_SheetActivate(ByVal Sh As Object)
    If Sh.ProtectContents Then
        MsgBox "Attention ! Cette feuille est protégée !", , "Information Sécurité"
    Else
        MsgBox "C'est bon ! tu peux y aller !!!", , "Information Sécurité"
    End If
End Sub

Tout ce code est contenu dans le seul module de ThisWorkBook, dans ton projet

vàlà

Mais je n'arrive pas à le faire fonctionner. Pour moi si je veux disposer de mon userform toujours au premier plan, je dois détecter toute activité Application.WindowState = xlMinimized et, à partir de là remettre systématiquement mon userform en show.

Vous en pensez quoi? (je suis débutant en VBA).

Merci de votre aide

[patricktoulon]

Bon je vois pas ou est ton soucis les choses simple sont les plus eficaces en general
dans le code de ton userform tu met

a l'activate

Code :

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

1
2
3
Private Sub UserForm_Activate()
Application.Visible = False
End Sub

pour fermeture de l'userform

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

et voila quand tu ouvre le userform l'aapp excel disparait et quand tu le ferme elle reviend
point barre
c'est pas compliqué

[Etienne Bureau]

Bonjour Patrick,

Merci pour votre réponse. C'est simple oui, mais je ne veux pas masquer mes autres classeurs.
Ce que je veux c'est masquer le classeur dans lequel est contenu le userform. Le hic de cette démarche c'est que si je travaille sur un autre classeur et que je finis par le réduire, de fait, le userform se réduit aussi.

C'est cela que je veux éviter.

[joe.levrai]

Bonjour,

tes classeurs sont probablement situés dans la même instance.

il faudrait dans ce cas :

- avoir ce fichier dans une instance Excel
- pour tout autre fichier sur lequel tu travailles en même temps : se mettre sur une seconde instance.

regarde si c'est bien ça

[Etienne Bureau]

Hum, je pense que ce serait la bonne solution effectivement.
J'ai trouvé ça:

Code :

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

1
2
3
4
5
6
7
8
Dim currentExcel As Excel.Application
    Dim newExcel As Excel.Application
 
    Set currentExcel = GetObject(, "excel.application")
    Set newExcel = CreateObject("excel.application")
 
    newExcel.Visible = False
    newExcel.Workbooks.Add

Mais ça ne fonctionne pas des masses...

Merci pour votre aide

[patricktoulon]

et bien soit c'est pas compliqué no plus

donc quand tu ouvre le userform le classeur du userform doit etre invisible et quand tu le ferme c'est lui qui prend le dessus

donc

Code :

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

Dim classeurusf 'pour garder la variable dans tout les evenement ou les macros

pour le activate du userform

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
classeurusf = ActiveWindow.ActiveSheet.Parent.Name
Windows(classeurusf).WindowState = xlMinimized
End Sub

pour le close du userform

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Windows(classeurusf).WindowState = xlMaximized
End Sub

voila

[Etienne Bureau]

Merci Patrick, mais malheureusement ça ne correspond pas à ce que je recherche (sorry).

1) Je cherche vraiment à ce que le classeur contenant le userform disparaisse de la barre des tâches
2) le userform doit dans tous les cas de figure être au premier plan de mon écran mais ne doit en aucun cas bloquer la possibilité de travailler sur d'autres classeurs excel par exemple.

L'unique difficulté que je rencontre est de pouvoir le conserver à l'écran quand je réduis un des autres classeurs. Comme l'a écrit Joe.levrai je pense que ce problème est dû au fait que mon classeur Excel s'ouvre dans la même instance que les autres. Le problème c'est que je ne sais pas comment faire ça...