yannick63430
XLDnaute Junior
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
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
