Re : Export de donnees de Excel vers fichier .txt
Bonjour toutou.
Voici quelques chose qui devrait ressembler à ce que tu cherches,
peut_être quelques mofications à faire, mais c'est une méthode pour fabriquer un fichier texte.
Dim maphrase
Dim fichier
Sub deb()
Set objet = CreateObject("Scripting.FileSystemObject")
Set fichier = objet.CreateTextFile("D:\Documents and Settings\Sourbelle\Bureau\toto.txt")
Set k1 = Sheets(1).Range("a2")
i = 0
While k1.Offset(i, 0) <> ""
f1 = k1.Offset(i, 0)
a1 = k1.Offset(i, 1)
f2 = k1.Offset(i + 1, 0)
a2 = k1.Offset(i + 1, 1)
Call ecrit(f1, a1, f2, a2)
i = i + 2
'fichier.writeline maphrase
Wend
End Sub
Sub ecrit(f1, a1, f2, a2)
fichier.writeline "$data=array("
fichier.writeline "array("
fichier.writeline "'fournisseur'=>'" & f1 & "',"
fichier.writeline "'address_id'=>'" & a1 & "',"
fichier.writeline "),"
fichier.writeline "array("
fichier.writeline "'company'=>'" & f2 & "',"
fichier.writeline "'address_id'=>'" & a2 & "',"
fichier.writeline "),"
fichier.writeline ");"
End Sub