1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open("C:\Users\THINKPAD\Desktop\malheia2\projet info\sondage.docx", ReadOnly:=False)
'On Ouvre le document Word
ThisWorkbook.Worksheets("Feuil3").Range("A:L").Copy
'On copie les réponses au sondage
DocWord.Range.PasteSpecial
'Colle les données dans Word
Application.CutCopyMode = False
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
'On quitte Word |
