1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub ExportDonneesDansSignetsWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Dim Message
Set WordApp = CreateObject("Word.Application") ' ouvre une session word
Set WordDoc = WordApp.Documents.Open("C:\Documents and settings\Hervé\Mes documents\Macro.doc") ' ouvre le document word : Macro.doc
WordApp.Visible = False ' word est masqué pendant l'opération
' les signets sont les suivants : Nom1, Prénom2,Adresse3, Tel4
WordDoc.Bookmarks("Nom1").Range.Text = Cells(3, 1) ' copie A3
WordDoc.Bookmarks("Prénom2").Range.Text = Cells(3, 3) ' copie C3 ' et place le tout aux signets dans word
WordDoc.Bookmarks("Adresse3").Range.Text = Cells(3, 6) ' copie F3
WordDoc.Bookmarks("Tel4").Range.Text = Cells(3, 9) ' copie I3
WordApp.Visible = True ' affiche le document word
Message = MsgBox("Et voilà...La macro fonctionne !", vbOKOnly, "Hourra !")
' WordDoc.PrintOut ' Impression du document
End Sub |
