Afficher un graphique dans une PictureBox

Bonjour à tous

Ce forum est excellent et on m’a débloqué plusieurs fois, qui plus est très rapidement.

C’est pour cela que je me permets une nouvelle fois de faire appel à vous.

Sur ma feuil Excel se trouve un tableau et un graphique qui va avec, j’aimerais donc que lorsque j’appuie sur mon bouton « Valider », le graphique se trouvant sur ma feuille Excel, S’affiche dans ma Picture Box "Pbo_Graphique " sur mon formulaire "Frm_Graphique".

Merci d’avance pour vos réponses

Je vous place le fichier ci-joints.

Bonsoir,

Un exemple avec un contrôle 'Image'.

Cdlt.

Option Explicit
Private Sub Cmd_Valider_Click()
Dim ws As Worksheet
Dim ch As Chart
Dim strFilename As String

    Set ws = Worksheets("Feuil1")
    Set ch = ws.ChartObjects(1).Chart
    strFilename = ThisWorkbook.Path & Application.PathSeparator & "tmp.gif"
    ch.Export Filename:=strFilename, filterName:="gif"
    Me.Image1.Picture = LoadPicture(strFilename)
    ' à adapter
    Kill strFilename

    Set ch = Nothing
    Set ws = Nothing

End Sub

Bonsoir

le code n'est pas de moi

Salut Bob

Merci d'avoir pris le temps de me répondre.

Par contre je n'est jamais écrit de chemin pour un graphique dans un code, est-ce que tu peux m'expliquer Stp ,ce qu'il faut que je mette à la place de chemin dans :

.Export Filename:=Chemin

Me.Pbo_Graphique.Picture = LoadPicture(Chemin)

Kill Chemin

A la place de chemin j'ai essayé cela :

(Worksheets("Feuil1").Range("G2"))

mais comme le graphique est sur plusieurs cellules je ne sait pas comment mis prendre.

Merci d'avance

Depuis mon dernier message mon problème c'est finalement résolu.

Merci Jean-Eric et Bob pour vos réponses rapide et super efficace, vous m'avez enlevé une épine du pied grâce à vos codes !

A la prochaine et encore merci pour votre aide !

Re,

Merci à toi de nous remercier et d'avoir clos le sujet.

Cdlt.