inserer cellules d'une feuille de calcul excel dans word

Question

bonjour,
j'essaye d'integrer des cellules d'une feuille excel dans word,
la methode addOLEObject fonctionne mais renvoie la feuille 
sans possibilite de la dimensionner...
si un moyen existe avec cette methode ou une autre, je vous serais 
tres reconnaissant de me donner un ti coup de main ^^'
merci

cs_lonelywolf · Answer

Sub insererCellulesExcel()


Dim appWord  As Word.Application
Dim appExcel As excel.Application  'Application Excel
Dim wbExcel  As excel.Workbook     'Classeur Excel
Dim wsExcel  As excel.Worksheet    'Feuille Excel
Dim rngExcel As excel.Range        'reference
Dim intTrav  As Integer


'Associer word au document actuel
   Set appWord = ActiveDocument.Application
'ouvrir excel
   Set appExcel = CreateObject("Excel.Application")
'ouvrir le document
   appExcel.Workbooks.Open "c:\seval\exel.xls"
'R&#233;cup&#233;ration du classeur par d&#233;faut
   Set wbExcel = appExcel.ActiveWorkbook
'R&#233;cup&#233;ration de la feuille par d&#233;faut
   Set wsExcel = wbExcel.ActiveSheet
'Activation, Selection et Copy
   wsExcel.Activate
   Set rngExcel = wsExcel.Range("A1:D1")
   rngExcel.Copy
'Activation et Paste
   appWord.Activate
   appWord.Selection.PasteSpecial link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine
'quitter excel
   appExcel.Application.Quit


End Sub


voila finalement une solution a base de copier coller,
le controle de word via vb/vba semble bien plus ais&#233;
que celui d'excel, j'espere que ces qq lignes pourront etre utiles a qq.
@+

Inserer cellules d'une feuille de calcul excel dans word

1 réponse

Discussions similaires