Afficher un fichier texte [Résolu]

Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Dernière intervention
8 décembre 2005
- - Dernière réponse : cs_karamasof
Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Dernière intervention
8 décembre 2005
- 10 janv. 2005 à 16:59
Bonjour à tous, je travaille en vba pour excel, et j'aurai aimai savoir comment je pouvait faire pour afficher un fichier texte. En fait j'ai une msgbox, et je voudrai que mon fichier texte s'ouvre et s'affiche à l'écran lorsque je clique sur ok.

Merci d'avance...
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
1
3
Merci
J'ai oublié pour qu'il s'affiche à l'écran:

Shell("NotePad.exe C:\tonfichier.txt", vbNormalFocus)

@+

--------------------------------------------------------------------------------
Phantom_2005 [A la recherche de la source parfaite...]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 124 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Dernière intervention
7 juin 2009
3
0
Merci
Salut,

Y a peut-être plus court, mais je te propose ça :

Public Sub gsub_Display()
Dim li_Numfile As Integer
Dim ls_Buffer As String
Dim ls_MessageAAfficher As String
'Affecte un numero de canal au fichier
li_Numfile = FreeFile
'Ouvre le fichier
Open "c:\traductions.sql" For Input As #li_Numfile
ls_MessageAAfficher = ""
'Parcourt le fichier et récupère chaque ligne
While Not EOF(li_Numfile)
Input #li_Numfile, ls_Buffer
ls_MessageAAfficher = ls_MessageAAfficher & ls_Buffer & vbCrLf
Wend
'Ferme le fichier
Close #li_Numfile
'Affiche le message
MsgBox ls_MessageAAfficher


End Sub
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
1
0
Merci
Salut,

je sais pas si ca te conviendra mais tu peux faire:

If (MsgBox("blablabla")=vbOk) Then
Shell "Notepad.exe C:\tonfichier.txt"
End If

@+

--------------------------------------------------------------------------------
Phantom_2005 [A la recherche de la source parfaite...]
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Dernière intervention
7 juin 2009
3
0
Merci
Autant pour moi, j'ai mal lu l'énoncé du problème ...
Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Dernière intervention
8 décembre 2005
0
Merci
Merci à tous, vos réponses mon vraiment été très utile.

a++

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.