Copier excel et coller dans word

[gouyette]

Bonjour
Je cherche simplement a copier une feuille excel dans un document Word.
j'ai isolé les cellules de la feuilles, j'ai un signet dans le document word.
Mais rien ne marche, la copie ne se fait pas !!!
ci dessous mon code:

'Vérification si la feuille est totalement vide
If Ws.UsedRange.Cells.Address = "$A$1" And _
IsEmpty(Ws.Range("A1")) Then
Else
With Ws 'Identifie le numéro de ligne
NumLigne = .Cells.Find("*", .Range("A1"), , , xlByRows,Previous).Row
'Identfie le numéro de colonne
NumCol = .Cells.Find("*", .Range("A1"), , , xlByColumns, Previous).Column
Set DerniereCellule = .Cells(NumLigne, NumCol)
End With

Copie des données dans le presse papier
Workbooks(CDPExcel).Worksheets(NumOpt).Range(Workbooks(CDPExcel).Worksheets(NumOpt).Cells(1, 1), _
Workbooks(CDPExcel).Worksheets(NumOpt).Cells(3 + NbLigne, NbCol)).Select
Selection.Copy

' j'active mon doc word
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find '
.ClearFormatting
.Text = "TAB" & NumOpt <-- mon signet a rechercher


With .Replacement
'.LeftIndent = CentimetersToPoints(-2.25)
'.RightIndent = CentimetersToPoints(-2.5)
.ClearFormatting
.Text = ""
End With

With WdApp
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdInLine, DisplayAsIcon:=False
WdDoc.InlineShapes(1).Height = 172.9 'Règle la hauteur dans Word
WdDoc.InlineShapes(1).Width = 453.55 'Règle la largeur dans Word
End With.Execute Replace:=wdReplaceAll, _
Format:=True, MatchWholeWord:=True
End With

voila , pas terrible je trouve, mais je suis debutant
si qq un peux m'aider
merci
jc

 

[néné06]

Re : Copier excel et coller dans word

Bonsoir gouyette


J'ai trouvé ce petit programme mais il fonctionne sur Excel 2003
J'ai excel 2000
Sur mon Excel , il Plannnnnnnte
Il ne reconnait pas les instructions

Cordialement A+