dans les déclarations de ton UserForm (au dessus de toutes les procédures), colle ceci :
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Et dans UserForm_Initialize :
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
On peut la désactiver mais pas la rendre invisible
Ajoute ceci dans ta classe:
Private
Const
CS_NOCLOSE
As
Integer
= &H200
Protected
Overrides
ReadOnly
Property
CreateParams()
As
System.Windows.Forms.CreateParams
Get
Dim
cp
As
CreateParams =
MyBase
.CreateParams
cp.ClassStyle = cp.ClassStyle
Or
CS_NOCLOSE
Return
cp
End
Get
End
Property
Kenji
Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n
Tu travaille en vba ???
Alors pourquoi t'as mis dans la catégorie vb.net ?
En passant:
Salut Mortalino
Kenji
Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n
Il y en a beaucoup qui se trompe, j'arrive à traduire maintenant
UserForm, même dans la cathégorie .net, c'est VBA ! C'est rare que ququn qui fasse du vba enploi le terme Form. (sauf nous, on s'adapte ! lol)
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Haaa, mais il avais mis ca dans le titre. Je n'y avais point fait attention.
Faudras que je m'abitue à ca. Mais ca n'empeche pas qu'il doivent poster dans la bonne catégorie.
Kenji
Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n
^^ Ouvre tes yeux, 5 messages avant celui ci je t'ai mis la réponse !!!
dans les déclarations de ton UserForm (au dessus de toutes les procédures), colle ceci :
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Et dans UserForm_Initialize :
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
Ah et tu dis l'avoir mis dans la bonne cathégorie !!
La bonne aurait été ceci : [infomsg.aspx Thèmes] / [infomsgf_VB-NET-VB-2005_40.aspx Visual Basic 6] / [infomsgt_TRUCS-ASTUCES_243.aspx LANGAGE DERIVE] / [infomsgt_TRUCS-ASTUCES_243.aspx VBA ]/ problème de fermeture de userform
@++
--Mortalino--
Le mystérieux chevalier, "Provençal,
Désolé, je ne me tromperai plus et je ferai attention.
J'ai un autre souci et si tu veux bien le lire:
Dans un formulaire, je dois recueillir et exploiter une quinzaine de réponses (combos, textbox, ... etc), et les mettre en forme dans un fichier *.doc
Question :
Comment remplir un fichier DOC avec des données Excel sans quitter le langage VBA du fichier Excel de travail ?
( le fichier doc est envoyé par la suite par mail sous Outlook)