Discussion :

[patanar]

Bonjour,

Ma base en ouverture autoexec, ne se lance plus, certainement suite à une maj access, car cette application fonctionne correctement depuis 1 an.

En pièce jointe, le message au lancement et ci-dessous la partie de code qui "coince".

Merci de votre aide à un débutant, car je ne comprend pas vraiment ce qu'il faut corriger.

Code :

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

1
2
3
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

[marsouin_89]

Bonjour,

Le sujet est abordé ici par Thierry Gasperment.

Cordialement

Christophe

[LedZeppII]

Bonjour,

L'image du message d'erreur me fait penser à ce qui décrit ici : Développer avec Office 64 bits > IV. Les API et Office 64 bits

Ton code déclare une fonction (ShellExecute) de l'API Windows.
Cette déclaration est valable si ta base est ouverte par un ACCESS.EXE 32 bits.
Elle ne l'est plus si ACCESS.EXE est 64 bits.

La solution est de faire une double déclaration en mettant en oeuvre la compilation conditionnelle.
A la lecture de l'article auquel je me réfère, ça donnerait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#If VBA7 Then
    ' Déclaration pour Access 64 bits
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    ' Déclaration pour Access 32 bits
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Remarque : J'ai trouvé la déclaration 64 bits de ShellExecute dans le fichier Win32API_PtrSafe.txt, cité dans l'article, et que j'ai téléchargé.

A+

[patanar]

Merci à tous les 2, la lecture des 2 articles m'a donné la solution pour régler le problème.

tout est ok

merci