Copie/colle fichier word dans excel

[cissou69]

Bonjour,

Le but de ce code serait d'ouvrir un fichier word, de tout sélectionner, de copier le contenu et de le coller sous forme d'une image dans un onglet d'un fichier excel.
Pour l'ouverture de fichier, je sais comment coder pour un fichier xls mais pas pour un fichier word ...
En ce qui concerne la partie copie je ne sais comment m'y prendre.
Mon ébauche de code serait la suivante:

Fichier = lesdatas(N, 6)
Nom_Onglet = lesdatas(N, 2) & lesdatas(N, 1)
FileToOpen = "X:\ABC\abc\" & Fichier

???.Open Filename:=FileToOpen
...
???.Copy 
'Insérer un onglet vierge en position (3) ???
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
        , DisplayAsIcon:=False
Selection.ShapeRange.IncrementLeft 10#
Sheets(3).Name = Nom_Onglet

???(Fichier).Close SaveChanges:=False

Application.CutCopyMode = False

Je suis ouvert à tout autre code...
Merci d'avance pour votre aide,

Cissou

 

[Hippolite]

Re : Copie/colle fichier word dans excel

Bonjour,
Regarde avec l'enregistreur de macro et
Insertion/Objet.../Créer à partir du fichier
A+

 

[cissou69]

Re : Copie/colle fichier word dans excel

Je n'y avais pensé de cette manière j'ai un code qui semble fonctionner...
Merci,
Bonne journée