PB Msgbox

sacapatates · 10 Août 2009

Bonjour,

Mon application cache excel au démarrage avec application.visible= false.

J'ai plusieurs userforms avec des zones de saisi et des contrôles qui lance des msgbox quand il y a des erreurs de saisi par exemple.

Mon problème est que quand le msgbox se lance, l'userform se cache.
Et quand je ferme le msgbox, mon userform réapparait, mais je voudrais trouver un moyen pour que le userform reste affiché.

Sachant que je n'ai pas ce problème si je ne cache pas excel.

Merci.

sacapatates · 10 Août 2009

Re : PB Msgbox

Je viens de recréer un classeur pour tester, à priori ce n'est pas le application.visible= false qui cause le problème.

Dull · 10 Août 2009

Re : PB Msgbox

Salut sacapatates, Jean-Marcel, le Forum,

As tu un

Code:

Me.Hide[COLOR=Green] ' ou UserForm1.Hide[/COLOR]

avant

Code:

MsgBox "......."

et un

Code:

UserForm1.Show

juste après

Si c'est le cas supprimes les et ça devrait aller

Bonne Journée

sacapatates · 10 Août 2009

Re : PB Msgbox

@Jean-marcel: non je n ai pas mis de
application.screenupdating=false
Je n ai pas le droit de faire circuler le fichier excel...... même si j épure ....

@dull: non plus ^^

Merci

sacapatates · 10 Août 2009

Re : PB Msgbox

J'ai aussi dans mes userform qui permet de réafficher/cacher excel à tout moment

Code:

Dim hwnd As Long
If voirexcel = True Then 'voirexcel est un boolean declaré en global
voirexcel = False
Application.Visible = False
Else
voirexcel = True
Application.Visible = True

hwnd = FindWindow(vbNullString, Me.Caption) 'reduire l'userform pour l avior en bas a gauche
ShowWindow hwnd, 2
End If

J'ai aussi des déclaration en début de chaque userform qui permet de réduire le userform

Code:

Private Declare Function SetWindowLong& Lib "User32" Alias "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function ShowWindow& Lib "User32" (ByVal hwnd&, ByVal nCmdShow&)


Private Declare Function FindWindowA& Lib "User32" _
    (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" _
    (ByVal hwnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" _
    (ByVal hwnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" _
    (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)

Private Sub UserForm_Initialize()
    Dim hwnd As Long
    
    hwnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000
End Sub
 
 
Private Sub UserForm_Activate()
    Dim hwnd As Long
    
    hwnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hwnd, 1
End Sub

Est ce que ca peut etre la cause de mon souci ?

merci

PB Msgbox

sacapatates

Guest

sacapatates

Guest

Dull

XLDnaute Barbatruc

sacapatates

Guest

sacapatates

Guest

Discussions similaires

PB Msgbox

sacapatates

Guest

sacapatates

Guest

Dull

XLDnaute Barbatruc

sacapatates

Guest

sacapatates

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency