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
MichDenis
Au début du module du premier UserForm :
Déclaration des API dans le haut du module
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
"Pierre Archambault" a écrit dans le message de news: AoHxj.25$ Bonjour à tous,
Je veux d'abord remercier tous ceux qui ont bien voulu m'éclairer de leur précieux conseils.
J'aurais besoin de faire en sorte qu'un Userform reste à l'avant-plan jusqu'à ce que l'on clique sur le bouton "Quitter".
Quand je dis à l'avant-plan j'entends devant toute autre application qu'elle ait été lancée avant ou après Excel.
Merci à l'avance.
Pierre
Au début du module du premier UserForm :
Déclaration des API dans le haut du module
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
"Pierre Archambault" <pierre.archambault@videotron.ca> a écrit dans le message de news:
AoHxj.25$hj.20516@wagner.videotron.net...
Bonjour à tous,
Je veux d'abord remercier tous ceux qui ont bien voulu m'éclairer de leur
précieux conseils.
J'aurais besoin de faire en sorte qu'un Userform reste à l'avant-plan
jusqu'à ce que l'on clique sur le bouton "Quitter".
Quand je dis à l'avant-plan j'entends devant toute autre application qu'elle
ait été lancée avant ou après Excel.
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
"Pierre Archambault" a écrit dans le message de news: AoHxj.25$ Bonjour à tous,
Je veux d'abord remercier tous ceux qui ont bien voulu m'éclairer de leur précieux conseils.
J'aurais besoin de faire en sorte qu'un Userform reste à l'avant-plan jusqu'à ce que l'on clique sur le bouton "Quitter".
Quand je dis à l'avant-plan j'entends devant toute autre application qu'elle ait été lancée avant ou après Excel.
Merci à l'avance.
Pierre
pierre.archambault
Salut MichDenis,
Merveilleux, ça fonctionne très bien. C'est exactement ce dont j'avais besoin.
Merci encore.
Pierre
On 27 fév, 19:12, "MichDenis" wrote:
Au début du module du premier UserForm :
Déclaration des API dans le haut du module
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
"Pierre Archambault" a écrit dans le m essage de news: AoHxj.25$ Bonjour à tous,
Je veux d'abord remercier tous ceux qui ont bien voulu m'éclairer de leu r précieux conseils.
J'aurais besoin de faire en sorte qu'un Userform reste à l'avant-plan jusqu'à ce que l'on clique sur le bouton "Quitter".
Quand je dis à l'avant-plan j'entends devant toute autre application qu' elle ait été lancée avant ou après Excel.
Merci à l'avance.
Pierre
Salut MichDenis,
Merveilleux, ça fonctionne très bien. C'est exactement ce dont j'avais
besoin.
Merci encore.
Pierre
On 27 fév, 19:12, "MichDenis" <michde...@hotmail.com> wrote:
Au début du module du premier UserForm :
Déclaration des API dans le haut du module
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
"Pierre Archambault" <pierre.archamba...@videotron.ca> a écrit dans le m essage de news:
AoHxj.25$hj.20...@wagner.videotron.net...
Bonjour à tous,
Je veux d'abord remercier tous ceux qui ont bien voulu m'éclairer de leu r
précieux conseils.
J'aurais besoin de faire en sorte qu'un Userform reste à l'avant-plan
jusqu'à ce que l'on clique sur le bouton "Quitter".
Quand je dis à l'avant-plan j'entends devant toute autre application qu' elle
ait été lancée avant ou après Excel.
Merveilleux, ça fonctionne très bien. C'est exactement ce dont j'avais besoin.
Merci encore.
Pierre
On 27 fév, 19:12, "MichDenis" wrote:
Au début du module du premier UserForm :
Déclaration des API dans le haut du module
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
"Pierre Archambault" a écrit dans le m essage de news: AoHxj.25$ Bonjour à tous,
Je veux d'abord remercier tous ceux qui ont bien voulu m'éclairer de leu r précieux conseils.
J'aurais besoin de faire en sorte qu'un Userform reste à l'avant-plan jusqu'à ce que l'on clique sur le bouton "Quitter".
Quand je dis à l'avant-plan j'entends devant toute autre application qu' elle ait été lancée avant ou après Excel.