Afficher un fichier texte

Résolu
Signaler
Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Statut
Membre
Dernière intervention
8 décembre 2005
-
Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Statut
Membre
Dernière intervention
8 décembre 2005
-
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...

5 réponses

Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
1 septembre 2010
1
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...]
3
Merci

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

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

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
5
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
Statut
Membre
Dernière intervention
1 septembre 2010
1
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
Statut
Membre
Dernière intervention
7 juin 2009
5
Autant pour moi, j'ai mal lu l'énoncé du problème ...
Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Statut
Membre
Dernière intervention
8 décembre 2005

Merci à tous, vos réponses mon vraiment été très utile.

a++