Ouvrir un fichier TXT, avec une macro

[Matthieu]

Je voudrais créer un fichier d'aide tout simple en .txt, en cliquant sur un bouton qui appellerait une macro qui ouvrirait le dis fichier.
Merci de votre aide.

 

[Domi]

Salut Matthieu

La fonction LIEN_HYPERTEXTE devrait certainement répondre à ton problème.

Domi

 

[Matthieu]

Ok, merci bcp, j'avais pas pensé à faire tout simplement cette solution. Bien que cela fonctionne si qq'un a une autre méthode en VB, cela m'inttéresse tout de même. Je C que l'on peut faire cela avec Access, alors pourquoi pas avec Excel !
Encore merci Domi.

 

[chris]

Bonjour
Le VBA ACCESS et EXCEl est très proche pour ce qui ne touche pas aux spécificités de chaque soft.
Si tu as déjà le code ACCESS il est probablement utilisable dans Excel à 80%.

Sinon ouvres le avec l'enregistreur macro enclenché et tu auras le code.

Chris

 

[Matthieu]

Merci bien pour cette solution simpliste, vraiment je me creuse la tete pour rien, cela fait 1H que je chercher comment faire alors qu'avec ta façno chris, C over simple, encore merci.

 

[michel]

bonjour Matthieu , Domi et Chris

ci dessous deux exemples
le premier ouvre le fichier txt spécifié
le deuxieme affiche le contenu du fichier txt dans une msgbox

Sub BlocNotes1() 'ouvrir un fichier txt
Dim Cible As String
Cible = Shell("NOTEPAD.EXE ""C:\Mes documents\michel excel\test.txt """, 1) 'adapter nom fichier
End Sub

Sub BlocNotes2() 'afficher le contenu d'un fichier txt dans un msgbox
Dim Val As Long
Dim Cible As String
Open "C:\Mes documents\michel excel\test.txt" For Input As #1
Val = FileLen("C:\Mes documents\michel excel\test.txt")
Cible = Input(Val, 1)
Close 1
MsgBox Cible, , "Fichier d'aide "
End Sub


bonne journée
michel

 

[Le rital]

Bonjour le forum,

Ouvrir un fichier *.txt par une macro n'est pas toujours la bonne solution

à moins que les données ne changent pas, si c'est le cas le séparateur change.

exemple : "" "." "," ":" etc.......

C'est juste un avis !

Cordialement

Le rital

 

[chris]

Bonjour le rital
Comme il s'agit d'un fichier d'aide, la structure n'est pas trop en cause.
Sinon tu as raison pour les data structurées.
Chris

 

[@+Thierry]

Bonjour ce Fil,

En plus des solutions proposées, n'oubliez pas le FollowHyperLink qui ne necessite pas de commande Shell...

Sub OpenFollowHyperLink()

ThisWorkbook.FollowHyperlink "C:\Documents and Settings\Thierry\Desktop\XLD-Database-2001-2003.txt"

End Sub

Si Matthieu veut juste ouvrir son Txt dans le NotePad, celà suffit amplement.

Maintenant les deux solutions de Michel sont bien aussi, la seconde est amusante pour envoyer le contenu d'un Txt dans une MsgBox

Bonne Journée
@+Thierry

 

[Matthieu]

Génial Michel,
C exactement ce que je cherchais à faire, je te remercie bcp. Et merci également à tout le monde de votre participation, ce forum est génial.
@+

 

[EMG]

Salut le forum,

sur le nouveau site VériTi dans VBA il y a la réponse avec un code de Ti

<http://perso.wanadoo.fr/veriti/excel/sommaire.htm>

@+ Gérard