Discussion :

[ann-onyme]

Bonjour le forum,

Je cherche à récupérer une image de mon premier userform pour l'insérer dans un autre userform, ouvert au clic d'un bouton du premier userform. Pour un soucis de portabilité du fichier Excel, je ne peux pas écrire un chemin direct d'un emplacement de l'ordinateur.

J'envisage 2 solutions : 1- récupérer l'image de mon premier l'userform pour ensuite l'insérer dans le controle image de mon deuxième userform, controle Image crée dynamiquement
2- récupérer l'image à partir de mon classeur Excel

Après m'être documenté sur le sujet, j'ai trouvé plusieurs discussions sur "la deuxième solution" sans grand succès.

Avez-vous des solutions ?

Merci beaucoup pour votre temps,

Ann-onyme.

[pijaku]

Bonjour,

Ou alors :
3- insère l'image voulue dans un contrôle image de ton second userform en mode création.

[ann-onyme]

Bonjour pijaku,

Avec cette solution, l'image ne s'affichera pas sur chaque userform que je créerai dynamiquement. Chaque Userform comprend cette image, créée dynamiquement.

Merci,

Ann-onyme.

[pijaku]

l'image ne s'affichera pas sur chaque userform que je créerai dynamiquement.

Il manquait cette information...

Le code suivant créé un userform dynamiquement, depuis un Userform, y place une image et règle la propriété Picture...

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
Private Sub CommandButton1_Click()
Dim UsfForm As Object
Dim NewI As MSForms.Image
Dim Pic As Object
    Set Pic = Me.Image1.Picture
    Application.VBE.MainWindow.Visible = False
    Set UsfForm = ThisWorkbook.VBProject.VBComponents.Add(3)
    With UsfForm
        .Properties("Caption") = "USF et image Dynamique"
        .Properties("Width") = 175
        .Properties("Height") = 375
    End With
    Set NewI = UsfForm.Designer.Controls.Add("Forms.Image.1")
    With NewI
        .Height = 200
        .Width = 100
        .Left = 20
        .Top = 20
        .Picture = Pic
    End With
    VBA.UserForms.Add(UsfForm.Name).Show
    ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=UsfForm
    Set UsfForm = Nothing
    Set Pic = Nothing
    Set NewI = Nothing
End Sub

[ann-onyme]

Merci beaucoup Pijaku ! C'est exactement ce que je voulais

bonne journée !

Ann-onyme.