Importer un fichier Word dans Excel

Fermé
FRANSIS33 - 26 août 2014 à 07:46
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 26 août 2014 à 11:07
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.
A voir également:

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
26 août 2014 à 11:07
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