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.
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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