Discussion :

[reedy]

Bonjour tout le monde,

J'aimerais savoir s'il est possible d'exporter un état (en fait un graphique) vers un format de type image (JPEG, gif,...), l'objectif étant d'insérer
ensuite l'image produite dans un mail de type HTML .

J'ai trouvé un bout de code qui permet de faire ça à travers une imprimante virtuelle qui s'appelle "Image printer" mais le problème est que je ne peux pas avoir la main sur l'imprimante notemment pour choisir le nom du fichier en sortie.

Merci par avance pour votre aide.

Cordialement

[loufab]

Il y a 2 tuto sur les graphiques. La solution est dedans.

http://loufab.developpez.com/tutoriels/access/msgraph1/
http://loufab.developpez.com/tutoriels/access/msgraph2/

[reedy]

Bonsoir,

Merci pour la réponse.
Si je comprend bien je dois utiliser la methode export de l'objet Chart.
En orientant ma recherche vers cette nouvelle piste, je suis tombé sur une discudion http://www.developpez.net/forums/d13...bject-msgraph/ où j'ai trouvé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim Graph As Graph.Application
    Dim Chart As Graph.Chart
 
    Set Graph = forms!monform.moncontroleGraph.Object.Application
    Set Chart = Graph.Chart()
 
 
    Chart.Export "C:\Test.Gif"
 
    Set Chart = Nothing
    Set Graph = Nothing

Malheureusement, ce code bloque au niveau de la ligne

Code :

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

Chart.Export "C:\Test.Gif"

en m'affichant le message suivant:
-erreur d'exécution 1004
-erreur définit par l'application ou par l'objet

Merci pour tout coup de main. ça fait 2 jours que je cherche une solution mais sans succès

Cordialement

[loufab]

Bonjour,

La syntaxe est la suivante :

Code :

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

ObjetChart.Export FileName:=..., FilterName:=..., Interactive:=False

Il y a cette page du msdn qui peut t'aider.

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

Attention ! il semble que le nouveau composant graphique 2007 ne soit pas le même que MS Graph.

Ceci explique peut-être cela.

Cordialement,

[reedy]

Bonjour,

Le message d'erreur persiste toujours malgré de nombreuses tentatives.
J'ai donc décidé d'abandonner la piste de l'exportation au format jpeg à travers la bibliothèque MSGRAPH.
Au lieu de cela, je me suis orienté vers l'utilisation de l'imprimante virtuelle PDFCREATOR laquelle, heureusement, prend en charge l'exportation au format jpeg.

J'ai fait quelques tests et ça marche à merveille. Maintenant mon code est composé de 3 blocs:
bloc1: désignation de pdf creator comme imprimante par défaut.
bloc 2: ouverture de l'état et impression du jpeg grâce à la méthode DoCmd.PrintOut
bloc3: création d'un email HTML avec comme image jointe le fichier jpeg ainsi crée

Malheureusement ce processus n'est pas complètement automatisé car avant le lancement du code, il faut régler manuellement les options de PDF créator (choix de l'option enregistrement automatique, choix du format de sortie et du dossier d'accueil...).

Y'a t'il un moyen d'automatiser tout ça en prenant la main par exemple sur PDF Creator. J'ai eu beau chercher, je n'ai rien trouvé.

Cordialement