transfert données excel vers word en différentes phases

[yannick63430]

Bonsoir à tous,

je viens vous redemander votre aide pour tenter de terminer une macro.
En effet je souhaite transférer des données excel sur word sans me soucier des quadrillages, mise en forme ...
Ainsi après de nombreuses recherches, j'ai trouvé via l'intermédiaire du forum, la macro de Silver Groover, adaptée par antiphot (MERCI A EUX), qui me convient parfaitement à quelques détails près!!
Sa macro se présente comme ceci :
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

Mon problème se situe alors dans la "multiplication" de la macro!!!
je voudrais l'adapter de manière à pouvoir dans un premier temps transférer la cellule A1 (avec une mise en forme spécifique) puis en dessous dans word (soit à la ligne), transférer de A2:B25 (avec une autre mise en forme spécifique).

Pour le moment, mes différents tests ne sont pas très concluant et je ne fait que débuter dans la programmation vba!!

En espérant avoir été clair et précis, je vous remercie d'avance pour votre aide

Cordialement
yannick

 

[yannick63430]

Re : transfert données excel vers word en différentes phases

Bonsoir,
je n'ai pas joint de fichier excel avec, afin de définir concrètement mon problème.
Je reste à disposition si cela est souhaitable pour mieux comprendre.

Cordialement
yannick