Sub CreerOuvrirWord()
Dim Nom As String, NomDoc As String, Chemin As String, oWord As Word.Application, oDoc As Word.Document
Nom = Cells(ActiveCell.Row, 2) & " " & Cells(ActiveCell.Row, 3)
NomDoc = Nom & ".doc"
If Len(Nom) = 1 Then Exit Sub 'si la ligne ne contient ni nom ni prénom on quitte
Chemin = ActiveWorkbook.Path & "\" & NomDoc 'à adapter ici répertoire courant
On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set oWord = CreateObject("Word.Application")
End If
On Error GoTo 0
If Dir(Chemin) <> "" Then
Set oDoc = oWord.Documents.Open(Chemin)
Else
Set oDoc = oWord.Documents.Add
oDoc.SaveAs Chemin
End If
oWord.Visible = True
oWord.Activate
End Sub