image userform dans disque C:\

Version imprimable

26/07/2012, 14h13
panda78

image userform dans disque C:\
Bonjour,
je fais apparaitre une image dans mon userform de la maniere suivante :
Code:

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

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

Code:

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,

26/07/2012, 14h37
panda78

Dois je changer les gif en jpg et GIF en JPG?
26/07/2012, 14h39
jackborogar

Tu as tout compris ;)

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

Code:

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.

Désolé prends plutôt ce code:

Code:

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

maintennat VBA me dit que l'objet est introuvable pourtant j'ai bien mis l'image dans la feuille appelé Synthèse:
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton3_Click() Set g = Sheets("Synthèse").Shapes("brh") ' nom de l'image g.CopyPicture ActiveSheet.ChartObjects.Add(0, 0, g.Width, g.Height).Chart.Paste ActiveSheet.ChartObjects(1).Chart.Export Filename:="brh3.jpg", FilterName:="jpg" ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete UserForm2.Image1.Picture = LoadPicture("brh3.jpg") end sub
je comprends plus :cry:

ou plutot VBA me dit que "l'élement portant ce nom est introuvable"

26/07/2012, 16h05
jackborogar

Tu as ajouter un contrôle image dans ton Userform?
26/07/2012, 16h10
panda78

lol c'est quoi
26/07/2012, 16h20
jackborogar

Dans ton userform, Affichage, boite à outils, et là tu peux ajouter un controle Image (là où va se coller ton Image).
Dans mon code au dessus, il s'appele Image1 puisque c'est le nom par défaut.
De même dans le code Userform_Activate dedans tu peux voir que je le rend invisible et le rend visible quand j'appuis sur mon bouton

Dans la feuille Synthèse tu as renommé ton image "brh"? Est-ce cela?
26/07/2012, 16h39
panda78

ça je l'ai déjà fait dans mon userform2 mais j'y arrive pas

quand je vais dans ma feuille synthèse et que je click droit sur l'image , je selectionne proprieté texte de remplacement et là ya écrit brh3
26/07/2012, 16h42
jackborogar

1 pièce(s) jointe(s)

Bon tiens je t'ai fait un classeur sa sera plus simple...
26/07/2012, 17h00
panda78

yes!!!! Merci beaucoup je me suis vraiement pris la tete j'ai capté le truc, encore merci!:ccool: