Exporter une ligne de fichier Excel vers un fichier txt
D
Bonjour à tous,
Je cherche la solution à ce problème depuis longtemps :
je voudrais exporter chaque ligne d'un fichier excel vers un fichier txt de façon automatique.
Par exemple exporter la ligne A vers un fichier toto.txt, puis la ligne B vers un fichier tata.txt etc...
Mon fichier fait 400 lignes...
Merci à tous pour l'aide que vous pourrez m'apporter.
PS : je ne connais pas la programmation et je débute sur VB.
Merci encore
D.
t
Bonjour
Je le ferais de cette façon :
Private Sub Help_Click()
'declaration pour création du fichier plat
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Dim Path As String
Path = ActiveWorkbook.Path
'Avant de créer il faudra bien supprimer le précédant crée
Kill Path & "\Help.txt"
'création nouveau fichier texte
Set oFile = fso.CreateTextFile(Path & "\Help.txt")
Sheet1.Unprotect
der_ligne = Sheets("Sheet2").Range("A65536").End(xlUp).Row ' identification derniere ligne colonne A
For Each c In Sheets("Sheet2").Range("A1:A" & der_ligne) ' je boucle sur chaque ligne de ton fichier jusqu a la derniere ligne
oFile.WriteLine c & Chr(9) & c.Offset(0, 1) ' j affiche colonne A + tabulation + colonne B
Next
'Fermeture fichier crée
oFile.Close
Set fso = Nothing
Set oFile = Nothing
'Afficher le txt
MsgBox " Le fichier va s'ouvrir ... "
fichier = Path & "\Help.txt"
Shell ("C:\Windows\System32\notepad.exe " & fichier)
End SubCdt,