Sub locate_word_file()
Dim FileToOpen As Variant
Dim w As Workbook
FileToOpen = Application.GetOpenFilename("RTF Document [Avery Templates] (*.RTF), *.RTF,Word Document (*.doc), *.doc,")
If FileToOpen = False Then Exit Sub
MsgBox "Template Selected -> " & FileToOpen
For Each w In Application.Workbooks
w.Save
Next w
FichPerso$ = "FileToOpen"
FichWord$ = "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " '! ici un espace
Appel = Shell(FichWord$ & FichPerso$, 1) ' respecter cet ordre !
Application.Quit ' Quitte Excel
End Sub