Importer un fichier Word dans Excel

FRANSIS33 -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour.

Je possède un tableau de données automobiles sous Excel.
Je souhaite importer la photo de la carte grise Word dans le tableau Excel mais n'arrive pas à trouver une solution.
Quelqu'un peut-il me conseiller ?
Merci.

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Avec une macro en vba, voici le code: 

    'cochez la référence Microsoft Word 11.0 Object Library
Option Explicit
Private Sub CommandButton1_Click()
   Dim oWord As Word.Application
    'Créer une instance de word
   Set oWord = CreateObject("Word.Application")
'Ouvrir un nouveau document
 oWord.Documents.Open "C:\Users\Daniel\Documents\Doc1.doc" 'mettre le chemin du doc
 'rendre le document word visible
    oWord.Visible = True
 oWord.ActiveDocument.InlineShapes(1).Select '1ère image
 oWord.Selection.Copy
Range("A1").Select 'cellule de reception
ActiveSheet.Paste
oWord.Quit
End Sub


    0