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. |
A voir également:
- Type défini par l'utilisateur non défini
- Clear type - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Changer nom utilisateur windows 10 - Guide
- Utilisateur facebook - Forum Facebook
- Utilisateur Facebook ✓ - Forum Facebook Messenger
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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.
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.
Les type sont déjà en long, je ne vois pas de quel type il s'agit ?
Je suis novice en ce qui concerne les Macro trop complexe.
Tu es novice et tu as écrit cette macro relativement complexe?