copier-coller Excel Word

salut,
j'utilse une marco depuis excel qui :
-ouvre word
-insère une zone de text
-copy les cases dans la zone de text
-rend invisible les contour de la zone de text


Sub Word()

Dim WordObj As Object
Dim WordFile As Object
Dim NewTextBox As Object
Dim NewTable As Object
Dim aTable As Object

Range("A1:D5").Copy

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
'Set WordFile = WordObj.Documents.Open("toto") 'ouvre un document Word
Set WordFile = WordObj.Documents.Add(Template:="Normal", NewTemplate:úlse,
DocumentType:=0) 'crée un nouveau document

Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:%0, Height:0) 'crée une zone de text

NewTextBox.TextFrame.TextRange.PasteExcelTable False, False, False 'copie le
tableau Excel dans Word

Set aTable = NewTextBox.TextFrame.TextRange.Tables(1)
aTable.Rows.HeightRule = 1
aTable.Rows.Height = 0 'réduit la taille du tableau sous Word

NewTextBox.Fill.Visible = 0 'rend invisible le remplissage de la zone de
text
NewTextBox.Line.Visible = 0 'rend invisible les bordures de la zone de text

WordObj.Visible = True

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

ça marche pour ton cas ?


"A QUEMENER" <rozavel@cario.fr> a écrit dans le message de
news:cg7iq9$l4c$1@news.tiscali.fr...

Bonjour à tous,

J'ai une application Excel qui fonctionnait parfaitement sous Windows NT
mais qui pose problème avec Windows 2000.
Je m'explique:
A partir d'Excel une macro copie une plage de cellules, ouvre un document
Word et la colle en temps qu'image.
Mon document Word est lié à une macro sous un .dot
Avec Windows 2000 le copier coller ne fonctionne pas
Quelqu'un peut-il m'aider ?

Voici mes macros

ma macro Excel :

Sub courrier()
Application.ScreenUpdating = False
Dim word As Object
Sheets("depot").Select
Range("FO2:GA92").Select
Selection.Copy
Set word = CreateObject("word.application")
word.Visible = True
word.Documents.Open("D:tempcourrier.doc")
End Sub


ma macro Word :

Sub MAIN()
Application.WindowState = wdWindowStateMaximize
ActiveWindow.WindowState = wdWindowStateMaximize
On Error Resume Next
WordBasic.DisableInput 1
Selection.PasteSpecial Link:úlse, DataType:=wdPasteHTML, Placement:= _
wdInLine, DisplayAsIcon:úlse

WordBasic.ChDefaultDir "D:TEMP", 0
WordBasic.FileSaveAs Name:="BAC", Format:=0
End Sub

D'avance meri
andré