Afficher un fichier texte [Résolu]

cs_karamasof 11 Messages postés lundi 29 novembre 2004Date d'inscription 8 décembre 2005 Dernière intervention - 10 janv. 2005 à 15:21 - Dernière réponse : cs_karamasof 11 Messages postés lundi 29 novembre 2004Date d'inscription 8 décembre 2005 Dernière intervention
- 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
phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 10 janv. 2005 à 16:27
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...]

Merci phantom_2005 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

mrdep1978 402 Messages postés jeudi 25 novembre 2004Date d'inscription 7 juin 2009 Dernière intervention - 10 janv. 2005 à 15:32
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
phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 10 janv. 2005 à 16:24
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...]
mrdep1978 402 Messages postés jeudi 25 novembre 2004Date d'inscription 7 juin 2009 Dernière intervention - 10 janv. 2005 à 16:51
0
Merci
Autant pour moi, j'ai mal lu l'énoncé du problème ...
cs_karamasof 11 Messages postés lundi 29 novembre 2004Date d'inscription 8 décembre 2005 Dernière intervention - 10 janv. 2005 à 16:59
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.