Discussion :

[kir4000]

Bonjour,

J'ai suivi les instructions données dans plusieurs sujets comme par microsoft http://support.microsoft.com/kb/824276/fr

J'ai un formulaire avec un graph2000. Lorsque je je fais un export en gif par clic, ça marche. Ensuite, si je quitte le formulaire puis le réouvre, ça me "bousille" le graphe. Je pense avoir bien fait la procédure, je n'ai pas de graph9.exe dans la liste de mes processus en cours...
J'ai Access2000, peut-être que la solution n'est fiable que pour 2003 et +.

Une hypothèse serait-elle qu'après le acOLEClose, le formulaire est toujours actif alors qu'il devrait être fermé juste après l'export ?

Code :

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

1
2
3
4
5
6
7
8
Dim Graph As Object
    Set Graph = Forms.monForm.graphe.Object
'    Graph.Export Application.CurrentProject.path & "\graphe2.gif", FilterName:="GIF"
    Graph.Export "D:\BDsortie.gif" ', FilterName:="GIF"
 
    Set Graph = Nothing
    Forms.monForm.graphe.Action = acOLEClose
Exit Sub

La PJ représente l'avant export, et l'après (en bas évidemment)

Si vous avez une idée, je suis tout ouï

[argyronet]

Bonjour,

Ce qui est évoqué dans http://support.microsoft.com/kb/824276/fr concerne un plantage inhérent à OLE mais pas au comportement que tu soulèves...
J'ai tenté la même procédure puis une plus évoluée avec GetSaveFileName() mais le résultat est le même, le graphique est bousillé.

Pour l'instant, je n'ai pas de solution...

Argy

[kir4000]

Merci pour cette réponse également !

J'ai une solution alternative de longue date, qui est en fait le même type de code, et là ça fonctionne, quand le graph est dans un état

Mais cela alourdit considérablement la procédure car quand je clique sur export :
>lance l'état (copie jumeau du formulaire)
>en mode design, faire cette manip reports.nometat.nomgraph.rowsource=forms.nomform.nomgraph.rowsource
>puis en mode normal, faire l'export gif comme décrite pluis haut
>ferme l'état et revient au formulaire

Cela peut servir aux galériens comme moi. Mais bon si quelqu'un à une autre idée ne touchant que le formulaire, ça peut m'aider

[dut-dut]

Le post est vieux mais pour ceux qui cherchent une solution, moi je fais comme suit :

Code :

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

1
2
3
4
5
6
    Dim grpApp As Graph.Chart
 
    Set grpApp = Me.Graphique.Object
    grpApp.Export Application.CurrentProject.Path & "\monImage.gif", FilterName:="GIF"
    grpApp.Application.Quit
    Set grpApp = Nothing