Private Sub commandButton1_Click()
Dim docWord As Word.Document
Dim appWord As Word.Application
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = False
Set docWord = appWord.Documents.Open(ThisWorkbook.Path & "\dossier.doc")
With docWord.mailMerge
.Destination = wdSendToPrinter
.suppressBlankLines = True
With .DataSource
.firstRecord = wdDefaultFirstRecord
.lastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Application.ScreenUpdating = True
docWord.Close False
appWord.Quit
End Sub
Sub RetraitTableauDansWord()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Dim j As Byte
On Error Resume Next
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True
Sheets("feuil1").UsedRange.Copy
Wrd.Selection.Paste
With Wrd.Selection
.Tables(1).Rows.SetLeftIndent LeftIndent:=27, RulerStyle:=1
End With
Application.CutCopyMode = False
End Sub