Sub Ouvrir_DocWord()
Dim Fichier As String
Dim WordApp
Dim WordDoc
Set WordApp = CreateObject('Word.Application')
Fichier = 'C:\\toto1.doc'
On Error GoTo Line1
Set WordDoc = WordApp.Documents.Open(Fichier)
WordApp.Visible = True
Exit Sub
Line1:
MsgBox 'Le fichier ' & Fichier & _
' n 'existe pas !', vbOKOnly + vbExclamation, 'Attention'
End Sub