Discussion :

[serar]

Bonjour,

Je ne comprend rien, voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
    Dim hSysMenu As Long
    Dim leHwnd As Long
 
  leHwnd = FindWindowA(vbNullString, IHM_APPORT.Caption)
  hSysMenu = GetSystemMenu(leHwnd, False)
  RemoveMenu hSysMenu, &HF010&, &H0&
 
End Sub

Sur un poste la fonction FindWindowA me renvoi l'handle de la fenetre sur l'autre il me renvoi 0.

Je ne sais pas du tous pourquoi j'ai la meme version entre les 2 postes et les même bibiothèque.

Auriez vous une idées??

D'avance merci

[serar]

Bonjour


J'utilise la fonction suivante :

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
 'Déclaration
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&
 
Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
 
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
' Fonction
Private Sub UserForm_Initialize()
    Dim hSysMenu As Long
    Dim leHwnd As Long
    leHwnd = FindWindowA(vbNullString, IHM_APPORT.Caption)
    hSysMenu = GetSystemMenu(leHwnd, False)
    RemoveMenu hSysMenu, &HF010&, &H0&
End Sub

Je cherche à bloquer l'affichage de ma fenetre au centre de l'écran, sur mon poste cela fonctionne mais pas sur un autre
poste quasiment identique l'UHM ne se bloque pas. Je ne comprend pas d'ou cela peux venir j'ai vérifier les bibiothques mais elle sont identique.

Le problème est que sur l'autre poste la fonction "FindWindowA(vbNullString, IHM_APPORT.Caption)" renvoi zéro, pourquoi ... je sais pas...

La je cale.

Si des personnes peuvent m'aider se serait sympa, je peux vous envoyer le prog si vous souhaitez.

D'avance merci.

Je ne sais pas d'ou cela peux venir avez vous des idées.

Cdlt.

[zyhack]

Bonjour

Je n'ai pas spécialement d'idée pour l'instant mais peut-tu lire cet article de ouskel'n'or

Baliser le code -> Sélection du code + 1 clic sur # en mode d'édition

ce sera déjà plus clair.

[ucfoutu]

Bonsoir,

je ne sais pas ce que tu as finalement fabriqué...

Une suggestion, donc :

En lieu et place de la fonction FindWindowA :

Donne le focus à ta fenêtre (ton UserForm) et utilise la fonction GetActiveWindow

ainsi :

dans la partie générale :

Code :

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

Public Declare Function GetActiveWindow Lib "user32" () As Long

et dans l'évènement Initialize :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    Dim hSysMenu As Long
    Dim leHwnd As Long
    leHwnd = GetActiveWindow
    hSysMenu = GetSystemMenu(leHwnd, False)
    RemoveMenu hSysMenu, &HF010&, &H0&
End Sub

Essaye (je n'ai pas mon portable avec Excel sous la main)...
Et laisse ton ScreenUpdating à True pendant cette opération, hein ...
et dis-nous ...

Edit : je viens en outre de tester chez mes voisns et avec différentes versions d'Excel le tout 1er code (avec FindWindowA) ===>> aucun souci !

J'en viens à me demander si ta fenêtre active (le UserForm) est bien celle dont le nom est IHM_APPORT (puisque tu passes comme argument IHM_APPORTCaption) ! D'ailleurs, à ce propos, tu ne commetrais pas d'erreur en remplaçant IHM_APPORT.Caption par Me.Caption !!!
Si tu crois que tu vas pouvoir agir sur une fenêtre non active, c'est là ton erreur
Conclusion : faut pas utiliser la vitesse supérieure si l'on ne maitrise pas celle inférieure ...