tableau Excel dans word (BIS)

[tof]

Désolé de faire remonter mon sujet mais j'aurais besoin d'une petite modification

Le code ci-dessous me permet d'exporter un tableau excel dans un document word. Ca marche super bien mais je voudrais qu'il ne me le colle pas en fichier word mais qu'il reste en fichier excel pour garder mes formules.

Pouvez vous me dire ce que je dois changer SVP


Voilà le code que je dois insérer :

Sub CopieDansWord()
Dim Wrd As Object

Range('A1:B10').Copy 'la plage à copier
On Error Resume Next
Set Wrd = GetObject(Class:='Word.Application')
On Error GoTo 0
If Wrd Is Nothing Then
Set Wrd = CreateObject('Word.Application')
Wrd.Visible = True
End If
Wrd.Documents.Open Filename:='C:test.doc' 'ou autre
SendKeys '^{END}'
Wrd.Selection.Paste
Wrd.Selection.TypeParagraph
Wrd.ActiveDocument.Save
Wrd.Quit
Application.CutCopyMode = False

End Sub

Merci d'avance et encore désolé, c tres important pour moi
à++

 

[petipeton]

Il faudrait que ta macro prenne en compte la commande Word : Edition / Collage spécial / Sélection dans la liste de : Feuille de calcul Microsoft Office Object. Eventuellement, coche de l'option Coller avec liaison...

En vba, je ne sais comment ça se dit... mais c'est une piste de réflexion !!!

 

[Charly2]

Bonsoir Tof, bonsoir petipeton, bonsoir à toutes et à tous

Tu peux essayer ce code qui effectue un collage avec liaison de ta plage :

Sub CopieDansWord()
'
Dim Wrd As Object ' ou Word.Application
Dim IsToClose As Boolean
'
  Range('A1:B10').Copy 'la plage à copier

  On Error Resume Next
  Set Wrd = GetObject(Class:='Word.Application')
  On Error GoTo 0

  If Wrd Is Nothing Then
    Set Wrd = CreateObject('Word.Application')
    Wrd.Visible = True
    IsToClose = True
  End If

  With Wrd
    .Documents.Open FileName:='C:Test.doc' 'ou autre
    With .Selection
      .EndKey wdStory
      .PasteSpecial Link:=True, DataType:=wdPasteOLEObject
    End With
    .ActiveDocument.Save
    .ActiveDocument.Close

    ' on ne quitte pas Word si l'application était déjà
    ' active avant d'ouvrir le document
    If IsToClose Then .Quit
  End With
  Application.CutCopyMode = False

End Sub

Voili voilà.

Tiens-nous au courant.

A+

 

[tof]

Merci, mais dans ce cas ça me colle un gros bloc qui n'arrive pas s'insérer dans word si il fait plus d'une page et de toute façon je n'ai pas gardé les formules

G également essayé d'insérer une feuille excel en tant qu'objet dans ma page Word et de coller dedans mais ca ne marche pas

Vous n'auriez pas une autre idée ???

à++