Discussion :

[GillesDeVuif]

Bonjour à tous.
Je souhaiterais à partir de mes formulaires de génération de graphiques (grand merci à Jean-Philippe Ambrosino pour son tuto) donner la possibilité à l'utilisateur d'exporter le graphique de son choix vers un fichier de type image.
J'ai donc un bouton dont le code est le suivant, bidouillé d'après SilkyRoad (Merci à lui :Comment insérer l'image d'un graphique dans un commentaire ?) :

Code :

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

Private Sub BtnXportCh1_Click()

Code :

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

Set Graph = Me.Chart00.Object

Code :

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

Image = CurrentProject.path & "\nomfichier.jpg"

Code :

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

With Graph

Code :

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

.Export Image, "JPEG"

Code :

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

End With

Code :

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

Set Graph = Nothing

Code :

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

End Sub

Au test, le fichier image est correctement créé, mais après ça se dégrade fortement :
à la fermeture du formulaire (Bouton Quitter : Docmd.close) contenant le bouton, j'obtiens le message suivant :

L'opération sur l'objet chart a échoué

Comme je persiste à vouloir fermer le formulaire, j'obtiens le même message que ci-dessus avec en plus une référence au serveur OLE qui ne serait pas correctement enregistré, puis, c'est le plantage "runtime Error" .

Si quelqu'un à une idée sur la façon idéale de procéder pour envoyer le contenu d'un objet Msgraph.chart.8 vers un fichier image, je lui serai reconnaissant jusqu'à la septième génération !
@+

[FreeAccess]

Bonjour,

En testant rapidement, il semblerait que le programme graph.exe ne se ferme pas correctement et génére ce message d'erreur.

1er solution......tu modifie le code comme suit:

Code :

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

1
2
3
4
5
6
.....
With graph
.export Image, "JPEG"
.Application.Quit 'Tu ferme Graph.exe
End With
....

2ème solution......
Access ferme de façon inattendue lorsque vous exporter par programmation un objet graphique

En espérant que cela résoudra ton problème.....

[GillesDeVuif]

Salut.
Ta résolution avec .Application.Quit : Impeccable !
La solution du technet (.Action = acOLEClose) fonctionne probablement bien dans la majorité des cas, mais a un effet secondaire gênant dans le cadre de ma base : cela réinitialise l'ensemble des paramètres personnalisés des graphiques que j'ai choisis avec soin et patience en espérant qu'ainsi il paraitront beaux et compréhensibles aux yeux des consultants ...
Merci beaucoup pour le coup de main.
@+