Discussion :

[meyerbsa]

Bonjour à tous,

Je désirerais effectuer une transformation d'un fichier excell vers un fichier .txt

La méthode retenue est la suivante:


1) copier la colonne A de la feuille1 de mon tableau Excell
2) Ouvrir Word
3) Coller le tableau
4) convertir le tableau en texte
5) enregistrer le fichier word en .txt dans le même dossier que le fichier excell.

Je suis arrivé à effectuer les 3 premières étapes avec la macro suivante, mais là je bloque.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub CopiedansWord()
 
' Création d'une variable de type Application
Dim w As Word.Application
Set w = New Word.Application
 
' Création d'une variable de type Document
Dim wdoc As Word.Document
Set wdoc = w.Documents.Add
 
w.Visible = True
 
'Copie dans Excel
Range("A1:B5").Copy
 
w.Selection.Paste
 
wdoc.Tables(1).AutoFitBehavior wdAutoFitWindow
 
Application.CutCopyMode = False
 
 
 
End Sub

Auriez-vous une idée ou une solution adaptée à am demande?
Je vous glisse le document xlsm et le txt final que je souhaite obtenir.

test.txt

Calssseur de test.xlsm

je vous remercie d'avance

[Menhir]

Je ne comprends pas ton processus.

Si ton but est de transformer un contenu Excel en texte pur, pourquoi passer par Word ?
Il serait plus simple de transformer directement de l'Excel en txt, surtout s'il n'y a qu'une seule colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub CopieTxt()
Dim Source As Worksheet
 
Set Source = ActiveSheet
Worksheets.Add
 
Source.Range("A1:B5").Copy Range("A1")
ActiveSheet.SaveAs(ActiveWorkbook.Path & "\MonFichier.txt", xlTextWindows)
 
DisplayAlerts = False
ActiveSheet.Delete
DisplayAlerts = True
 
End Sub

C'est du code écrit à l'arrache directement sur le forum et non testé.
Il se peut donc que tu ais un peu de débugage à faire.

[patricktoulon]

bonjour
tu peux aussi créer ton fichier texte tout simplement avec open for output
voici une petite fonction toute simple et la sub pour la tester

la sub pour l'appeler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    saveplageto_TXT Range("A1:f10"), "C:\Users\polux\Desktop\ttt.txt", ","
'argument 1 plage a sauver en text
'argument 2 chemin de destination (complet)
'argument 3 separateur de colonne dans le .texte(facultatif ":" par defaut)
End Sub

la sub qui fait le boulot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub saveplageto_TXT(rang As Range, fichier, Optional sep = ";")
    Dim x As Long
    rang.Copy: With CreateObject("htmlfile"): txt = Replace(.parentwindow.clipboardData.GetData("Text"), vbTab, sep): End With
    x = FreeFile: Open fichier For Output As #x: Print #x, txt: Close #x
    Application.CutCopyMode = False
End Sub