Discussion :

[tee_grandbois]

à tous les 2, ci-joint le nouveau code à remplacer par l'ancien dans le module mLoufab:

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
#If VBA7 Then
Private 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
Private 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
Public Sub Ouvrir_fichier(Chemin As String)
 
'Ouvrir, avec le pgm associé, le fichier dont le chemin est passé en paramètre
ShellExecute Application.hWndAccessApp, "open", Chemin, "", "", 1
 
End Sub

[ClaudeLELOUP]

Merci Guy,

J'ai corrigé le tutoriel en ligne.
La db corrigée est ici : https://claudeleloup.developpez.com/...n/CaveAvin.zip

[marcdels]

Bonjour

J'ai modifié le VBA incriminé pour la solution proposée et le résultat est identique.
Je vous joint les messages d'erreurs affichés :
en 1 :


en 2 :


en 3 : voir le fichier Word joint

Merci encore et d'avance pour la suite.
Cordialement
marcdels

[tee_grandbois]

bonjour,
cela n'a (peut-être) rien à voir avec le nouveau code fourni car le code qui génère l'erreur est un autre module (mchoisirFichier: et sur quelle instruction précise l'erreur
se produit?).
Malheureusement, je n'ai pas la version 64 bits, je ne peux plus te venir en aide à ce niveau ...

[ClaudeLELOUP]

Bonjour à tous,

Marc, j'ai contacté un ami (merci Denis !) qui m'écrit ceci :



« Sur les nouvelles versions (depuis 2010 je crois) la bibliothèque DAO est intégrée dans la librairie "Microsoft Office xx.x Access database engine Object Library"

Cette librairie est cochée par défaut quand tu crées une nouvelle base :



Normalement tu n'as pas à t'en soucier. Pour les anciennes bases, il faut juste décocher ton ancienne librairie "Microsoft DAO xx.x object librairy" pour éviter les conflits et au besoin cocher "Microsoft Office xx.x Access database engine Object Library". »

Donc :
[Alt + F11]
onglet Outils/Références...
tu décoches Microsoft DAO 3.6...
tu actionnes l'ascenseur pour trouver et cocher Microsoft Office xx.x Access database engine Object Library

Je croise les doigts.

[marcdels]

Bonjour à tous

Merci Claude pour cette solution mais elle n'a pas résolu le problème.

Finalement, comme Caveavin fonctionne sur mon ordi avec Office 2013, j'ai acheté une licence Office 2013 (pas chère) que j'ai installée à la place du 2016. Et là jackpot !! ça marche.

J'ai un seul souci c'est sur l'affichage de fBouteilles qui est tronqué : il manque le bas de la partie haute du formulaire avec entre autres l'absence des boutons et du prix du vin.
Mais c'est peut-être dû à la définition de l'ordi :
Sur mon ordi : 1600 x 900
Sur l'ordi de mon ami : 1366 x 768 et c'est le maxi possible.
Sinon est-il possible de masquer les commander en haut (comme sur Excel) ?

Ci-dessous photo de mon ordi (le cadre noir correspond à la partie non affichée sur l'ordi de mon ami):


et la photo sur l'ordi de mon copain :


Cordialement
Et encore merci aux différents contributeurs.
marcdels