Dans un module standard
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public 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 Ouvrir()
Dim Chemin as string, NomFich as string
    Chemin = "D:\Mes docs pdf\"
    NomFich = "Le fichier.pdf"
    ShellExecute 0, "", Chemin & NomFich, "", "", 0
End Sub
Cette solution permet d'ouvrir tout fichier associé à une application dans Windows (ouverture par deux clics sur le nom du fichier dans l'explorateur Windows)
Pour vérifier si un type donné de fichier est associé à Windows - Explorateur Windows-> Menu "Outils" -> "Options des dossiers" -> Onglet "Types de fichiers" -> "Ce fichier s'ouvre avec ... "