Ouverture de fichiers grâce à l'extension ...

Je recherche un code du style de celui déposé jadis par Darty et qui merde avec VB6.
Il me servira à créer un seul bouton de commande, dans un formulaire ACCESS, permettant d'ouvrir
plusieurs sortes de fichiers (Word, Excel, PowerPoint) sans OLE et uniquement en
se basant sur l'extension. Si vous avez des infos ou une autre idée pour réaliser la
même chose, merci de me les faire parvenir.

utilise l'api:
Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal lpFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long


retval = ShellExecuteA(0, "Open", s, "", "", 10)
où s= chemin du fichier à ouvrir (ex:"C:\mes documents\test.doc")


-------------------------------
Réponse au message :
-------------------------------


Je recherche un code du style de celui déposé jadis par Darty et qui merde avec VB6.
Il me servira à créer un seul bouton de commande, dans un formulaire ACCESS, permettant d'ouvrir
plusieurs sortes de fichiers (Word, Excel, PowerPoint) sans OLE et uniquement en
se basant sur l'extension. Si vous avez des infos ou une autre idée pour réaliser la
même chose, merci de me les faire parvenir.