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