1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Option Explicit
Sub EcrireFichier()
Dim sFichier As String
Dim LastRow As Long, LastCol As Long
Dim Sep As String, Num As Integer
Dim r As Long, c As Long, sStr As String
Dim NbCar As Long
Sep = ";"
sFichier = ThisWorkbook.Path & "\" & "Essai3.csv"
LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
Num = FreeFile
Open sFichier For Output As #Num
For r = 1 To LastRow
LastCol = Feuil1.Range("IV" & r).End(xlToLeft).Column
sStr = ""
NbCar = 0
For c = 1 To LastCol
sStr = sStr & Sep & Feuil1.Cells(r, c)
NbCar = NbCar + Len(Feuil1.Cells(r, c))
Next c
sStr = Mid$(sStr, 2, Len(sStr) - 1) & Sep
sStr = sStr & String$(512 - NbCar, Sep)
Print #Num, sStr
Next r
Close #Num
End Sub |
Partager