'~~~~ Ne pas oublier de référencer Microsoft Word dans le projet Dim mdocMyDoc As New Document Dim mbVisible As Boolean Private Sub Command1_Click() Dim strElement As String For n = 0 To List1.ListCount - 1 List1.ListIndex = n strElement = strElement & List1.Text & vbCrLf Next '~~~~ On ajoute le texte au document mdocMyDoc.Range.Text = strElement '~~~~ On rends l'application visible mdocMyDoc.Application.Visible = True '~~~~ On lance le printView mdocMyDoc.PrintPreview End Sub Private Sub Form_Load() '~~~~ On détermine si Word est lancé depuis VB mbVisible = mdocMyDoc.Application.Visible End Sub Private Sub Form_Unload(Cancel As Integer) If mbVisible = True Then '~~~~ Word étais déja lancé donc on ferme le document mdocMyDoc.Close SaveChanges:=False Else '~~~~ Word n'étais pas lancé donc on quitte mdocMyDoc.Application.Quit SaveChanges:=False End If End Sub