T
tof
Guest
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
à++
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
à++