Discussion :

[Alain7751]

Bonjour !

Directement sur la feuille excel j'ai un toggle button (control activeX)
Je cherche à mettre image1 lorsqu'il est en état 1 et image2 en état 2.
Mon problème est de "transporter" les images ! actuellement je peux mettre le chemin de mon répertoire mais lorsque ce fichier va partir sur un autre pc ... aïe aïe !!
Par le code objet.picture = C:... etc je ne connais que ca ...
Existe-t-il une autre méthode pouvant embarquer les images ??

Merci pour votre aide !

[Invité]

Bonjour,

Si le répertoire des images sur les différents pc est en aval du répertoire du fichier Excel, vous pouvez vous servir de ThisWorkbook.Path et ajouter derrière le répertoire consacré aux images.

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
 
Dim MonRepertoireImages As String
 
    MonRepertoireImages = ThisWorkbook.Path & "\Images\"
 
End Sub

[Invité]

Bonjour,

Dans les options d'excel tu peux activer l'onglet développeur.

Fais le si ce n'est pas déjà le cas!

Dans l'onglet développeur tu as une icone (une main qui tient un bloc notes) click sur elle!

Tu trouveras dans la liste des propriétés la possibilité de charger une image (une pour enfoncé,une pour ressortie)

[Alain7751]

dysorthographie, tu m'as fait découvrir une autre facette de l'éditeur ... mais hélas je n'ai pas trouvé cette propriété ... malgré que la liste soit très longue mais pas très explicite !!

Eric KERGRESSE je ne peux pas faire cela ... ce n'est pas moi qui vais installer l'appli ... ce qui revient à dire que je dois créer un répertoire pour stocker l'appli puis un 2eme pour y stocker les images ... je ne maîtrise pas les pc , je ne sais pas qui va l'utiliser.

Merci à tous les 2 pour votre aide et le temps consacré !