Discussion :

[nibledispo]

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.

[jfontaine]

Bonjour,

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

[nibledispo]

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 :

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

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.

[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 :

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

Application.WindowState = xlMinimized

Les userforms font parties de l'application excel et donc suivent sont état

[nibledispo]

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