Discussion :

[ITWTOM]

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 !

[Jean-Philippe André]

Salut,

tu peux lire cette documentation sur le sujet, les exemples de syntaxes sont simples à adapter
https://arkham46.developpez.com/arti...ice/vba64bits/

[ITWTOM]

Salut,
Merci pour ta réponse rapide !

Malheureusement j'ai tout lu mais c'est du chinois pour moi... je ne m'y connais vraiment pas...
J'ai réussi à ouvrir la base de donnée, et là 21 fenêtres de codes s'ouvrent.
J'ai tenté de rajouter le PtrSafe et de remplacer le Long mais forcement rien n'y fait.

Suis perdu perdu...

[Jean-Philippe André]

salut,

le fichier access, si ce n'est pas toi qui l'a codé, qui l'a fait ? qui fait le support de ton application ? l'as tu contacté ?

[ITWTOM]

C'est une société Lithuanienne qui l'a créé mais qui n'existe plus malheureusement

[Jean-Philippe André]

Tu choisis avec soin des partenaires

bon dans ce cas, peux tu nous montrer les lignes de Declare qui posent soucis, parce que cela ne suffira pas

[ITWTOM]

Héhé, il sont gentils pourtant

Alors j'ai du rouge ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
  
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
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

Ensuite Ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Compare Database


Private Declare Function GetSystemMetrics Lib "User32" (ByVal Index As Long) As Long


Private Const SM_CXSCREEN As Long = 0
Private Const SM_CYSCREEN As Long = 1

Puis ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Compare Database
Option Explicit
Type RECT_Type
left As Long
top As Long
right As Long
bottom As Long
End Type
'The following declare statements are case sensitive.
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 _

Après il y a d'autres endroits encore... mais j'imagine que c'est sur le même principe

[tee_grandbois]

bonjour,
mettre ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Declare PtrSafe Function IsZoomed Lib "user32" Alias "IsZoomed" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long

à la place de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
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

idem pour celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare PtrSafe Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

à la place de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function GetSystemMetrics Lib "User32" (ByVal Index As Long) As Long

et celui-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Declare PtrSafe Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As LongPtr
Declare PtrSafe Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As LongPtr
Declare PtrSafe Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As LongPtr, lpRect As RECT) As Long
Declare PtrSafe Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As LongPtr) As LongPtr
Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC" (ByVal hdc As LongPtr) As LongPtr
Declare PtrSafe Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As LongPtr
Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" Alias "CreateCompatibleBitmap" (ByVal hdc As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As LongPtr

à la place de (attention au code incomplet pour les 2 dernières API):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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 _

Après il y a d'autres endroits encore... mais j'imagine que c'est sur le même principe

certes, mais il faudra quand même poster tout le code, sauf si tu fais toi-même les recherches dans ce fichier fourni pas Microsoft:Win32API_PtrSafe.zip
il suffit de faire une recherche sur le nom de l'API et copier le code trouvé

[ITWTOM]

BOnjour,

TOUT SIMPLEMENT GENIAL !!!

Ca refonctionne correctement !

Merci beaucoup en tout cas, c'est peut être pas grand chose pour vous mais pour moi c'est énorme !
Bonne journée !

Merci encore !

[tee_grandbois]

bonjour,
si cela fonctionne, n'oublie pas de clore la discussion (bouton en bas du post)