Bonjour
 
 
J'utilise la fonction suivante :  
 
'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.