modifier l image d'un bouton en VBA

Bonjour à tous,

J'ai un souci pour modifier l'image d'un bouton, le code bloque sur la ligne 7 et surement sur la ligne 9.
Je n'ai rien trouvé dans l'aide et ne sais pas si c'est ma syntaxe qui n'est pas bonne ou si c'est du au espaces dans le chemin réseau 06 - MLM

Code:

---

1 2 3 4 5 6 7 8 9 10

if Forms![F_fond].Form![SF_ML]!etiq_avce_gest_CAF.BackColor = 5167783 _ and Forms![F_fond].Form![SF_ML]!etiq_avce_gest_H24.BackColor = 5167783 _ and Forms![F_fond].Form![SF_ML]!etiq_avce_gest_NDF.BackColor = 5167783 _ and Forms![F_fond].Form![SF_ML]!etiq_avce_gest_A7.BackColor = 5167783 _ and Forms![F_fond].Form![SF_ML]!etiq_avce_gest_RLM.BackColor = 5167783 then   Forms![F_fond].Form![SF_ML]!but_envoi_checklist.Picture = "V:\....\IPM\06 - MLM\sources\editer.bmp" else Forms![F_fond].Form![SF_ML]!but_envoi_checklist.Picture = "V:\....\IPM\06 - MLM\sources\bouton_orange_50p.bmp" end if

---

merci pour votre aide et belle journée🌞

Bonjour.

As-tu un message d'erreur ou le code bloque simplement ?
Pour le problème de l'espace dans le nom, si c'est un problème, essaye en mettant l'image à une autre place dont le chemin ne contient pas d'espace.
Enfin je te suggère de mettre les informations sur les images dans une table de paramètre plutôt qu'en dur dans le code. Ça facilite la maintenance de l'application sur le long terme.

A+

bonjour marot_r,

merci. Je viens de tester dans un autre dossier et ça fonctionne :)
J'ai déjà une table de paramétrage avec le même chemin et qui fonctionne dans un autre code d'où mon incompréhension.
Je vais tester en passant par la table pour voir si cela fonctionne.

Ca fonctionne comme ça :) mais pas avec le lien en dur.
Ce n'est pas plus mal et c'est plus "propre".

Code:

---

Forms![F_fond].Form![SF_ML]!but_envoi_checklist.Picture = (DFirst("rep_template_mail", "T_parametrage") & "\bouton_orange_50p.bmp")

---

Encore merci :)