Sub creerNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = CreateObject('Word.Application')
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add
docWrd.SaveAs 'I:\\Mes documents\\Thomas.doc'
End Sub