Ouvrir par macro un fichier word

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
Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 3 pages modifiées.