Type defini par l'utilisateur non defini
Résolu
Thierry
-
thierry -
thierry -
Bonjour Tout le monde,
Quelqu'un aurait la solution je suis bloqué
L'erreur se situe sur le premier paragraphe, merci.
Quelqu'un aurait la solution je suis bloqué
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringPtr, ByVal lpWindowName As StringPtr) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long
Private Sub UserForm_Initialize()
On Error Resume Next
Dim hWnd As Long, Style As Long
hWnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
End Sub
L'erreur se situe sur le premier paragraphe, merci.
Configuration: Windows / Chrome 96.0.4664.93
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
la première chose, c'est de déterminer de quel type il s'agit.
remplace les types par long, pour détecter lequel pose problème. -
Oui, mais j'apprend très vite :-), du coup entre temps j'ai réussi à résoudre le problème, j'ai déterminé les lignes non essentiels, j'ai supprimé les composants et plus de problème,
merci beaucoup pour ton aide et bonne soirée.
