Code pour ouvrir un Fichier txt

CBernardT

XLDnaute Barbatruc

• 1 Novembre 2009

• #2

Re : Code pour ouvrir un Fichier txt

Bonsoir Vaucluse immo,

Essaye avec cette syntaxe :


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

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 1 Novembre 2009

• #3

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 1 Novembre 2009

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2009

• #5

Re : Code pour ouvrir un Fichier txt

Bonsoir à tous


Utilise notepad

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

Code:

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

 

Dernière édition: 2 Novembre 2009

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 1 Novembre 2009

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2009

• #7

Re : Code pour ouvrir un Fichier txt

Re

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

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 1 Novembre 2009

• #8

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

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 2 Novembre 2009

• #9

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

 

Dernière édition: 2 Novembre 2009

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Novembre 2009

• #10

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 ?

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 2 Novembre 2009

• #11

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"

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Novembre 2009

• #12

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 )

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 2 Novembre 2009

• #13

Re : Code pour ouvrir un Fichier txt

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Novembre 2009

• #14

Re : Code pour ouvrir un Fichier txt

Re

Voila ce que je voulais dire 🙄

Code:

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 ... 😉 )

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 3 Novembre 2009

• #15

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

 

Vote positif 0 Vote négatif