Discussion :

[jojo86]

Bonjour,
j'ai un UserForm, dans lequel j'ai un composant Image.
Je voudrais pouvoir changer cette image de manière définitive par l'intermediaire d'un code.

J'arrive à changer l'image mais une fois l'application fermée, l'image disparait...

Code :

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

1
2
3
4
5
6
Dim Chemin As String
Chemin = OuvrirUnFichier(Application.Hwnd, "Parcourir", 1, "Fichier bitmap", "bmp", "C:\") 
'OuvrirUnFichier = Utilisation API pour afficher la fenetre OUVRIR Fichier
If Len(Chemin) > 0 Then
    Image1.Picture = LoadPicture(Chemin)
End If

Comment faire pour ancrer l'image dans le composant?

[fring]

Bonjour,

Une piste ici http://silkyroad.developpez.com/VBA/UserForm/

Points III-I et V-F

[jojo86]

Ok mais lorsque les paramètres seront restitués, j'ai peur que le chemin soit érroné étant donné que le fichier peut être utilisé sur plusieurs PC...

De plus je ne trouve pas la commande qui me redonne le Path de l'image...
En gros je ne sais pas quel paramètre recupérer afin de le sauvegarder...

Je viens de penser à une bidouille là...
L'image je la place sur un lecteur reseau.
Sur mon form je met un label en visible = false et ce label sauvegarde la valeur de l'image qui est sur le réseau...
Comme ça j'enregistre en paramètre Label.Caption !!!

C'est de la bonne bidouille ça non?

[patricktoulon]

ou bien faire une copie de ton fichier image dans le dossier de ton fichier excel

Code :

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

     FileCopy "C:\mes images\mon image.jpg",thisworkbook.path & "\mon image.jpg"

bien sur dans ce cas l'adresse de l'image recuperée est fixe

tu peux très bien récupérer la variable ((nom du fichier) string )de ton fichier a la sortie de ta boite de dialogue

et lors de la copie dans le même dossier que ton fichier excel lui donné toujours le même nom( image_a_afficher.jpg) par exemple

et ensuite chemin prend la nouvelle adresse comme valeur et
Image1.Picture = LoadPicture(Chemin)

tu aura peut être besoins de "application .displayalerts=false pour écraser le fichier image existant
au plaisir

[jojo86]

J'avais pensé a ca mai le fichier est un fichier utilisé sur plusieurs pc.
Je placerais donc l'image sur un disque reseau de ce fait le chemin restera fix.
Apres avoir ouvert le fichier je viens le copier sur le lecteur reseau !

Merci en tout cas pour les tuyaux!

[SilkyRoad]

Bonsoir


Une autre solution consiste à stocker ton image en mode binaire dans ton classeur :
http://silkyroad.developpez.com/VBA/ExcelImageGIF/


Tu peux également stocker l'image dans un contrôle ImageList
http://silkyroad.developpez.com/VBA/ImageList/

et charger l'image automatiquement lorsque tu lances l'UserForm


bonne soirée
michel