ouvrir fichier word

Bonjour à tous

je te fais une copie de code qu'avait envoyer michel

Sub OuvrirWord()
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
WordObj.documents.Add
End Sub

Sub LanceCalculatrice()
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)
End Sub

Sub OuvrirUnFichierPowerPoint()
Dim Cible
Cible = Shell("POWERPNT.EXE ""C:\Mes documents\MonFichier.ppt """, 1)
End Sub

A+ JPM

merci ca marche !!