Charger l'image du graphique dans le controle Image

Bonjour à tous,

J' ai un message d'erreur de coup je n'arrive pas à afficher la photo quant je clique sur le bouton du formulaire.

Merci d'avance pour vos propositions des solution.

Veuillez trouver ci-joint l'exemple.

excel

Microsoft 365

Private Sub btnaffichegraphe_Click()

Dim Feuille As Worksheet

Dim Dossier As String

Dim MonGraphique As Object

'Affectation des variables

Set Feuille = Sheets("Mongraphem")

'On sélectionne le nom de la feuille ou se trouve le graphe

Set MonGraphique = Feuille.ChartObjects(1).Chart

'On affecte le nom du graphique

'On choisit le chemin ou sauvegarder le graphique en tant qu'image

Dossier = "C:\Users\a07005858\Desktop.jbg" MonGraphique.Export Dossier

'Exporte le graphique dans le dossier

Me.imggraphique.Picture = LoadPicture(Dossier)

'On charge l'image du graphique dans le controle Image
End Sub

Bonjour,

Tu ne précises pas à quel endroit tu as un message d'erreur, ni quel message d'erreur tu as.

À Vue de nez, je dirais que le chemin du dossier n'est pas correct.

Bonjour,

je dirais même plus c'est l'extension du fichier qui n'est pas bon, non ? JBG en lieu et place du JPG, non ?

@ bientôt

LouReeD

Bonjour,

J'ai pensé à ça au début aussi, mais apparemment c'est une extension valide.

Bonsoir Vbahich, Le Forum,

Le format jbg, permet de sauver des formats d'images sans perte.

Mais il n'est pas accepté par la propriété Export des Charts. Il est préférable d'utiliser le format jpg.

En plus la propriété Picture de l'image ne prends pas le format jbg.

Donc ci-dessous le code utilisable pour réaliser cela. A adapter selon dénominations propres à votre besoin.

Dim Chrt As Chart
'Nomme l'image du graphique
Graphe = "ImgGraphe"
'Feuille et graphique cibles
Sheets("Cible").ChartObjects(1).Activate
'Affectation
Set Chrt = ActiveChart
'Puis export vers le dossier choisi sous le nom donné
Chrt.Export "C:\Users\Untel\Pictures\" & Graphe & ".jpg"

bonjour,

merci pour vos solutions.

Bonsoir,

merci pour votre retour et remerciements !

@ bientôt

LouReeD