Erreur PTRSAFE + Declare

Fermé
ITWTOM Messages postés 4 Date d'inscription jeudi 19 mai 2022 Statut Membre Dernière intervention 20 mai 2022 - 19 mai 2022 à 14:48
f894009 Messages postés 17197 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 juillet 2024 - 21 mai 2022 à 06:50
Bonjour à tous,
Je suis assez désemparé face à mon souci...

J'ai changé de pc et je n'arrive plus à ouvrir mon fichier access sur lequel je dois travailler
En effet voici le message d'erreur :




Malheureusement je ne suis pas du tout programmateur et je suis donc dans une impasse.

Un idée de comment je pourrais m'en sortir?

Merci d'avance et merci beaucoup !

5 réponses

f894009 Messages postés 17197 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 juillet 2024 1 708
Modifié le 19 mai 2022 à 17:15
Bonjour,

J'ai changé de pc et je n'arrive plus à ouvrir mon fichier
A priori vous etes passe d'un office 32 bits a un office 64 bits et vous utilisez des API Windows dans le code de votre base Access.
Vous devez chercher le genre de lignes de code ci-dessous.

' --- DECLARATION API WINDOWS PtrSafe, LongPtr
#If VBA7 Then       '64bits
    Private Declare PtrSafe Function FindWindowA Lib "User32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    
    Private Declare PtrSafe Function GetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As LongPtr
     
    Private Declare PtrSafe Function SetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr
#Else
    Private Declare Function FindWindowA Lib "User32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
    Private Declare Function GetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
     
    Private Declare Function SetWindowLongA Lib "User32" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If

Pour Ouvrir la fenetre VBA,
lancez votre fichier base
Appuyez sur ctrl+f11
Double cliquez sur un module ou un formulaire
Menu Ruban, click sur la paire de jumelle et faire comme sur cette image





sur cette image module en cours est selectionne, il faut projet en cours Access joue des tours avec les clicks decoupage image

Si vous ne connaissez vraiment a la programmation VBA, pouvez vous mettre votre fichier a dispo

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ITWTOM Messages postés 4 Date d'inscription jeudi 19 mai 2022 Statut Membre Dernière intervention 20 mai 2022
19 mai 2022 à 18:37
Bonjour,

Merci pour votre réponse !
Effectivement j'arrive à trouver les codes en question, il sont rouges

Par exemple celui ci :
Declare Function IsZoomed Lib "User32" (ByVal Hwnd As Long) As Long
Private Declare Function apiShowWindow Lib "User32" _
Alias "ShowWindow" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long


Ou celui ci :

Declare Function GetActiveWindow Lib "User32" () As Long
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Sub GetWindowRect Lib "User32" (ByVal Hwnd As Long, _
lpRect As RECT_Type)
Declare Function GetDC Lib "User32" (ByVal Hwnd As Long) As Long
Declare Function CreateCompatibleDC Lib "Gdi32" (ByVal hdc As Long) _
As Long
Declare Function CreateCompatibleBitmap Lib "Gdi32" (ByVal hdc _
As Long, ByVal nWidth As Long, _
ByVal nHeight As Long) As Long
Declare Function SelectObject Lib "Gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Declare Function BitBlt Lib "Gdi32" (ByVal hDestDC As Long, _
ByVal X As Long, ByVal Y _
As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal XSrc As Long, _
ByVal YSrc As Long, _
ByVal dwRop As Long) As Long
Declare Function OpenClipboard Lib "User32" (ByVal Hwnd As Long) As Long
Declare Function EmptyClipboard Lib "User32" () As Long
Declare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, _
ByVal hMem As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function ReleaseDC Lib "User32" (ByVal Hwnd As Long, _
ByVal hdc As Long) As Long
Declare Function DeleteDC Lib "Gdi32" (ByVal hdc As Long) As Long

Que dois-je modifier du coup?
f894009 Messages postés 17197 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 juillet 2024 1 708
Modifié le 20 mai 2022 à 08:28
Bonjour,

Vous avez un exemple dans le code que je vous ai mis a dispo.
Mettre PtrSafe entre Declare et Function
Remplacer
As Long
par
As LongPtr
apres la parentese ")" de fin

ex pour la dernire API:
Declare PtrSafe Function DeleteDC Lib "Gdi32" (ByVal hdc As Long) As  LongPtr
ITWTOM Messages postés 4 Date d'inscription jeudi 19 mai 2022 Statut Membre Dernière intervention 20 mai 2022
20 mai 2022 à 09:15
Bonjour
Merci !
J'ai inséré PtrSafe après chaque Declare
Pareil pour le LongPtrSafe.

Par contre, dois-je aussi mettre le LongPtrSafe aussi dans ce cas là vu qu' il ny a pas de parenthese :
Declare PtrSafe Function GetActiveWindow Lib "User32" () As Long
f894009 Messages postés 17197 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 juillet 2024 1 708
21 mai 2022 à 06:50
Bonjour,

Oui, ce qui est entre parenteses ce sont des paramètres passes a la fonction. S'il y en a pas il faut modifier de meme As Long qui est le type de retour de la fonction. Dans la plupart des cas c'est un entier long
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ITWTOM Messages postés 4 Date d'inscription jeudi 19 mai 2022 Statut Membre Dernière intervention 20 mai 2022
20 mai 2022 à 09:30