Userform caché par l'explorateur windows

Version imprimable

22/04/2013, 22h16
nibledispo

Userform caché par l'explorateur windows

bonjour,

quelqu'un peut-il me dire pourquoi lorsque j'ouvre mon fichier, l'userform d'accueil se trouve caché par l'explorateur windows lorsque celui-ci est ouvert.

y-a-t-il une instruction permettant d'enlever l'explorateur windows ou passer l'userform au premier plan.

j'ai bien trouvé sur le net l'instruction suivante pour aggrandir l'explorateur
'Shell "explorer /e,,""C:\Documents and Settings""", vbMaximisedFocus
qui fonctionne parfaitement.

je me suis dit qu'il suffirait alors de remplacer "vbMaximisedFocus" par "vbMinimisedFocus" mais étonnamment cela ne réduit pas l'explorateur.

Par ailleurs l'instruction FrmTAXI.Show vbModeless ne répond pas davantage au problème posé.

merci.
23/04/2013, 13h53
jfontaine

Bonjour,

Citation:

l'userform d'accueil se trouve caché par l'explorateur windows lorsque celui-ci est ouvert.

Personnellement, je ne reproduis pas ce problème.
Peut être qu'en nous montrant le code s'exécutant à l'ouverture du classeur on verra quelque chose pour t'aider

userform caché par explorateur window

bonjour Jfontaine,

voici le code :

la première procédure se trouve dans thisworkbook
la seconde et la troisième sont sur le module 1

quand j'ouvre le fichier l'userform est placé directement sur le bureau comme je le souhaite (c'est à dire classeur non visible).

avec FrmTAXI.Show vbModeless l'explorateur est masqué par le classeur qui alors apparait contrairement à ce que je souhaite.

quand j'actionne la troisième procédure la feuille souhaitée apparait.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
Sub Workbook_Open()
Application.WindowState = xlMinimized
FrmTAXI.Show 
Call initialise
End Sub
 
Sub initialise()
ouvert = 0
With Application
        .WindowState = xlNormal
        .CommandBars("Worksheet Menu Bar").Enabled = False
        .DisplayFullScreen = True
        .CommandBars("Formatting").visible = False
        .CommandBars("Control Toolbox").visible = False
        .CommandBars("Standard").visible = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
        .ShowWindowsInTaskbar = False
        .DisplayAlerts = False
        .AskToUpdateLinks = True
End With
 
With ActiveWindow
        .WindowState = xlNormal
        .DisplayFormulas = False
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
End With
End Sub
 
Private Sub CmdCarburant_Click()
Worksheets("carlavprod").Activate
ActiveSheet.visible = True
Range("B10").Select
Selection.End(xlDown).Select
ouvert = 1
FrmTAXI.Hide
End Sub

j'espère que cela pourra orienter une éventuelle réponse

merci.

23/04/2013, 15h45
jfontaine

Il est normal que s'il y a une autre application (explorateur inclus) d'ouvert, celle ci se retrouve au premier plan puisque tu demande à Excel de se minimiser

Code:

Application.WindowState = xlMinimized

Les userforms font parties de l'application excel et donc suivent sont état
23/04/2013, 21h39
nibledispo

Uerform caché par l'explorateur windows

bonjour J.Fontaine,

je comprends bien ta réponse. En revanche je saisi mal la logique EXCEL.

En effet, que la feuille ou le classeur réduit à la portion congrue ne recouvre pas l'explorateur se conçoit bien mais que l'userform, nullement minimisé, se retrouve en arrière plan, se conçoit mal.
logiquement le dernier appelé devrait recouvrir de toute sa surface ce qui se trouve sur le bureau.

Faute de mieux, j'ai posé l'userform sur une feuille Excel vierge non minimisée.

J'aurai pourtant bien aimé savoir pour des applications futures éventuelles comment éliminer l'explorateur avec une instruction. Pour l'heure personne ne semble avoir de réponse.
J'attends encore un ou deux jours avant de clore la discussion.

Cordialement