supprimer le quadrillage d'excel quand export vers word

[antiphot]

Bonjour à toutes et tous

J'utilise une macro de Michel XLD qui me convient très bien pour exporter des donées d'excel vers word.
Le seul point noir, c'est que cette exportation implique également le transfert (en grisé) du quadrillage de la feuille excel.

Peut' on s'en affranchir ?

Merci par avance
Philippe

ci-joint la macro de Michel.XLD

Sub Word()

Dim WordObj As Object
On Error Resume Next

Range("a1:a14").Copy

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
WordObj.Documents.Add

With WordObj.Selection
.PasteSpecial
End With

End Sub

 

[antiphot]

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

 

[michel_m]

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

 

[antiphot]

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