[XL-2003] Export *.CSV avec nombre de caractère fixe par ligne

Salut, à tester, adapter et optimiser mais la base est là

Code:

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
Option Explicit
 
Sub EcrireFichier()
Dim Fichier 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
 
    Sep = ";"
    Fichier = ThisWorkbook.Path & "\" & "Essai.csv"
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    Num = FreeFile
 
    Open Fichier For Output As #Num
        For r = 1 To LastRow
            LastCol = Feuil1.Range("IV" & r).End(xlToLeft).Column
            sStr = ""
            For c = 1 To LastCol
               sStr = sStr & Sep & Feuil1.Cells(r, c)
            Next c
            sStr = Mid$(sStr, 2, Len(sStr) - 1)
            sStr = sStr & String$(512 - LastCol, Sep)
            Print #Num, sStr
        Next r
    Close #Num
End Sub

Une autre interprétation donne ceci

Code:

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