Code pour ouvrir un Fichier txt

[MuscatMimi]

Bonsoir a tout le Forum

je cherche le code pour ouvrir un fichier txt avec un bouton

merci de votre aide
Cordialement

 

[CBernardT]

Re : Code pour ouvrir un Fichier txt

Bonsoir Vaucluse immo,

Essaye avec cette syntaxe :


Sub OuverturefichierText()
Workbooks.OpenText Filename:="C:\.....Fichier.txt"
End Sub

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

Bonsoit BernardT

Je connais ce code, il importe les données du fichier txt dans une feuil Excel en ouvrant un classeur
C'est pas cela que je cherche

Il faut simplement que j'ouvre mon Fichier .txt c'est tout

 

[jeanpierre]

Re : Code pour ouvrir un Fichier txt

Bonsoir vaucluse, Bernard,

Décidément, c'est pas mon jour...

Y-a-t'il besoin d'Excel pour ouvrir un fichier, qu'il soit texte ou autre chose ?

Comprends pas donc....

Bonne soirée.

Jean-Pierre

 

[Staple1600]

Re : Code pour ouvrir un Fichier txt

Bonsoir à tous


Utilise notepad

(quitte à le lancer à partir d'Excel ... )

Sub o()
Dim retval$
retval = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE c:\Temp\toto.txt"
Shell retval, vbMaximizedFocus
End Sub

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

Bonsoir JeanPierre et Staple

J'ai un bouton sur une feuille ,et avec ce bouton,je veux ouvrir un Fichier txt
tout simplement
A++++++++ a tous

 

[Staple1600]

Re : Code pour ouvrir un Fichier txt

Re

Tu as essayé le code que je viens d'ajouter à mon message précédent ?

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

Re Staple

J'avais pas vu ta modif
Ca fonctionne trés bien

Merci Staple

Bonne soirée

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

Re Staple

Ton code fonctionne bien,mais le chemin est spécifique dans le code
le soucis que j'ai c'est qu'il faudrait

que le chemin soit standart, afin de pouvoir stocker ce Dossier (Fichier Excel et .txt
sur n'importe quelle partition de mon disque dur

Cordialement

 

[Staple1600]

Re : Code pour ouvrir un Fichier txt

Re



Qu'appelles-tu un chemin standard ?


Si tu ouvres un fichier texte, tu es censé savoir ou il est non ?

Donc connaitre son path , non ?

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

Re Sataple

dans ton code le chemin du fichier est nommé dans le code

retval = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE c:\Temp\toto.txt"

Si une autre personne utilise ce fichier Excel et Fichier txt inclu dans le Dossier, et quel place ce dossier la ,ou bon lui semble,
Ex:F:\Mes Documents Cat\Formation logiciels\Excel\Comparateur Prix......
il sera impossible d'ouvrir le fichier txt,vu que le chemin a changé

A plus
Bonne soirée

 

[Staple1600]

Re : Code pour ouvrir un Fichier txt

Re

Ton fichier texte est stocké dans le dossier ou est enregistré le classeur


Donc le path = ThisWorkBook.Path


Je te laisse déduire les modifications à faire sur le code précédent.

Rappel: retval est une String (et on peut concaténer une String )

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

J'avoue ne pas comprendre
désolé de mon ignorance

 

[Staple1600]

Re : Code pour ouvrir un Fichier txt

Re

Voila ce que je voulais dire 🙄

Dim retval$, mondossier$, monfichier
mondossier = ThisWorkbook.Path & "\"
monfichier = "toto.txt"
retval = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE " & mondossier & monfichier
Shell retval, vbMaximizedFocus

(En tant qu'XLDnaute impliqué, you should have known ... 😉 )

 

[MuscatMimi]

Re : Code pour ouvrir un Fichier txt

Bonjour Staple1600

J'avoue que tu a raison, au lieu d'avancer, je constate depuis qq temps que je régresse

la vieillesse sans doute,mais ça commence a m'inquiéter

Merci tout de même pour ta réponse, perso j'aurai pas trouvé
j'en étais pas trés loin, mais j'y serais pas arrivé

allez bonne journée quand même,faut que je travaille sur moi-même
Cordialement