Discussion :

[Tibaldus]

Bonjour à tous.
Voici mon petit problème :
J'ai un fichier word "Etude_piscine.dot" dans lequel j'aimerai inserer un graphique Excel contenu dans la page "Graph1" du fichier "GraphTherm.xls". Pour corser un peu le tout, ce graphique va chercher ses donnée sources dans un troisième fichier Excel : "ExportGraph.csv" .
J'ai donc 2 problèmes :
- Comment faire en sorte que le graphique se mète à jour automatiquement à l'ouverture de "GraphTherm.xls" ?
- Comment inserer ce graphique dans word en utilisant une macro (pour l'instant j'utilise copier/collage special mais c'est loin d'âtre pratique...)

J'espère avoir été clair, n'hésitez pas à demander un peu plus de détails si besoin.

Merci d'avance

Tibaldus

[ouskel'n'or]

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
24
25
26
Sub InséreUnGrapheExcelDansWord()
Dim XlAppli
Dim XlCl
Dim Xlfl
Dim Graphe
 
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open("D:\xls\LeClasseur.xls") '< le classeur
    Set Xlfl = XlCl.Worksheets("feuil1") '< la feuille
    Set Graphe = Xlfl.ChartObjects(1) '< Le graphe 1
        Graphe.Chart.ChartArea.Copy
        DoEvents
 
        Selection.PasteAndFormat (wdChartLinked) 'Collage avec liaison
        DoEvents
 
    XlCl.Close False 'fermeture du fichier
    DoEvents
 
    XlAppli.Quit 'Fermeture d'Excel
 
    Set Graphe = Nothing
    Set XlAppli = Nothing
    Set XlCl = Nothing
    Set Xlfl = Nothing
End Sub