Discussion :

[pacolapin]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[EricDgn]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation.

[pacolapin]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation.

Et du coup je mets le lien pour ranger mes jpeg dans le "\" ?

[EricDgn]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation.