Coller tableaux Excel vers word (métafichier)Résolu

Question

Je cheche &#224; extraire des tableaux excel vers un ficheir word en les collant l'un apr&#232;s l'autre en format metafichier am&#233;liorer ou image.

Ces lignes me permettent d'exporter les tableux ss word mais pas au format metafichier. (la fonction pasteandformat (wdChartPicture) &#233;tant la seule &#224; ne pas foncionner
Existe-t'il une solution?
Comment mettre en fomre sous word depuis excel?

Merci pour vos solutions

Sub Extractwordtest()
Dim wordapp As Word.Application
  Dim model As Word.Document
  Set wordapp = CreateObject("Word.Application")
  wordapp.Visible = False
  'Tableau 1
  Sheets(1).Range("B1:B54").Copy
  Dim MyWord As Object
  Set MyWord = wrdApp.Documents.Add
  With wordapp.Selection
    .PasteSpecial
      Application.CutCopyMode = False
    .TypeParagraph
    .    End With
Set MyWord = Nothing
Set model = Nothing
wordapp.ActiveDocument.SaveAs ("C:\Mesdocs	est3.doc")
wordapp.ActiveDocument.Close
wordApp.Application.Quit
End Sub

michelxld · Accepted Answer

bonjour

tu peux tester

  .PasteSpecial DataType:=wdPasteEnhancedMetafile

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/womthPasteSpecial1_HV03076977.asp

bonne journ&#233;e
michel

conseildg · Answer

voici la fonction qui copie la plage de cellule sélectionnée et la colle dans un nouveau document Word sous forme d'image (il faut activer la reference microsoft Word ) :

Sub CollerDansWordFormatBitmap()
Dim Wrd As Word.Application

Selection.Copy

Set Wrd = CreateObject("Word.Application")
On Error Resume Next
Wrd.Documents.Add
Wrd.Visible = True

Wrd.Selection.PasteSpecial DataType:=wdPasteBitmap
Application.CutCopyMode = False

End Sub

Bonne prog

conseildg · Answer

voici le modul qui copie la plage de cellule sélectionnée et la colle dans un nouveau document Word sous forme d'image :

Sub CollerDansWordFormatBitmap()
Dim Wrd As Word.Application

Selection.Copy

Set Wrd = CreateObject("Word.Application")
On Error Resume Next
Wrd.Documents.Add
Wrd.Visible = True

Wrd.Selection.PasteSpecial DataType:=wdPasteBitmap
Application.CutCopyMode = False

End Sub

Grosroger · Answer

Merci pour vos r&#233;ponse,
 .PasteSpecial DataType:=wdPasteEnhancedMetafile correspond exactement &#224; ce que je voulais faire et wdPasteBitmap fonctionne &#233;galement.
merci encore
A+

Coller tableaux Excel vers word (métafichier)

4 réponses

Discussions similaires