supprimer le quadrillage d'excel quand export vers word

Re : supprimer le quadrillage d'excel quand export vers word

Je pensais avoir trouvé une solution sur le site d'Eric Renaud (voir code ci-dessous). Mais malheureusement cela ne fonctionne apparement pas sous XP.

Michel si jamais tu passes par là, Au secouuuurs !!!!!
bon en attendant je continue de chercher

Copier des données Excel dans un document Word (format tabulations)
Ce programme permet de copier des données d'Excel, d'ouvrir un document Word
et d'y coller les données. Les données étant séparées par des tabulations.

Sub CopierDonneesExcelVersWord()

Range( "A1:B6" ).Copy

Set WW = CreateObject ( "word.application" )

WW.Visible = True

WW.Documents.Add

WW.Selection.PasteSpecial Link:= False , DataType:=wdPasteText, Placement:= _

wdInLine, DisplayAsIcon:= False

End Sub

Re : supprimer le quadrillage d'excel quand export vers word

Bonjour,

essaies ceci (sgdg):

range("A1:B6").CopyPicture Appearance:=xlPrinter, Format:=xlPicture


qui correspond à la manip "Maj+edition; copier une image; telle qu'à l'impression"

A+
Michel_M

Re : supprimer le quadrillage d'excel quand export vers word

Bonjour Michel_m

Merci pour ta proposition. Effectivement ça fonctionne mais mon texte est copié sous un format image. Mon but était d'avoir du texte avec tabulation.

Finalement je pense avoir trouvé une solution. J'ai adapté une macro de Silver Groover. L'avantage c'est que l'on peut mettre en forme le document, changer la police de caractère, etc...

Néanmoins si quelqu'un à un code à me proposer, je suis preneur.

Ci-joint le code pour info:

Option Explicit

Sub ExportExcelVersWord()
'necessite d'activer la reference microsoft word 10.0 Object Library
'testé avec XP
'adapté d'une macro de Silver Groover
Dim DocWord As Word.Document
Dim AppWord As Word.Application

Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = True
AppWord.Documents.Add

Range("A1:A9").Copy
With AppWord.Selection
.PasteSpecial DataType:=wdPasteText
.WholeStory
With .Font
.Name = "Times New Roman"
.Size = 12
.Bold = True
.Italic = True
.Strikethrough = False
.Color = wdColorSkyBlue
End With
.HomeKey Unit:=wdStory
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub