Private Sub CommandButton47_Click()
Dim NDF As String
Dim WordApp As Object
Dim WordDoc As Object
NDF = "D:\Documents and Settings\Sebastien\My Documents\logiciel solaire\Proposition.doc"
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
With WordApp
.Visible = False
.Selection.Goto What:=-1, Name:="Reference"
.Selection.TypeText Text:=Sheets("enregistrement").Cells(1, Colonne_Travail)
.Selection.Goto What:=-1, Name:="Nom"
.Selection.TypeText Text:=Sheets("enregistrement").Cells(3, Colonne_Travail)
.Visible = True
End With
End Sub