Copier un page sur Excel et coller en image sur Word

Bonjour,

Je suis entrain d'apprendre le VBA et je voudrais savoir comment copier des cellules sur excel (par exemple de A5 à D11) et les coller dans un fichier word déjà existant sur mon ordi.

Sub ControleSiDocumentWordOuvert()

Dim Appli As Word.Application

Dim WordDoc As Word.Document

'n?c?ssite d'activer la reference Microsoft word xx.x 0bject Library

On Error Resume Next

Set Appli = GetObject(, "Word.Application")

Set WordDoc = Appli.Documents("C:\Users\Ngninteba\Desktop\CCDR\190628.doc")

On Error GoTo 0

If WordDoc Is Nothing Then

MsgBox "Le document est ferm?"

Else

MsgBox "Le document est ouvert"

'WordDoc.Close 'fermeture application Word

End If

End Sub

Ce petit code est cené pouvoir vérifier si le document word, mais je recois un message d'erreur disant "Type non défini par l'utlisateur "

Aidez moi SVP

Rechercher des sujets similaires à "copier page coller image word"