Copier word vers word a prtir d'excel

T'aurais pas plus compliqué que ça ? Si je vois clair tu veut créer un rapport à partir de ta liste. C'est pourquoi il y a des bases de données. EXCEL N'EST PAS UNE BASE DE DONNEE. Les plus simple c'est de prendre Access et créer un rapport. Pas besoin de chipoter avec Excel et Word.

merci de la sugestion, mais il word est plus aproprié pour mon besoin, plus facile de modifier, et envoyer les soumissions, tout le monde connait word.

J'ai trouver ma réponse en rumelant 2-3 discusion dans des forum. Voici le code que j'utilise

Sub PilotageWord3()
Dim MonBeauWord As Object
Dim destin As Object

Set MonBeauWord = CreateObject("Word.Application")
Set destin = CreateObject("Word.Application")
MonBeauWord.Visible = True
destin.Visible = True

destin.Documents.Add

MonBeauWord.Documents.Open Filename:="D:\temp\template 1.doc"

MonBeauWord.Selection.WholeStory
MonBeauWord.Selection.Copy

destin.Selection.Paste

destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph
destin.Selection.TypeParagraph

destin.Selection.Paste

destin.ActiveDocument.SaveAs "d:\temp\test.doc"

MonBeauWord.ActiveDocument.Close
destin.ActiveDocument.Close
Set MonBeauWord = Nothing
Set destin = Nothing

End Sub

si tu trouve que c'est plus facile à implementer, bonne chance. Dans Word tu n'a que des bookmarks pour inserer un text comme ça ou tu utilises la fontion de lettre type. On va encore rigoler là.