Excel dans word a un endroit prévu

[gouyette]

Bonjour,

j'ai une feuille Excel et un document word,
je selectionne la feuille excel et je la colle dans le document word,
ca marche tres bien, a une exception , je desire coller la feuille excel a un endroit précis dans mon doc word.
mais la feuille excel se place toujours au début du document word.
j'ai placé des signets, en l'occurence le nom de la feuille Excel, mais rien a faire ca marche pas.
ci dessous mon code :

' on active les cellules excel concernées et on les placent dans le presse
' papier

Workbooks(CDPExcel).Worksheets(NumOpt).Range(Workbooks(CDPExcel).Worksheets(NumOpt).Cells(1, 1), _
Workbooks(CDPExcel).Worksheets(NumOpt).Cells(NumLigne, NumCol)).Select


'Copie la sélection de cellules
Selection.Copy

DoEvents 'laisse au système le temps de copier la plage

With Selection.Find
.ClearFormatting
.Text = "TAB" & NumOpt ' <----- le nom nde ma feuille excel
End With

'Colle les données copiées dans Word
WordApp.Selection.Paste

'Ajuste le tableau copié à la largeur de la page
WordDoc.Tables(1).AutoFitBehavior wdAutoFitWindow


si qq un a deja rencontré ce souci, toute aide est la bienvenue.
jc

 

[chris]

Re : Excel dans word a un endroit prévu

Bonjour

Je n'ai pas le code en tête mais en utilisant l'enregistreur Word tu l'auras

Utilise la commande atteindre, signet et le nom de ton signet

à placer entre le copier et le coller