Conversion graphique - image jpeg

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

J'ai essayé à plusieurs reprise de convertir mes graphiques en jpeg mais sans succès pourriez vous m'aidez svp.
J'ai mis en pièce jointe mon excel VBA et un fichier texte qu'il faut pour avoir les graphiques.
Les graphiques ont chacun leur sheet pour etre le plus lisible possible.

et voici le code que j'ai essayé :
Code:

1 2 3 4 Dim MyChart As Chart Set MyChart = ActiveSheet.ChartObjects(1).Chart MyChart.Export Filename:="C:\Users\PC PACO\Desktop\BTS MASEN\Projet BTS\TRANSFERT\JK\Image graphique\Test.jpg" ', filtername:="JPG"
Merci d'avance.

27/05/2019, 00h44
EricDgn

Bonjour,

En fait comme la feuille = le graphe, il suffit d'exporter la feuille, avec qq chose de ce genre:

Code:

ActiveSheet.Export ActiveWorkbook.Path & "\" & ActiveSheet.Name, "JPG"

Bonne continuation.
27/05/2019, 00h50
pacolapin

Citation:

Envoyé par EricDgn

Bonjour,

En fait comme la feuille = le graphe, il suffit d'exporter la feuille, avec qq chose de ce genre:

Code:

ActiveSheet.Export ActiveWorkbook.Path & "\" & ActiveSheet.Name, "JPG"

Bonne continuation.

Et du coup je mets le lien pour ranger mes jpeg dans le "\" ?
27/05/2019, 11h10
EricDgn

Bonjour,

Je ne comprends pas la question. Pour être plus proche de votre code initial, ceci fonctionne également:

Code:

ActiveSheet.Export Filename:="C:\Users\PC PACO\Desktop\BTS MASEN\Projet BTS\TRANSFERT\JK\Image graphique\Test.jpg"

Bonne continuation.