VB Command

"Léon Hajduk" a écrit dans le message de news:...

"Jasper Recto" a écrit dans le message de
...
I have a button that runs the function below. It opens an excel document.
I also have other funtion that opens up other documents whether it be a
word or pdf docuement.

This command opens each document in an explorer window.

How can I make a generic command that will open up the file in its native
program. That way an excel file will open in excel, etc...

Thanks,
Jasper



Function Administration()
Dim MyPath As String
Dim Word

MyPath = "\\LocFile\Departments\Quality
Control\Public\ISO-TS16949\ADMINISTRATION INDEX.xls\"
Word = Shell("Explorer.exe " & MyPath & """", 1)

End Function