Titre du sujet : Copier un tableau Excel dans Word
par JackyAmiens le 31/08/2010 12:05:55
Bonjour,
Dans une feuille devis un tableau est présent et le but est de le copier dans un document word (en début).
Je copie mon tableau par fd.range
et desire le coller en tableau sous Word
par pasteExcelTable
Le message d'erreur est la commande n'existe pas
Public Sub colleWord()
Set fd = Worksheets("Devis")
Limite = fd.Range("A65535").End(xlUp).Row
'Raz des Lignes
fd.Range("A1:H" & Limite).Copy
Dim AppWord As Word.Application
Dim DocWord As Word.Document
'-----------------------------creation session Word-----------------------------------
Set AppWord = New Word.Application
Application.DisplayAlerts = True
'AppWord.ShowMe
'pour que word reste masqué pendant l'opération
AppWord.Visible = True
'Appel le document Word
Set DocWord = AppWord.Documents.Open("E:\test\ModOff.doc", _
ReadOnly:=False)
AppWord.Application.Selection.PasteExcelTable False, False, False
DocWord.Save
DocWord.Close
Set DocWord = Nothing
Set AppWord = Nothing
End Sub
Merci de me donner des idées pour faire un copier coller d'excel vers word en conservant la mise en forme
(j'ai bien indiqué la référence à Excel)
|
Didier FOURGEOT