Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel userform en arrière plan

userform en arrière plan

9 réponses
Avatar
-- RG --
bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
As-tu essayé d'inter-charger la position des lignes de code comme ceci :

'-------------------------
Private Sub Workbook_Open()
UserForm1.Show
Application.WindowState = xlMinimized
End Sub
'-------------------------



"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René
Avatar
zOrg2net
Bonjour,

Une petite idée.... Mets 2 boutons de commande sur ton formulaire, nomme les
MasquerExcel et MontrerExcel puis colle les codes ci-dessous dans un module:

Sub MasquerExcel_click()
Application.Visible = False
MasquerExcel.Visible = False
MontrerExcel.Visible = True
End Sub
_____________________________
Sub MontrerExcel_click()
Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False
End Sub

Ils seront appelés par les différents boutons, tu masques et affiches Excel
à volonté et ton formulaire sera toujours visible.
Noublie pas de mettre dans ton WorkBook

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Grand mercis à


zOrg2net
7OuNet
La contrepèterie, c'est l'art de décaler les sons que débite notre bouche.


"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere
plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René



Avatar
-- RG --
bonjour MichDenis
ce n'est pas bon car le feuille active reste visible à l'écran
elle sera mis en réduit aprés la fermeture du userform

merci pour ta réponse
rené


As-tu essayé d'inter-charger la position des lignes de code comme ceci :

'-------------------------
Private Sub Workbook_Open()
UserForm1.Show
Application.WindowState = xlMinimized
End Sub
'-------------------------



"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René





Avatar
zOrg2net
userform suite... mets tes boutons l'un sur l'autre, car ils se masquent et
s'affichent mutuellement.

zOrg2net
7OuNet

"zOrg2net" a écrit dans le message de news:
45d815cb$0$5081$
Bonjour,

Une petite idée.... Mets 2 boutons de commande sur ton formulaire, nomme
les MasquerExcel et MontrerExcel puis colle les codes ci-dessous dans un
module:

Sub MasquerExcel_click()
Application.Visible = False
MasquerExcel.Visible = False
MontrerExcel.Visible = True
End Sub
_____________________________
Sub MontrerExcel_click()
Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False
End Sub

Ils seront appelés par les différents boutons, tu masques et affiches
Excel à volonté et ton formulaire sera toujours visible.
Noublie pas de mettre dans ton WorkBook

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Grand mercis à


zOrg2net
7OuNet
La contrepèterie, c'est l'art de décaler les sons que débite notre bouche.


"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere
plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René







Avatar
-- RG --
bonjour zOrg2net
je ne veux pas de bouton, car mon appli est utilisée par plusieurs PC (en
réseau)
peut être que je me suis mal exprimé, c'est uniquement si d'autres appli
sont déjà active Ex word en plein écran, Internet etc..que mon userform est
mis en arrière plan
il faut cliquer sur le userform si au moins une partie est visible, ou
réduire manuellement les autres appli actives pour le voir en entier. J'ai
bien une idée
peut être réduire les autres appli actives avant l'ouverture de mon
userform, mais je ne connais pas la ligne de commande à ajouter dans mon code

Private Sub Workbook_Open()
'commande pour réduire les apllis
????????????????????????????? ligne pour réduire les applis actives
' réduit la feuille excel
Application.WindowState = xlMinimized
' affiche mon userform
frmDI.Show
??????????????????????????? ligne pour restaurer les autres applis avant de
quitter
End Sub

merci pour ta réponse
rené


Bonjour,

Une petite idée.... Mets 2 boutons de commande sur ton formulaire, nomme les
MasquerExcel et MontrerExcel puis colle les codes ci-dessous dans un module:

Sub MasquerExcel_click()
Application.Visible = False
MasquerExcel.Visible = False
MontrerExcel.Visible = True
End Sub
_____________________________
Sub MontrerExcel_click()
Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False
End Sub

Ils seront appelés par les différents boutons, tu masques et affiches Excel
à volonté et ton formulaire sera toujours visible.
Noublie pas de mettre dans ton WorkBook

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Grand mercis à


zOrg2net
7OuNet
La contrepèterie, c'est l'art de décaler les sons que débite notre bouche.


"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere
plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René








Avatar
anonymousA
Bonjour,

peux-tu mettre ton fichier sur cjoint ?

A+


bonjour zOrg2net
je ne veux pas de bouton, car mon appli est utilisée par plusieurs PC (en
réseau)
peut être que je me suis mal exprimé, c'est uniquement si d'autres appli
sont déjà active Ex word en plein écran, Internet etc..que mon userform est
mis en arrière plan
il faut cliquer sur le userform si au moins une partie est visible, ou
réduire manuellement les autres appli actives pour le voir en entier. J'ai
bien une idée
peut être réduire les autres appli actives avant l'ouverture de mon
userform, mais je ne connais pas la ligne de commande à ajouter dans mon code

Private Sub Workbook_Open()
'commande pour réduire les apllis
????????????????????????????? ligne pour réduire les applis actives
' réduit la feuille excel
Application.WindowState = xlMinimized
' affiche mon userform
frmDI.Show
??????????????????????????? ligne pour restaurer les autres applis avant de
quitter
End Sub

