Discussion :

[Invité]

Bonjour à tous,

J'ai un problème avec Access (version 2010):

J'ai un état dans lequel il y a plusieurs graphiques, générés dynamiquement via un formulaire
(où on choisit l'année entre autres).

Je veux pouvoir exporter en png un graphique en cliquant dessus par exemple.

Je le fais avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub monGraph_Click()
 
Dim ocht As Object
Dim path As String
 
Set Rpt = Reports("monRapport")
 
Set ocht = Rpt("monGraph")
 
path = EnregistrerUnFichier(Rpt.Hwnd, "Enregistrer sous", "monGraphique.png", "")
 
If (path <> "") Then
    With ocht
        .Export path, "PNG"
       'Sans acOLEClose, bug total d'access :
       'il n 'enregistre plus les modifs, empêche de sauvegarder manuellement, affiche 6 fois de suite la même boîte de dialogue "opération sur le serveur OLE a échouée"
        .Action = acOLEClose
    End With
End If
 
Set ocht = Nothing
Set Rpt = Nothing
End Sub

(La fonction EnregistrerUnFichier me permet de choisir un chemin absolu et un nom avec l'explorateur pour sauvegarder le fichier.)

Le problème est que lorsque j'enregistre le graphique de cette façon il clignote et se "met à jour"
avec une ancienne version de ce graphique !
Par exemple je génère le rapport pour l'année 2015, j'exporte le graphique en png, puis le graphique
change tout seul et affiche des chiffres de l'année 2014. Or je sais qu'avant l'état avait été enregistré
dans sa version 2014.
Je voudrais que le graphique ne se modifie pas, qu'il soit juste exporté.

Merci d'avance pour votre aide

[loufab]

Bonjour,

Au vu du modèle Graph il me semble que tu n'adresse pas le bon objet.

Code :

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

1
2
3
4
5
 
        Dim oGrp As Object 'Graph.Chart
        Set oGrp = Me.Controls("mongraphique").Object.Application.Chart
        oGrp.Export "c:\monfichier.jpg", "JPEG", True
        set oGrp = nothing

Le report doit être ouvert en mode Aperçu ou le graph doit être positionné dans un formulaire (c'est le cas ici).

Cordialement,

[Invité]

Malheureusement, ça ne marche pas.
J'obtiens une erreur d'exécution 1004 : 'erreur définie par l'application ou par l'objet'
au niveau de la ligne :

Code :

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

oGrp.Export "c:\monfichier.jpg", "JPEG", True

Ensuite, dès que je veux sauvegarder ou fermer le rapport, j'obtiens plusieurs fois de suite :



Je ne comprends pas pourquoi j'obtiens ce message car la création et l'affichage des graphiques fonctionnent.

Je remarque qu'avec le code que tu proposes, l'auto-complétion s'arrête à Set oGrp = Me.Controls("mongraphique") et "oGrp." ne propose rien non plus.
Est-ce normal ?

D'autre part, quand je passe en mode 'aperçu avant impression', j'obtiens :


Je n'arrive pas à me débarrasser de ce problème, même en enregistrant le rapport dans un nouveau fichier sous un autre nom comme c'est proposé.

[loufab]

Bonjour,

Pour avoir l'autocomplètion il faut être en "early binding" et avoir un typage fort des variables. Si je ne peux pas vérifier la première condition, la deuxième n'est pas remplie.

Sur la ligne du Dim je t'ai mis le typage fort en commentaire. Mais il faut que tu sois en early.

Cordialement,

[Invité]

Bonjour,

Tout d'abord merci de ton aide, je pense être sur la bonne piste.
J'ai simplifié le problème. Je crée un nouveau rapport. J'y crée un simple graphique (access lui donne le nom de "Graphique0").
Je mets sa propriété "activé" sur "oui" puis j'écris ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Private Sub Graphique0_Click()
 
    Dim ocht As graph.Chart
    Dim path As String
 
    Set ocht = Me.Controls("Graphique0").Object.Application.Chart
    ocht.Export "C:\tmp\grph.jpg", "JPEG", True
 
    Set ocht = Nothing
 
End Sub

L'export se produit bien. Le problème est qu'il se produit aussi une erreur qui reste silencieuse tant qu'on n'interagit pas plus avec l'état. Mais dès qu'on veut le fermer ou l'enregistrer (par exemple), access m'envoie ce message plusieurs fois de suite :



Je travaille en entreprise, je ne peux pas me permettre de laisser qqch qui bug ainsi.

[Invité]

Excusez-moi pour le double post mais j'ai trouvé une solution. Il reste cependant une sorte de bug d'affichage que je n'arrive pas à expliquer.
Pour éviter que le serveur OLE crash, il faut rajouter la ligne "ocht.Application.Quit".
Voilà le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Graphique0_Click()
   Dim ocht As graph.Chart
   Dim path As String
   Set ocht = Me.Controls("Graphique0").Object.Application.Chart
   path = EnregistrerUnFichier(Me.Hwnd, "Enregistrer sous", ".png", "")
   If (path <> "") Then
        ocht.Export path, "PNG"
        ocht.Application.Quit
   End If
   Set ocht = Nothing
End Sub

(la fonction "EnregistrerUnFichier" permet de choisir un chemin absolu et un nom avec l'explorateur)

Cependant il reste un bug d'affichage. Voici comment il se produit:
1. Je clique sur le graphique, choisit un chemin et un nom, puis exporte le graphique. Tout va bien.
2. Je re-clique sur le même graphique l'explorateur s'affiche mais je peux voir que derrière, le graphique a changé pour une version antérieure (avec des données différentes). Si je continue, il va m'enregistrer un mauvais graphique puisqu'il l'a changé en cours de route. Si clique sur "annuler" le graphique revient à son état "normal".

[loufab]

en effet le quit est important, comme j'ai tiré le code d'un projet plus vaste que ce simple export il est passé à la trappe. désolé.

il me semble avoir eu ce comportement, je vais regarder dans le projet.