Private Sub CommandButton6_Click() 'Envoyé un courrier
Dim Wapp As Object, x$
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
Wapp.Visible = True
Wapp.Documents.Open ThisWorkbook.Path & "\Doc_Word1.docx" 'nom à adapter
With Wapp.ActiveDocument
.Bookmarks("Date").Range = Date
x = Replace(Replace(Replace(CbxCivilite, "M.", "Monsieur"), "Mme", "Madame"), "Mlle", "Mademoiselle")
.Bookmarks("Civilite1").Range = x
.Bookmarks("Civilite2").Range = x
.Bookmarks("Civilite3").Range = x
.Bookmarks("Nom").Range = TextBox24 & " " & TextBox2
.Bookmarks("Adresse").Range = Mid(IIf(TextBox3 = "", "", vbLf & TextBox3) & IIf(TextBox4 = "", "", vbLf & TextBox4) _
& IIf(TextBox5 = "", "", vbLf & TextBox5) & IIf(TextBox6 = "", "", vbLf & TextBox6), 2) & vbLf & TextBox7 & " " & TextBox25
End With
AppActivate "Word" 'facultatif
End Sub