' Ouvrir programme par défaut Public Function OpenFile(ByRef File As String, Optional ByRef Parametres As String = "") As Object Process.Start(File) OpenFile = 1 End Function 'pour lancer Try 'Ouvre le fichier dans son programme par défaut OpenFile("chemin du fichier") Catch ex As Exception End Try