Export graphique vers Excel

Version imprimable

10/01/2011, 17h08
sweetmercy

Export graphique vers Excel

Bonjour à tous,

Je me cogne la tête depuis ce matin sur un petit problème.
J'ai un formulaire dans lequel j'ai construit un graphique.
Je souhaite exporter ce graphique vers une feuille excel.
En VBA je suis pas un pro ! Pour le moment j'ai bien réussi à exporter mon formulaire mais la feuille Excel est vide :aie:

Je compte bien sur vous pour m'aider ! :D

Merci à tous.
M
14/01/2011, 15h13
argyronet

Bonjour,

Selon moi, u ne pourras exporter ton graphique qu'en mode image si tu n'exportes pas les données avec et je ne pense pas que c'est ce que tu cherches...

Si tu en disais un peu plus sur ce que tu veux faire, on pourras très certainement t'aider.

Argy
17/01/2011, 17h21
sweetmercy

Bonjour et merci pour ce début de réponse.

Le but est d'avoir une lecture rapide d'un indicateur.
Donc le format image me suffirait.
Il me faut donc ouvrir le formulaire, et copier l'objet pour le coller ensuite dans le fichier excel de destination.... surement simple que on maitrise VBA, ce qui n'est pas mon cas ! :lol:

Merci !
18/01/2011, 10h25
argyronet

Ok, mais alors pourquoi passer par Excel ?
Tu seras dans ce cas obligé d'user de VBA et pas avec un niveau débutant.

Sans être un ponte en programmation, je pense que tu dois pouvoir arriver à tes fins avec ce tuto que j'ai écris pour la circonstance.

Argy
18/01/2011, 15h16
sweetmercy

En fait le fichier excel est déjà défini. Il contient déjà plusieurs indicateurs dans plusieurs feuilles qui sont gérées par d'autres personnes dans notre entreprise.
(extractions automatiques d'un ERP)
Le graphique que je tient à exporter d'access irait dans une des feuilles de ce fichier. Mes données sont dans une base Access et je tiens à automatiser la mise en forme afin de coller mes graphiques chaque semaine dans ce fichier excel.
Voila voila...

Bien voici un simple bout de code sans sophistication qui fonctionne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandCopy_Click() Dim oXL As Excel.Application Me.MyGraph.SetFocus DoCmd.RunCommand acCmdCopy Set oXL = New Excel.Application With oXL .Visible = True .Workbooks.Add 'Tu peux faire un open avec le nom de ton classeur .Worksheets(1).Select .Cells(5, 5).Select .ActiveSheet.Paste End With End Sub
Mais je n'apprécie guère cette méthode dans le sens où l'instanciation est propriétaire à la session Access et l'objet Excel ne peut être nettoyé de la mémoire du fait qu'il est exploité via OLE.
Bref, ça fonctionne et tu peux t'en contenter.

Pour faire plus pro, il aurait fallut user du Clipboard et ouvrir Excel et ton classeur via un Shell().

Argy

19/01/2011, 10h27
sweetmercy

Ahh... super, merci.
Je pense avoir compris l'essentiel de la méthode.
Je teste ça aujourd'hui.
:P

Bon,

Tout ça a fini par me donner de l'inspiration...

Ok, c'est du bricolage mais ça fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CopieGraphique()
 
'Définition des constantes
NOMFICH = "TEST1.xls"
CHEMINRESULT = "C:\TEST\"
 
' Ouverture du Formulaire et copie du graphique qu'il contient
DoCmd.OpenForm "GRAPHIQUE1", acNormal
DoCmd.RunCommand acCmdCopy
DoCmd.Close
 
 
'Ouverture du fichier excel et copie du graphique
Dim xlApp As Object
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.workbooks.Open (CHEMINRESULT & NOMFICH & "")
    xlApp.Sheets("FEUIL3").select
    xlApp.ActiveSheet.Paste
 
End Sub