Pour ce faire, il faut dans un premier temps
cocher dans Outils->Références la librairie Microsoft Word
Puis il faut que tu ouvres Word ainsi que ton document, que tu copies ton graphe Excel (grâce à son nom), et le coller dans Word :
'Déclaration des variables
Dim DocWord As word.Document
Dim AppWord As word.Application
Set AppWord = New word.Application
'Ouvre le document Word
Set DocWord = AppWord.Documents.Open("d:\user\essai.doc", ReadOnly:=False)
'Création du graphique et sa copie
'Ne prends que la copie :)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B6")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Classeur1").Activate
'ICI tu copies ton graphe
ActiveSheet.ChartObjects("Graphique 1").Copy
'Désactivation des messages d'alerte
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
'Collage du graphe dans Word
DocWord.Range.PasteSpecial
Application.CutCopyMode = False
'Sauvegarde du document Word
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
J'ai essayé et ça marche jusqu'à DocWord.Range.PasteSpecial. A partir de là ça plante.
Quand tu écris "cocher dans Outils->Références la librairie Microsoft Word", je n'ai pas trouvé à quoi ça correspondait. Dois-je le faire dans Excel ? (J'ai une version américaine, ceci peut avoir un impact sur le code généré par VB...?)
Le copier-coller fonctionne bien mais le problème est que, dans Word, le graphe est collé sur le texte. Sais-tu comment je pourrai faire pour le coller proprement sous un texte, s'il te plait ?
J'y avait pensé mais dès que je génère un nouveau fichier word, la macro permettant de placer correctement le graphe disparait. Je ne sais pas comment sauvegarder cette macro pour qu'elle soit dispo pour n'importe quel fichier Word. Et deuxième chose, à partir d'Excel, je ne sais pas comment appeler une macro word.
C'est vrai que l'idée est bonne mais je suis handicapé par mon manque de connaissances en VBA.
