Problème pour exporter un graphe en jpeg

Bonjour,

Je recherche à sauvegarder un graphique dans une image jpeg.

Voila dans mon code principal :

Code:

---

1 2 3 4 5 6 7 8 9 10

dim objChart as New Chart dim objClass as New WorkBook ... ... Set objClass = ThisWorkBook Set objChart = ActiveWorkbook.Charts.Add ... ...(Création du graphique et de sa mise en forme) SaveChartToJPEG objchart

---

Soit ma fonction :

Code:

---

1 2 3 4 5 6 7

Sub SaveChartToJPEG ( objChart as Chart) { Dim PathFile As String PathFile = "Nom du Chemin" objChart.Export Filename = PathFile, FilterName:="JPEG" }

---

Malheureusement j'ai des erreurs lors de l'export.
N'étant pas un spécialiste de VBA pourriez vous m'aider ?
Merci

(ps : j'utilise Excel 2007 en évaluation )

Bonjour

Citation:

---

Envoyé par Masmeta

Malheureusement j'ai des erreurs lors de l'export.
(ps : j'utilise Excel 2007 en évaluation )

---

Lesquels ? Un message ? et Où ?

Starec

J'ai modifié ma fonction pour qu'elle soit plus simple suivant un peu les exemples des posts sur l'exportation d'un graphe

Code:

---

1 2 3 4 5 6 7 8 9

Sub SaveChartToJPEG ( ) { Dim PathFile As String Dim objChart As New Chart Set objChart = ThisWorkbook.sheets("GRAPHE").CharObjects(1).Chart PathFile = "Nom du Chemin" objChart.Export Filename = PathFile, FilterName:="JPEG" }

---

J'ai une erreur sur la ligne rouge. C'est la n°1004, Erreur définie par l'application ou par l'objet.

J'ai l'impression que l'objet Chart n'existe pas alors qu'il y a bien un graphique sur la feuille "GRAPHE"

Bonjour Masmeta, Starec

D'après moi il y a 2 erreurs dans cette ligne :

Code:

---

objChart.Export Filename = PathFile, FilterName:="JPEG"

---

1. c'est Filename:=PathFile et pas Filename = PathFile
2. il manque le nom du fichier qui sera créé et son extension

Essaye comme ceci :
1. la macro qui créé le graphique avec la variable NomGraph déclarée en Public

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public NomGraph As String Sub Création_Graphique() 'ton code de création '... '... '... '... NomGraph = ActiveChart.Name Convert_Graph '<-- macro d'exportation du Graph en jpg End Sub

---

2. La macro d'exportation en jpg

Code:

---

1 2 3 4 5 6

Sub Convert_Graph() Dim Chemin As String   Chemin = "D:\Temp\" ActiveChart.Export Filename:=Chemin & NomGraph & ".jpg", FilterName:="JPEG" End Sub

---

Maintenant pourquoi faire deux macros séparées ?

Bonjour Fring

Citation:

---

Envoyé par fring

Bonjour Masmeta, Starec

D'après moi il y a 2 erreurs dans cette ligne :

Code:

---

objChart.Export Filename = PathFile, FilterName:="JPEG"

---

1. c'est Filename:=PathFile et pas Filename = PathFile
2. il manque le nom du fichier qui sera créé et son extension

---

J'ai mal recopier ma fonction, car sur le pc où je travaille avec Excel, il n'y a pas de liaison internet de configurer

Citation:

---

Envoyé par fring

Maintenant pourquoi faire deux macros séparées ?

---

je viens de la programmation objet où j'aime bien faire des petites fonctions toute simple. Malheureusement j'ai repris un code en vba qui lui est complet dans une seule sub. C'est très difficile à la comprendre, de plus mon code n'est pas noyer dans les centaines de lignes de code.

Moi j'ai ça

Code:

---

1 2 3 4 5 6 7

Sub Test() PathFile = "Jojo mon costaud.jpg" With ActiveSheet .ChartObjects("Graphique 7").Chart.Export _ Filename:=PathFile, FilterName:="GIF" 'ou JPG, les deux fonctionnent (!) End With End Sub

---

Code:

---

1 2	ActiveChart.Export Filename:=Chemin & NomGraph & ".jpg", FilterName:="JPEG"

---

J'ai une erreur du type :

Citation:

---

Erreur Automation Erreur non spécifiée.

---

Je ne comprend plus rien. Et vous?

Je suis fatigué, j'avais :

Code:

---

1 2	ActiveChart.Export Filename:=Chemin & NomGraph & ".jpg", FilterName:=TypeImg

---

au lieu de

Code:

---

1 2	ActiveChart.Export Filename:=Chemin & NomGraph & ".jpg", FilterName:="JPEG"

---

Maintenant tout marche
Merci pour votre aide