Discussion :

[panda78]

Bonjour,
je fais apparaitre une image dans mon userform de la maniere suivante :

Code :

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

1
2
3
4
Private Sub CommandButton3_Click()
UserForm2.Image1.Picture = LoadPicture("C:\Users\panda\Documents\brh3.jpg")
UserForm2.Show
End Sub

j'aimerai que dans un aure pc l'utilisateur puisse faire apparaitre cette image car elle est dans le disque dur de mon PC. où la mettre pour que de n'importe quel PC on puisse la faire apparaitre?je suppose dans excel mais où et comment? Merci

[jackborogar]

Créer une feuille (que tu masques si nécessaire où il y aura ton image) ici on l'appelera "Synthèse"

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
Private Sub CommandButton3_Click()
 
 
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
 
    On Error GoTo 0
    Set Img = Me.Controls.Add("forms.Image.1")
 
    With Img
 
        .Left = 100
        .Width = Me.CbExit.Left
        .Height = Me.CbExit.Top
        .Top = 0
 
    End With
 
    With Sheets("Synthèse")
 
        Set g = Sheets("Synthèse").ChartObjects(1).Chart
        Fichier = ActiveWorkbook.Path & "\" & "image.gif"
        g.Export Filename:=Fichier, FilterName:="GIF"
        Img.Picture = LoadPicture(Fichier)
 
    End With
 
End Sub

Ce code exportera l'image sur n'importe quel PC

Cdt,

[panda78]

Dois je changer les gif en jpg et GIF en JPG?

[jackborogar]

Tu as tout compris

[panda78]

Voilà ce que j'ai fais mais ça ne marche pas
mon code de userforme1 :

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
Private Sub CommandButton3_Click()
On Error Resume Next
    Me.Controls.Remove (Img.Name)
 
    On Error GoTo 0
    Set Img = UserForm2.Controls.Add("forms.Image1")
 
    With Img
 
        .Left = 100
        .Width = Me.CbExit.Left
        .Height = Me.CbExit.Top
        .Top = 0
 
    End With
 
    With Sheets("Synthèse")
 
        Set g = Sheets("Synthèse").ChartObjects(1).Chart
        Fichier = ActiveWorkbook.Path & "\" & "image.jpg"
        g.Export Filename:=Fichier, FilterName:="JPG"
        Img.Picture = LoadPicture(Fichier)
 
    End With
UserForm2.Image1.Picture = LoadPicture(Fichier)
 
End Sub

Mais VBA m'affiche un message d'erreur "membre d eméthode ou donnée introuvable"
j'ai pourtant bien placée l'image dans la feuille que j'ai renommée Synthèse à cet effet.

[jackborogar]

Désolé prends plutôt ce code:

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
Private Sub CbExit_Click()
 
        Image1.Visible = True
        Set g = Sheets("Synthèse").Shapes("Image 2") ' nom de l'image
        g.CopyPicture
        ActiveSheet.ChartObjects.Add(0, 0, g.Width, g.Height).Chart.Paste
        ActiveSheet.ChartObjects(1).Chart.Export Filename:="Image 1.gif", FilterName:="gif"
        ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
 
        Me.Image1.Picture = LoadPicture("Image 1.gif")
 
End Sub
 
 
Private Sub UserForm_Activate()
 
Image1.Visible = False
 
End Sub

N'oublie pas de créer un contrôle Image dans ton userform