Discussion :

[sebù des bois]

Bonjour,
J'ai pris une "photo" d'un groupe de graphiques et d'informations qui se trouvent toutes dans une des feuilles excel que j'ai dans mon classeur. J'ai mis la photo (ou l'image correspondante) dans une autre feuille. J'aimerai maintenant si l'utilisateur du fichier le veut (après update de certaines données) afficher cette image dans un userform mais je n'y arrive pas...Je n'ai trouvé que des aides pour afficher un graphique mais pas une image qui se trouve dans mes feuilles excel...Quelqu'un aurait une idée?

merci

sebù

[SilkyRoad]

bonjour

j'espere que ce lien pourra t'aider

http://www.developpez.net/forums/sho...d.php?t=204965


michel

[sebù des bois]

J'ai un souci avec son code:

mon message d'erreur:

membre de méthode ou de données introuvable

c'est sur la dernière ligne

est ce que image1 doit etre déclarée en pictureformat? si je mets dim image as shape j'ai ce message d'erreur qui apparait:

variable objet ou variable de bloc With non définie

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
31
32
33
34
35
36
 
...
    Application.Calculate
    Unload UserForm1
 
    'on va afficher l'image
    Dim nb As Byte
    Dim Sh As Shape
    Dim Image1 As PictureFormat
 
    'Supprime l'image temportaire si elle existe
    If Dir(Fichier) <> "" Then Kill Fichier
 
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("output image").Shapes(1)
 
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
 
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
 
    'Affiche l'image dans le graphique
    Image1.Picture = LoadPicture(Fichier)
 
fin_fonction:
End Sub

[SilkyRoad]

bonjour

supprime cette ligne qui ne sert à rien

Dim Image1 As PictureFormat

d'ou lances tu ta procedure? depuis un module ou un UserForm?



michel

[sebù des bois]

supprime cette ligne qui ne sert à rien
d'ou lances tu ta procedure? depuis un module ou un UserForm?

effectivement je le lance en cliquant sur un bouton dans un userform, si je ne mets pas cette ligne, j'ai un message d'erreur qui dit:

variable non définie en me donnant image1 comme cette variable...

[SilkyRoad]

rebonjour

j'ai du mal à te suivre

en tout dedut de procedure tu as ecrit

Unload UserForm1

cette instruction sert à fermer les boites de dialogue:
il s'agit du userForm contenant la macro ou d'un autre ?


as tu inséré un controle Image nommé "Image1" dans l'UserForm?



michel

[sebù des bois]

bonjour

ok donc j'ai un userform à partir duquel l'utilisateur peut "piloter" à l'aide de combobox, textbox,.... des variables qui serviront à uploader une factsheet qui est déjà faite.

Ensuite je n'ai plus qu'à mettre les variables que l'utilisateur a choisies au bon endroi et un application.calculate et c'est bon. Je ferme ensuite cette fenêtre puisque j'en ai plus vraiment besoin.

Dans ce userform je voudrais que l'utilisateur ait le choix entre le bouton ok qui met simplement à jour la page excel ou le bouton ok+afficher qui met non seulement à jour les feuilles excel mais qui affiche la factsheet (c'est en fait un image puisque jai pris une photo d'une page excel bien agencée comme je veux) dans un userform ou autre...voilà (dès que l'utilisateur clique le ok j'ai donc mis le unload userform qui ne me sert plus a rien)

à vrai dire je ne sais pas ce que c'est qu'un controle image...

sebù

[SilkyRoad]

à vrai dire je ne sais pas ce que c'est qu'un controle image...

http://silkyroad.developpez.com/VBA/...serForm/#LII-K


bon apres midi
michel

[sebù des bois]

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
31
    Application.Calculate
    Unload UserForm1
    UserForm3.Show
 
    'on va afficher l'image
    Dim nb As Byte
    Dim Sh As Shape
 
    'Supprime l'image temportaire si elle existe
    If Dir(Fichier) <> "" Then Kill Fichier
 
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("output image").Shapes(1)
 
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                       Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
 
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
 
    'Affiche l'image dans le graphique
    UserForm3.Image1.Picture = LoadPicture(Fichier)

toujours impossible de faire afficher l'image...

[sebù des bois]

finalement c'est bon merci (au fait c'était plutôt au niveau du vocabulaire que j'avais pas compris...)