Bonjour
pour ouvrir un document word :
qui se trouve dans le meme dossier que le fichier excel et qui se nomme test.docx
Sub ouvrir_Word()
Dim MonWord As Object
Dim MonDoc As Object
Dim Fic_Word As String
Fic_Word = ThisWorkbook.Path & "\test.docx"
Set MonWord = CreateObject("Word.Application")
MonWord.Visible = True
Set MonDoc = MonWord.Documents.Open(Filename:=Fic_Word, ConfirmConversions:=True, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=0, XMLTransform:="")
MonDoc.Application.FileDialog(msoFileDialogSaveAs).Show
End Sub
Fred