Discussion :

[macromega]

bonjour à tous !
je cherche le code d'une macro qui ouvre un tel fichier de n'importe quelle extention, autrement elle va dans Données>Données externes>Importer des données externes, si vous pouvez m'aider ca sera bien gentil.merci d'avance

[ouskel'n'or]

Juste une idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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