Macro ouvrir fichier ".txt"

gourdin

XLDnaute Impliqué

• 22 Septembre 2010

• #16

Re : Macro ouvrir fichier ".txt"

Voici un exemple de fichier excel avec le collage effectué (allégé pour l'exemple à une centaine de lignes)

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 22 Septembre 2010

• #17

Re : Macro ouvrir fichier ".txt"

Avec le fichier c'est mieux
Désolé

 

Pièces jointes

• exemple.xls

  29.5 KB · Affichages: 211
• exemple.xls

  29.5 KB · Affichages: 244
• exemple.xls

  29.5 KB · Affichages: 258

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Septembre 2010

• #18

Re : Macro ouvrir fichier ".txt"

Re ,
Ma réponse en #12 devrait convenir. As-tu essayé ?
A +

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 22 Septembre 2010

• #19

Re : Macro ouvrir fichier ".txt"

Non je n'ai pas encore essayé (les messages se sont croisés)

Je vais essayer un peu plus tard et te tenir au courant.

Merci encore

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 22 Septembre 2010

• #20

Re : Macro ouvrir fichier ".txt"

En effet le code suivant de JNP fonctionne très bien :

Sub Macro1()
ChDir ThisWorkbook.Path
Workbooks.OpenText Filename:= _
ThisWorkbook.Path & "\monfichier.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub

Le code génère un nouveau fichier excel nommé "monfichier".
N'y a t-il pas possibilité que le texte se colle dans le fichier ou il y la macro sans créer un nouveau fichier ?
Merci

 

Dernière édition: 22 Septembre 2010

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 22 Septembre 2010

• #21

.....................

 

Dernière édition: 22 Septembre 2010

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Septembre 2010

• #22

Re : Macro ouvrir fichier ".txt"

Bonjour Gourdin et JnP
En fait je dois être en retard

Alors la solution de JnP légèrement modifiée devrais l'faire
Sub test()
Dim fs, a
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(ThisWorkbook.Path & "\monfichier.txt")
i = 1
While Not a.atendofstream

Cells(1, 1) = a.readline
Cells(1, 1).Insert
i = i + 1
Wend
a.Close
End Sub

 

Dernière édition: 23 Septembre 2010

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 23 Septembre 2010

• #23

Re : Macro ouvrir fichier ".txt"

En effet celà place toute lmes données texte sur la même page

A noter que les données sont à l'envers par ligne (Texte en A1 se trouve à la dernière cellule A1870)


Merci

 

Vote positif 0 Vote négatif