Export graphique vers Excel

[sweetmercy]

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

Je compte bien sur vous pour m'aider !

Merci à tous.
M

[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

[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 !

Merci !

[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

[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...

[argyronet]

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

[sweetmercy]

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

[sweetmercy]

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