Icône de ressource

Mes Comptes 2018 V3 le 24/01/2019

MJ13

XLDnaute Barbatruc
MJ13 a mis en ligne un nouveau programme :

Mes Comptes 2018 - Faites vos comptes facilement

Faites vos comptes très simplement en récupérant les données de votre compte en banque en ligne.

Il vous suffit de copier les débits et crédits de votre relevé en ligne pour connaître l’état de vos finances.

La saisie des catégories se fait une fois puis vous pourrez automatiquement remplir les catégories et sous-catégories déjà renseignées les mois d’avant.

Un bilan par tableau croisé dynamique permet de voir les dépenses et recettes par poste.
Lire la suite...
 

rasquera62

XLDnaute Nouveau
bonjour , quand je l'ouvre il me crée une erreur dans la macro , il me surligne le mot " function"

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const SWP_FRAMECHANGED = &H20
Public Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long

Public Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long

pourquoi je ne peut pas l'utiliser ?
merci
 

MJ13

XLDnaute Barbatruc
Bonjour Rasquera62

Tu dois utiliser une version d'Excel 64 bits.

Il suffit d'ajouter Ptrsafe entre Declare et Function dans le module M_Userform_Aligne_Sur_Cellule pour chaque ligne comme ici Declare PtrSafe Function


VB:
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const SWP_FRAMECHANGED = &H20

Public Declare PtrSafe Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
       
Public Declare PtrSafe Function GetWindowRect Lib "user32" _
        (ByVal hwnd As Long, lpRect As RECT) As Long
       
Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias _
        "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias _
        "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Public Declare PtrSafe Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
        ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Discussions similaires

Haut Bas