Comment depuis une macro excel ouvrir un fichier word ou pdf ?

Pour word :

 Dim appWD As Word.Application
 Set appWD = CreateObject("Word.Application") ' un objet
 word est créé
 appWD.Documents.Open Filename:="C:\......\x.doc"
 ....
 appWD.Quit ' je quitte Word

Pour un pdf (c'est le même principe pour toute appli non microsoft). Une solution parmi d'autres (code dans un module ordinaire) :

 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 sub ShellOuvre()
 Dim fich
  fich = "D:\Perso\cession.pdf" 'à adapter
  ShellExecute 0, "open", fich, "", "", 0
 end sub