Discussion :

[ThamAL]

Bonjour à tous,

J'ai besoin d'un Userform qui afficherait l'image de l'article choisi en fonction
des contrôles utilisés.

Je sais faire quand j'utilise des images stocker dans un répertoire.

Par contre je souhaierai que le fichier soit indépendant et donc stocker les images sur une feuille.

J'ai collé 10 vignettes dans une page mais je ne trouve pas comment les récupérer dans l'Userform....

Auriez-vous une idée?
Ou peu-être ce n'est tout simplement pas possible...

Merci de votre aide

Tham

[EngueEngue]

Tu connais imagelist ?

http://silkyroad.developpez.com/VBA/ImageList/

[ThamAL]

Merci EnqueEnque,

Non en effet je connaissais pas ce contrôle complémentaire.

Je regarderai ça en détail mais effectivement cela doit répondre à mon besoin.

Par contre je me pose une question,
Si j'envoie un fichier utilisant un contrôle complémentaire que l'utilisateur n'a pas dans sa version Excel, est ce que cela va fonctionner ou alors il doit l'installer en pre-requis?

Merci

[EngueEngue]

Bonne question. A laquelle je ne saurais répondre.

Si tu actives la référence dans ton classeur elle le suivra à moins que l'utilisateur ait une version "chelou" d'excel.

[ThamAL]

Ok je testerai,

par contre je ne sais pas si finalement cela répond à mon besoin car je n'arrive toujours pas à récupérer l'image stockée sur une feuille Excel...

Une idée?

Merci

[EngueEngue]

C'est la galère....

Voilà ça marche...
Module standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub SavePictureAs(strPicName As String, ByVal strFile As String, strFormat As String)
 
Dim wsTemp As Worksheet, chtObj As Chart, pObj As Picture
Dim dblWidth As Double, dblHeight As Double
 
ActiveSheet.Shapes(strPicName).Select
Set pObj = Selection
dblWidth = pObj.Width: dblHeight = pObj.Height: pObj.Copy
 
Application.ScreenUpdating = False
 
Set chtObj = Charts.Add: Set wsTemp = Sheets.Add
chtObj.Location Where:=xlLocationAsObject, Name:=wsTemp.Name
wsTemp.Range("A1").Select
 
With wsTemp.ChartObjects(1)
     .Top = 0
     .Left = 0
     .Width = dblWidth
     .Height = dblHeight
     .Activate
     .Chart.Paste
     .Interior.ColorIndex = 1
     .Chart.Export Filename:=strFile, FilterName:=strFormat
End With
 
Application.DisplayAlerts = False: wsTemp.Delete
Application.DisplayAlerts = True: Application.ScreenUpdating = True
 
End Sub

Userform:

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
SavePictureAs "Image 1", Fname, "GIF"
UserForm1.Image1.Picture = LoadPicture(Fname)
End Sub

Et si le temps de latence ne te plait pas... Désolé mon gars, this is not possible.