Ouvrir un fichier txt

Question

Bonjour,
Je cherche la maniere avec laquelle je peux ouvrir un fichier texte existant et l'afficher sur l'ecran.
Merci

jrivet · Answer

Salut,
Shell Ou ShellExecute devrait l'ouvrir dans notepad.

Ensuite si  c'était ouvrir par le code (en mémoire) et l'afficher dans une textbox ou un autre objet, il aurait été bon de le dire, et d'être un peu plus précis.

@+: Ju£i€n
Pensez: Réponse acceptée

mabejaoui · Answer

Je veux l'ouvrir en notepad.
J'ai essayé la commande suivante :
 Shell ("C:\MyFile.txt") 
mais ça ne marche pas (erreur d'execution 5).
Merci.

cs_fauve · Answer

Salut,

Si tu as des soucis avec Shell, tu peux exécuter ton fichier par une autre manière comme l'exemple ci-dessous :

Dim monProcess As New Process()

monProcess.StartInfo.FileName = "C:\MyFile.doc"
monProcess.Start()

++
---------------------
Pensez : Réponse Acceptée

mabejaoui · Answer

J'utilise VBA for excel et non pas .Net ;)

cs_fauve · Answer

Oups c'est désolé autant pour moi 

Peux tu mettre le code que tu utilises pour lancer ton fichier (notamment, la fonction Shell)

++

cs_Exploreur · Answer

Salut,

Regarde ce Snippet, en l'adaptant tu devrais pouvoir faire ce que tu désires....au lien d'envoyer une chaine via le buffer, tu charge le buffer de ce qu'il y a dans ton fichier texte....Par contre si tu veux une source sur cela, j'en ai fait une mais pas dispo sur le site...si tu veux donne moi ton mail par MP, et je t'envoi cette source....Mais tu auras de toute façon à retoucher le code...^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

mabejaoui · Answer

Voici je ce que j'ai utilisé
Chemin = ""C:\MyFile.txt"
Shell (Chemin)
=> (erreur d'execution 5)

cs_fauve · Answer

Quand tu initialises la variable Chemin, je vois que tu as deux guillemets...

Est ce une erreur que tu as fais lorsque tu as mis ton code sur le forum ou alors tu as çà aussi dans ton Visual Basic Editor ?

++

mabejaoui · Answer

Voici je ce que j'ai utilisé
Chemin = "C:\MyFile.txt"
Shell (Chemin)
=> (erreur d'execution 5)

cs_fauve · Answer

Et si tu faisais directement :

Shell("C:\MyFile.txt") ???

Est ce que ca fonctionne ?

mabejaoui · Answer

oui je l'utilise de cette façon mais ça ne fonctionne pas :((

cs_fauve · Answer

Je crois que j'ai trouvé :

Juste au dessus de ton sub, tu mets ceci :

PublicDeclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_SHOWNORMAL = 1

Et dans ton sub, tu mets ceci :

Dim Id As Long

 Id = ShellExecute(hwnd, "Open", "C:\MyFile.txt", ByVal 0&, 0&, SW_Normal)

Çà devrait fonctionner

++
------------------------
Pensez : Réponse acceptée

mabejaoui · Answer

Dès que je mets la declaration de ShellExecute , un dialog box s'affiche au niveau de VB editor indiquant (Erreur de compilation : Des constantes,chaînes de longueur fixe...............ne sont pas autorisés comme membre Public de modules d'objet.

cs_fauve · Answer

C'est bizarre c'est moi çà fonctionne très bien, sachant que j'obtenais la même erreur que toi pour Shell

Peux tu mettre tout ton code afin que j'essaie de trouver où çà ne fonctionne pas ?

mabejaoui · Answer

Bon ça marche avec cette façon
C = Shell("notepad.exe " & "C:\MyFile.txt", vbMaximizedFocus)

jrivet · Answer

Salut,
Tu penseras à valider les posts qui t'ont aider à avancer (grosso modo ceux ou il y a SHELL)

NOTE/ Avant d'essayer une fonction, regarde son aide en ligne.
@+: Ju£i€n
Pensez: Réponse acceptée

Ouvrir un fichier txt

16 réponses

Votre réponse

Discussions similaires