merci pour ta réponse
rené


Bonjour,

Une petite idée.... Mets 2 boutons de commande sur ton formulaire, nomme les
MasquerExcel et MontrerExcel puis colle les codes ci-dessous dans un module:

Sub MasquerExcel_click()
Application.Visible = False
MasquerExcel.Visible = False
MontrerExcel.Visible = True
End Sub
_____________________________
Sub MontrerExcel_click()
Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False
End Sub

Ils seront appelés par les différents boutons, tu masques et affiches Excel
à volonté et ton formulaire sera toujours visible.
Noublie pas de mettre dans ton WorkBook

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Grand mercis à


zOrg2net
7OuNet
La contrepèterie, c'est l'art de décaler les sons que débite notre bouche.


"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere
plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René









Avatar
MichDenis
Si tu as une fenêtre de Word plein écran, comment tu procèdes pour ouvrir ton fichier ?

Donne un exemple concret de ou des applications ouvertes et des manipulations que tu
fais pour ouvrir ton fichier pour obtenir ton résultat insatisfaisant ...
A moins que ce ne soit une devinette...!



"-- RG --" a écrit dans le message de news:

bonjour MichDenis
ce n'est pas bon car le feuille active reste visible à l'écran
elle sera mis en réduit aprés la fermeture du userform

merci pour ta réponse
rené


As-tu essayé d'inter-charger la position des lignes de code comme ceci :

'-------------------------
Private Sub Workbook_Open()
UserForm1.Show
Application.WindowState = xlMinimized
End Sub
'-------------------------



"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René





Avatar
-- RG --
Michel,

C'est tout bon
depuis le temps que je cherche la solution
vraiment les newsgroups C super

L'INFORMATIQUE
C facile quand on C ...!

Et encore merci
René



Si tu as une fenêtre de Word plein écran, comment tu procèdes pour ouvrir ton fichier ?

Donne un exemple concret de ou des applications ouvertes et des manipulations que tu
fais pour ouvrir ton fichier pour obtenir ton résultat insatisfaisant ...
A moins que ce ne soit une devinette...!



"-- RG --" a écrit dans le message de news:

bonjour MichDenis
ce n'est pas bon car le feuille active reste visible à l'écran
elle sera mis en réduit aprés la fermeture du userform

merci pour ta réponse
rené


As-tu essayé d'inter-charger la position des lignes de code comme ceci :

'-------------------------
Private Sub Workbook_Open()
UserForm1.Show
Application.WindowState = xlMinimized
End Sub
'-------------------------



"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René










Avatar
-- RG --
rebonjour,
MichDenis vient de me fournir le code

Pour les autres voici le code à mettre dans le userform
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 Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
SetWindowPos FindWindowA("ThunderDFrame", Me.Caption), _
-1, 0, 0, 0, 0, 3
End Sub

L'INFORMATIQUE
C facile quand on C

Merci à tous
René


Bonjour,

peux-tu mettre ton fichier sur cjoint ?

A+


bonjour zOrg2net
je ne veux pas de bouton, car mon appli est utilisée par plusieurs PC (en
réseau)
peut être que je me suis mal exprimé, c'est uniquement si d'autres appli
sont déjà active Ex word en plein écran, Internet etc..que mon userform est
mis en arrière plan
il faut cliquer sur le userform si au moins une partie est visible, ou
réduire manuellement les autres appli actives pour le voir en entier. J'ai
bien une idée
peut être réduire les autres appli actives avant l'ouverture de mon
userform, mais je ne connais pas la ligne de commande à ajouter dans mon code

Private Sub Workbook_Open()
'commande pour réduire les apllis
????????????????????????????? ligne pour réduire les applis actives
' réduit la feuille excel
Application.WindowState = xlMinimized
' affiche mon userform
frmDI.Show
??????????????????????????? ligne pour restaurer les autres applis avant de
quitter
End Sub

merci pour ta réponse
rené


Bonjour,

Une petite idée.... Mets 2 boutons de commande sur ton formulaire, nomme les
MasquerExcel et MontrerExcel puis colle les codes ci-dessous dans un module:

Sub MasquerExcel_click()
Application.Visible = False
MasquerExcel.Visible = False
MontrerExcel.Visible = True
End Sub
_____________________________
Sub MontrerExcel_click()
Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False
End Sub

Ils seront appelés par les différents boutons, tu masques et affiches Excel
à volonté et ton formulaire sera toujours visible.
Noublie pas de mettre dans ton WorkBook

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Grand mercis à


zOrg2net
7OuNet
La contrepèterie, c'est l'art de décaler les sons que débite notre bouche.


"-- RG --" a écrit dans le message de news:

bonjour,
J'ai une application Excel qui ouvre automatiquement au démarrage
un userform 'frmDI' ,le problème est que ce userform est mis en arriere
plan
si
d'autres fenetres sont ouvertes, comment faire pour qu'il soit devant au
lancement de l'appli ?.

J'ouvre mon userform avec le code suivant :
Private Sub Workbook_Open()
' ----------- Pour ne pas avoir les feuilles à l'écran
Application.WindowState = xlMinimized
' --- Ouverture de mon userform
frmDI.Show
End Sub

d'avance merci pour les réponses
René