Excel
• •Planning 5 à 7 - V 1.0
• •Clé dynamométrique - V 1.0
• •Tour de Hanoï - V 1.0
• •WebRadio - V 1.1
• •ZipTi - V 2.3

PPS
• •PPS 24
• •PPS 23
• •PPS 22
• •PPS 21
• •PPS 20

OOo
• •Didactitiel OOo - V 2.0

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

Date de création : 24/05/2005 - 19:04
Dernière modification : 25/05/2005 - 21:28
Catégorie : Fichier
Page lue 3849 fois

 Prévisualiser la page      Imprimer la page

Aujourd'hui :
Nativité

Un p'tit don ?

C'était aussi un 08 Septembre
1994

Les Soviétiques et les Alliés quittent Berlin après 49 ans d'occupation.

Né(e) un 08 Septembre 1910
Jean-Louis Barrault

  Membres: 1660

[ Mot de passe perdu ? ]

[ Devenir membre ]

  Membre en ligne: 0

  Anonymes en ligne: 46

1384478