Exporter des graphiques excel dans word

Question

Bonjour,

Cette question a d&#233;j&#224; &#233;t&#233; pos&#233;e mais n'a pas re&#231;u de r&#233;ponses.
Mon but est dans le titre, exporter une vingtaine de graphes excel dans un fichier word. Ma syntaxe est la suivante :

Sub exportword()
    Dim Graph As ChartObject
    Set wo = CreateObject("Word.Application")
    doc = wo.documents.Add
    For Each Graph In Sheets("Graphes").ChartObjects
    Graph.Activate
    Graph.Copy
    wo.Selection.Paste <<======== Pas tr&#232;s sur de ce qui est s&#233;lectionn&#233; ici
    Graph.Delete  <<======== Une autre macro les cr&#233;e juste avant
    Next Graph
    wo.activedocument.SaveAs Filename:="Nouvoscompt.doc"
    wo.activedocument.Close
End Sub

Le probl&#232;me est que le temps pour tout transf&#233;rer est tr&#232;s long (1min voir plus) alors qu'il ne s'agit que de 20 copier-coller et la taille du fichier word est plu&#244;t imposante (15mo).
Je cherche un moyen de rendre cela plus rapide et moins lourd, en imaginant que l'utilisateur des macros n'aura peut-&#234;tre pas un pc aussi performant que le mien et risque d'&#234;tre impatient.

Merci d'avance

cs_Detou · Answer

Bon, j'ai trouv&#233; la solution comme un grand. Mon probl&#232;me &#233;tait qu'il copiait carr&#233;ment le graphique, il &#233;tait donc &#233;ditable sous word et ca prenait trop de place. Je mets mon code si jamais ca int&#233;resse quelqu'un.

Sub exportword()
    Dim Graph As ChartObject
    Set wo = CreateObject("Word.Application")
    doc = wo.documents.Add
    For Each Graph In Sheets("Graphes").ChartObjects
    Graph.Activate
    ActiveChart.CopyPicture Appearance:=xlPrinter, Size:=xlPrinter, Format:= _
        xlPicture  '<<===== Pour avoir une image de bonne qualit&#233; sous Word
    wo.Selection.Paste
    wo.Selection.typetext Text:=vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf  '<<=== Pour espacer les graphes
    Graph.Delete
    Next Graph
    wo.activedocument.SaveAs Filename:="Nouvoscompt.doc"
    wo.activedocument.Close
    Exit Sub
End Sub

La ca fait 65ko et c'est preque instantan&#233;.
A+

Mattheous · Answer

Salut,

Je cherche &#224; faire la meme chose, mais sous Access.
A savoir, j'ai des graphs sous Excel, que je voudrai integrer dans mes forms Access.
Sais tu comment je peux faire ?
Merci d'avance

Exporter des graphiques excel dans word

2 réponses

Discussions similaires