EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
Ouvrir fichier TXT
Publié par veriland le 13-Aug-2013 11:00 (1848 lectures)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
|
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
|
||||
