afficher un fichier texte

[couphil]

Bonsoir le forum

Par le biais d'un userform, j'ai recuperé des données que j'ai transferer sur un fichier texte avec "append", jusque là ca roule.
Mon but maintenant serait de faire afficher a l'ecran ce fichier texte mais pas sous la forme d'un boite de message, mais simplement en fichier texte comme il apparrait quand on ouvre un tel fichier par la boite de dialoque de Windows "rechercher".
J'ai cherché sur les post precedends du forum mais rien ne peut m'aider.
Je ne cherche pas une reponse claire (j'aime bien me torturer l'esprit, c'est comme ca qu'on avance...) mais un aiguillage, un conseil, une idée!

Merci d'avance et bonne soirée.

 

[michel]

bonjour Couphil

si j'ai bien compris ta demande , ces deux exemples permettent d'ouvrir un fichier Txt ( cela fonctionne aussi pour d'autres formats de documents : pdf , doc , xls ...etc... )


Sub AffichageTxt_V01()
Dim Cible As Long
Cible = Shell("notepad.EXE ""C:\Documents and Settings\michel\monFichier.txt""", vbMaximizedFocus)
End Sub


Sub AffichageTxt_V02()
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\michel\monFichier.txt"
End Sub


bonne journée
MichelXld

 

[couphil]

bonsoir michel

Merci de ta reponse! je n'ai pas pu revenir avant.

je vais essayer tout ca merci encore.