Discussion :

[Arkham46]

Oui les valeurs sont les codes événements et semblent correctes.
Le debug.print est un peu intrusif et doit déclencher des événements qui ne se déclenchent pas à ce moment en exécution normale.
Un peu comme quand tu exécutes pas à pas : à chaque ligne exécutée, Access déclenche les événements, un peu comme si on faisait un DoEvents.

A tenter :

1 - Dans FrmSysTray, remplacer :

Code :

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

Private Sub Form_Open(Cancel As Integer)

Par :

Code :

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

Private Sub Form_Load()

Le Form_Load s'exécutant après le Form_Open, le formulaire est peut-être totalement initialisé à ce moment-là.

2 - Sinon, ajouter un DoEvents avant DisplaySysTray (toujours dans FrmSysTray, dans Form_Open ou Form_Load) pour forcer le formulaire à finir son affichage avant d'afficher le sysTray.

L'objectif étant de ne pas exécuter le DisplaySysTray avant que le formulaire ne soit totalement initialisé.
C'est peut-être parce que le formulaire reçoit des événements alors qu'il est en cours d'initialisation que ça plante.
Je suis sur Access 2013 et toi Access 2016 (le reste semble identique), et entre les différentes versions d'Access j'ai déjà vu des différences au niveau de l'exécution des événements d'ouverture/chargement. En temps normal on ne le remarque pas.

[Ric500]

Désolé pour mon retard à la réponse (tjrs le plombier! Content qu'il soit parti celui-là )

Sinon on tient, enfin tu tiens le bon bout!

Pour tenir compte de tes remarques en termes d'événementialité:

j'ai remplacé le Form_Open par le Form_Load

Mis le DoEvents avant DisplaySysTray dans le Form_Load

j'ai déplacé ce code:

Code :

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

1
2
3
4
5
6
    ' Place l'icone du menu dans le systray
    Form_FrmSysTray.PutIconFromFile CurrentProject.Path & "\BT.ico"
    Form_FrmSysTray.ShowFormInTaskBar Forms("F_Menu")
    Form_FrmSysTray.SysTrayTipText = "Afficher le menu BT SYSTEM"
    Form_FrmSysTray.DisplayBallon "Afficher le menu BT SYSTEM", "BT SYSTEM", 10, SystrayError Or SystrayNoSound
    RestaurerFenetre (Me.hwnd)

A la fin du form_Open de mon menu, et là:
pas de plantage,
pas de couac sur survol du systray qui s'est bien affiché
mais
"dépassement de capacité" lors d'un premier clic-gauche du menu du systray (pas de plantage)

... et ô miracle! le menu popup du systray s'est bien affiché lors d'un second clic gauche

[Ric500]

HOURRA !!!

J'ai rajouté un DoEvents en fin de Form_Open du Menu après l'instruction "RestaurerFenetre (Me.hwnd)".

Et tout semble fonctionner normalement maintenant. Je vais continuer de tester çà (notamment en 32 bits) avant de mettre le tag "RESOLU" mais l'appli me semble stable maintenant.

Pour finir, il me reste à te dire un grand MERCI Thierry!!!

Sans toi je ne serais parvenu à rien d'autre qu'à renoncer aux fonctionnalités du SysTray.

Merci encore et à bientôt, au détour d'un autre post !

[ACRETI]

Bonsoir,

Dans un premier temps, merci beaucoup Arkham pour ce code ! C'est vraiment super !

Y aurait-il un moyen pour ajouter des "icones" dans le menu popup ? De la même manière qu'on pourrait utiliser les icones d'Access dans un menu contextuel dans un formulaire ?

Merci par avance de te réponse !

Bonne soirée !