Hello à tous,
J'essaie désepérément d'exporter plusieurs graphiques d'un fichier excel dans un fichier word.
Voilà ce que j'ai codé et qui ne fonctionne pas:
Le code indique l'erreur suivante :
Je suis preneur de tout type d'aide.
merci beaucoup,
Gucciz
J'essaie désepérément d'exporter plusieurs graphiques d'un fichier excel dans un fichier word.
Voilà ce que j'ai codé et qui ne fonctionne pas:
Code:
ActiveChart.ChartArea.Copy[QUOTE] copie le graphique précédemment sélectionné[/QUOTE]
Dim WordApp As Word.Application
Dim FichierWord As Word.Document
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set FichierWord = WordApp.Documents.Open("C:\graph.doc")
FichierWord.Bookmarks("Asset").Range.PasteAndFormat wdPasteDefault
ActiveDocument.SaveAs "C:\graph.doc"
ActiveDocument.Close
Set WordApp = NothingLe code indique l'erreur suivante :
pour la ligne de code suivante
Code:
Set FichierWord = WordApp.Documents.Open("C:\graph.doc")Je suis preneur de tout type d'aide.
merci beaucoup,
Gucciz