Passer un USF ouvert d'un fichier à l'autre

carlos

XLDnaute Impliqué
Bonjour,
j'ai crée usf que j'ouvre sur le fichier 1.
Lorsque je passe sur le fichier 2 le usf n'apparait plus alors qu'il y a 2 ou 3 ans cela était possible.
J'ai pourtant mis: USF1.show 0.
Avez vous une réponse à me proposer?
Merci
Carlos
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
Moi aussi je trouve ça très pénible. Avant un UserForm était une fenêtre à part entière, indépendante de toute application pour ce qui était de la gestion de son affichage, et c'était très bien comme ça. Maintenant c'est presque impossible de faire des UserForm non modaux indépendants.
Il y a à la rigueur possibilité avec des API de faire en sorte qu'il reste affiché, mais même alors, en cliquant dessus ça rappelle par derrière la fenêtre à partir de laquelle il avait été ouvert, et je n'ai pas trouvé comment éviter ça.
VB:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal HWnd As Long, ByVal hWndInsertAfter As Long, _
   ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
…
Private Sub UserForm_Activate()
   SetWindowPos GetForegroundWindow, -1, 0, 0, 0, 0, 3: End Sub
 

Discussions similaires


Haut Bas