userform qui permet d'ouvrir fichiers excel xls,xlsm

ngexcel · 13 Janvier 2015

bonsoir
je reviens après avoir essayé avec excel 2007 mon fichier et j arrive a lister les fichiers excel dans un répertoire
mais j arrive juste a ouvrir les format xls

quelqu un peux regarder le fichier
j'ai besoin d 'aide

help merci

Roland_M · 13 Janvier 2015

Re : userform qui permet d'ouvrir fichiers excel xls,xlsm

re

voir déjà dans ton autre fil !

Papou-net · 13 Janvier 2015

Re : userform qui permet d'ouvrir fichiers excel xls,xlsm

Bonsoir ngexcel,

Voilà qui devrait régler le problème:

Code:

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

Cordialement.

Edit: Bonsoir Roland_M

userform qui permet d'ouvrir fichiers excel xls,xlsm

ngexcel

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

Discussions similaires