boite de dialogue sous excel pour ouvrir des fichiers word

Sub hh()
FiletoOpen = Application.GetOpenFilename("Fichiers Word (*.doc), *.doc")
If FiletoOpen <> False Then
MsgBox "Open " & FiletoOpen
ActiveWorkbook.FollowHyperlink FiletoOpen


End If
End Sub

'Shell pathname:="Winword.exe" & " " & FiletoOpen, windowstyle:=1


laméthode d'ouverture du fichier word n'est pas nickel, ton classeur risque en fait de se fermer.
mais il existe d'autres méthodes d'ouverture que celles que j'ai citées