Copier page Word et coller dans Excel

Bonjour,

Si je vous sollicite, c'est que je ne comprends pas la raison pour laquelle la macro ci-dessous fonctionne bien sur Excel 2007 mais pas sur Excel 2016.

La macro se trouve dans un module Excel et se déroule en deux étapes.

1. Tout d'abord, j'effectue une copie du texte d’une page Word.

2. Ensuite, ce texte est collé dans un "Chart" Excel et finalement exporté dans un fichier "JPG".

Si on exécute en mode pas à pas, tout se passe bien, le texte copié (dans le document Word) se colle correctement dans la feuille Excel.

Par contre, si on lance la macro, l'image collée dans Excel reste totalement vide.

Pourriez-vous m'aider s’il vous plaît.

Merci beaucoup,

Nico

'------------------------------------------------------------------------------------------------

Sub Transfert_Donnees_Word()

Dim DocWord As Word.Document

Dim AppWord As Word.Application

Set AppWord = New Word.Application

AppWord.ShowMe

AppWord.Visible = True

Set DocWord = AppWord.Documents.Open("C:\Users\Nic\Documents\Word.docx", ReadOnly:=True)

'---------------------------------------------------------------

' 1. Copier le texte dans la page Word

'---------------------------------------------------------------

With AppWord

.Selection.WholeStory

.Selection.Copy

End With

'-----------------------------------------------------------------------------------------------

' 2. Coller le texte dans la feuille Excel & l'exportée dans un fichier JPG

'-----------------------------------------------------------------------------------------------

With ActiveSheet.ChartObjects.Add(0, 0, 350, 500).Chart

.Paste

.Export "C:\Users\Nic\Documents\Image.jpg", "JPG"

End With

AppWord.Application.Quit

Application.CutCopyMode = False

End Sub

Je vous remercie beaucoup pour votre aide,