Discussion :

[Masmeta]

Bonjour,

Je recherche à sauvegarder un graphique dans une image jpeg.

Voila dans mon code principal :

Code :

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

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 :

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

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 )

[Invité]

Bonjour

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

Lesquels ? Un message ? et Où ?

Starec

[Masmeta]

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 :

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

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"

[fring]

Bonjour Masmeta, Starec

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

Code :

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

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 :

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

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 :

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

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 ?

[Masmeta]

Bonjour Fring

Bonjour Masmeta, Starec

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

Code :

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

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

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.

[ouskel'n'or]

Moi j'ai ça

Code :

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

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

[Masmeta]

Code :

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

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

J'ai une erreur du type :

Erreur Automation Erreur non spécifiée.

Je ne comprend plus rien. Et vous?

[Masmeta]

Je suis fatigué, j'avais :

Code :

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

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

au lieu de

Code :

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

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

Maintenant tout marche
Merci pour votre aide