Ouvrir fichier TXT

Catégorie : Fichier

Publié par veriland le 13-Aug-2013 11:00

Voici une méthode courte et efficace qui permet d'ouvrir un fichier txt depuis Excel

 

Option Explicit
'Ti

Private Sub HyperLien(Fichier As String)
  Dim LBar As CommandBar, Visible As Boolean
   On Error Resume Next
    Set LBar = CommandBars("web")
      If Not LBar Is Nothing Then Visible = LBar.Visible
         ActiveWorkbook.FollowHyperlink Fichier
      If Not LBar Is Nothing And Not Visible Then LBar.Visible = False
End Sub

 

Sub OuvreTxt()
Dim Fichier
    Fichier = Application.GetOpenFilename("Fichiers Texte (*.txt), *.txt")
    If Fichier <> False Then HyperLien CStr(Fichier)
End Sub