[[VBA-E]je cherche une macro sur excel qui ouvre un fichier

Juste une idée
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   Select case lcase(extension)
      case "exe"
            Workbooks.Open Filename:=Chemin+NomFich
      Case "doc"
            Set Wd = CreateObject("Word.Application")
            Set dwd = Wd.Documents.Open(Chemin+NomFich)
            Wd.Visible = True
            DoEvents
      Case "jpg", "bmp" ...
            Call Shell("cmd /c C:\WINDOWS\SYSTEM32\mspaint.exe c:\Mes documents\Fichier.jpg")
      Case "txt"
            Call Shell("cmd /c c:\windows\Notepad.exe c:\Fichier.txt")
            'ou
            Open "c:\Fichier.txt" For Input As #1
            Do While Not EOF(1)
                   Line Input #1, Ligne
                   MsgBox Ligne    'séparateur de colonnes = ctrl H -> Tab
            Loop
            Close #1
      Case ... etc
            '....
   End select