Bonjour,
j'ai une application excel vba avec userfom, qui fonctionne sur le système 32 bits quand je l'installe sur mon nouvel ordi, j'ai le message suivant :
Le code contenu dans ce projet doit être mis à jour pour pourvoir être utilisé sur les systèmes 64 bits. Vérifiez et mettez à jour les instructions 'Declare puis marquez les avec l'attribut PtrSafe'.
Merci d'avance pour la solution à ce problème
cdlt
Désolé je suis nouveau et ne maîtrise pas encore l'appli. Je vous mets les deux parties qui posent problèmes :
' ***********************************************
'Dans la partie Déclaration de la Form :
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$, 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&)
Dim change_nom_prenom(1) As String
'********************************************************
'Written: February 14, 2011
'Author: Leith Ross
'
'NOTE: This code should be executed within the UserForm_Activate() event.
Private Declare Function GetForegroundWindow Lib "User32.dll" () As Long
Private Declare Function GetWindowLong _
Lib "User32.dll" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) _
As Long
Private Declare Function SetWindowLong _
Lib "User32.dll" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Private Const WS_THICKFRAME As Long = &H40000
Private Const GWL_STYLE As Long = -16
Merci pour les solutions que vous pourrez m'apporter