Discussion :

[marcdels]

A chaque fois que j'ai téléchargé l'application je n'ai jamais vu "In vino veritas" sur le Menu.
C'est pour moi une découverte (je me demandais d'ailleurs à quoi servait cette image ainsi que "Glou glou")
Bizarre

J'utilise bien le lien du tutoriel :
http://claudeleloup.developpez.com/t...n/CaveAvin.zip (10 608 ko).

[ClaudeLELOUP]

J'utilise bien le lien du tutoriel :

C'est donc en ordre, maintenant ?

[marcdels]

Le lien pour les listes est bien revenu mais je n'ai pas "In Vino Veritas" alors que la photo InVino est bien dans le dossier Images (voir photo jointe)



Comment puis-je faire pour déplacer le fichier + images de mon ordi vers Google Drive ?

[marcdels]

Je ne me connaissais pas cette capacité à créer !!
Je viens de réussir à :
- insérer in vino veritas dans le menu (en insérant un logo)
- insérer l'image Google dans fBouteilles (car elle ne s'affichait pas) par les propriétés du bouton Google : il y avait "aucune" dans image
- transférer le fichier et le dossier images dans google drive

Et çà fonctionne

Merci encore pour ta patience

[marcdels]

Bonjour Claude

Je reviens vers toi après 4 années d'utilisation de CaveAvin sans problème.
Je l'ai installé sur l'ordi d'un ami et ça fonctionne bien mais il a été obligé de changer d'ordinateur et ça ne fonctionne plus sur le nouveau.

Ancien : Office Pro+ 2016 en 64 bits
Nouveau : Office Pro+ 2016 en 64 bits

Problème :
lorsqu'on clique sur les 3 icones de fMenu rien ne se passe
et lorsqu'on clique sur fBouteilles dans la colonne de gauche on a le message ci-dessous :


Je ne sais pas si tu auras le temps de te pencher sur cette anomalie compte tenu de ton activité débordante.
Bien cordialement
marcdels

[ClaudeLELOUP]

Bonjour Marcel,

Je ne sais pas si tu auras le temps de te pencher sur cette anomalie compte tenu de ton activité débordante.

Je suis désolé et ce n'est pas une question de temps ! Je ne dispose pas des versions que tu mentionnes (ni l'ancienne, ni la nouvelle... si peu différentes !!).

J'espère qu'un autre forumeur plus dans le vent prendra le relai...

Bonne chance.

[marcdels]

Merci encore Claude pour avoir pris le temps de me répondre et pour tout ce que tu as fait.

[Dermochelys]

Bonjour Marcdels,

Tout d'abord chapeau à ClaudeLeloup et à votre collaboration! Un joli résultat bien expliqué!!

@Marcdels: J'ai téléchargé la DB, disponible sur le tutoriel, sur un PC qui a les mêmes caractéristiques que celui de ton ami (et sur lequel je travaille avec Access), et tous les boutons du menu fonctionnent bien. De même en cliquant directement sur le formulaire (dans la colonne de gauche, comme tu dis), tout se passe bien.

Je ne vois donc pas trop ce qui coince sauf peut-être des choses à aller cocher dans les extensions utiles à Access sur le nouvel ordinateur de ton ami?

[ClaudeLELOUP]

Bonjour Yves,

Merci cher compatriote pour le dépannage !

[tee_grandbois]

bonjour,

Problème :
lorsqu'on clique sur les 3 icones de fMenu rien ne se passe

peut-être une piste: est-ce que la base ne serait pas désactivée ?



il faut cliquer sur le bouton pour activer les macros et le code

[marcdels]

Bonjour

Merci à Dermochelys et à tee_grandbois pour s'être penchés sur mon problème (ou plutôt celui de mon ami !!)

Pour tee_grandbois : la base a bien été activée.

Pour Dermochelys :

à aller cocher dans les extensions utiles à Access

Ne connaissant pas les subtilités d'Access, je ne sais pas où cocher.

Mais auparavant je vais essayer d'ouvrir ce fichier sur mon ordi personnel sachant que mon fichier 'CaveAvin' perso fonctionne sur mon ordi.

Je vous tiens au courant.

Merci encore
Cordialement
marcdels

[ClaudeLELOUP]

Guy.

Merci pour le relai.

[tee_grandbois]

bonsoir Claude,

Merci pour le relai.

pas de quoi, c'est avec plaisir


bonsoir marcdels,

Ne connaissant pas les subtilités d'Access, je ne sais pas où cocher.

à priori, il n'y a rien à cocher qui ne l'est déjà, mais il faudrait compiler le code pour en être certain :



et poster les éventuels messages d'erreur

[Dermochelys]

Bonjour ClaudeLeloup, Tee_GrandBois,

Merci cher compatriote pour le dépannage !

De rien, et avec plaisir j'essaie d'apporter ma petite pierre à la recherche d'une solution quand c'est dans mes capacités, cher compatriote

Et un grand merci à vous deux pour vos réponses toujours aussi utiles et efficaces :-)

Belle journée à vous (grand soleil sur la capitale aujourd'hui, ca change )

[marcdels]

Bonjour Dermochelys

Ci-dessous les opérations effectuées :
1- ouverture du fichier CaveAvin de mon ami sur mon ordi perso : fonctionne parfaitement donc ça ne vient pas du fichier lui-même mais d'Access
2- nous avons 'Compacté et réparer la base de données' : toujours en anomalie
3- nous avons 'Compilé CaveAvin' comme tu l'as indiqué et voici le message d'erreur ci-dessous :


Merci pour ce que tu pourras faire
Cordialement
marcdels

[tee_grandbois]

bonjour,
essaie ce code:

Code :

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

1
2
3
4
5
6
7
8
9
#If VBA7 Then
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
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

[ClaudeLELOUP]

Bonjour à tous,

@ Marcel : tu n'as sous doute pas la dernière version du code.

Celle qui en ligne a été rendue compatible 32 et 64 bits : https://claudeleloup.developpez.com/...ss/cave-a-vin/

[tee_grandbois]

bonjour Claude,

Celle qui en ligne a été rendue compatible 32 et 64 bits :

en partie seulement: pour mArkham46 oui, mais pas pour le module mLoufab

[ClaudeLELOUP]

C'est là qu'est l'os Guy !

Je n'ai malheureusement plus de quoi tester.

Pourrais-tu poster le code modifié stp ?

Merci déjà

[marcdels]

Merci mes chers correspondants.

@tee_grandbois :
le code que tu indiques de '#If VBA7 Then...' jusqu'à '...End If' je le mets à la place de 'Option Compare Database ...' jusqu'à '...End Sub' ?

Désolé mais sur Access je suis un bœuf !! (prononcer Beuhhh) c'est-à-dire un nul complet.

Bonne soirée à tous