Private Sub ComboBox1_Change()
extension = UCase(Mid(Me.ComboBox1, InStr(Me.ComboBox1, ".") + 1))
Select Case extension
Case "XLS", "XLSM", "XLSX"
Workbooks.Open Filename:=Me.ComboBox1
Case "ppt"
rep = ActiveWorkbook.Path
Set Ole = CreateObject("powerpoint.Application")
Ole.Documents.Open (rep & "\" & Me.ComboBox1)
Ole.Visible = True
Case "PDF"
Fich = Me.ComboBox1
rep = ActiveWorkbook.Path
Shell "C:\Program Files (x86)\Adobe\reader 11.0\reader\AcroRd32.exe" & _
" " & rep & "\" & Fich, vbMaximizedFocus
End Select
Unload Me
End Sub