[VBA] - Export d'un graphique vers un fichier image

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:

---

Private Sub BtnXportCh1_Click()

---

Code:

---

Set Graph = Me.Chart00.Object

---

Code:

---

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

---

Code:

---

With Graph

---

Code:

---

.Export Image, "JPEG"

---

Code:

---

End With

---

Code:

---

Set Graph = Nothing

---

Code:

---

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 :

Citation:

---

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 !
@+

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:

---

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.....;)

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 ... :furax:
Merci beaucoup pour le coup de main.
@+