Export csv UTF 8 qui s'arrete quand colonne vide

Bonjour a Tous,

J'utilise cette macro pour export mes données en csv UTF 8, cela fonctionne très bien.

Le problème est que le traitement s'arrête lorsque la macro rencontre une colonne vide, est il possible d'y remédier ?

Dim Plage As Range, oL As Range, Oc As Range, Tmp As String

Set Plage = Worksheets("ALL_CMD").Range("A1").CurrentRegion

Open ThisWorkbook.Path & "\" & "test" & ".csv" For Output As #1

For Each oL In Plage.Rows

Tmp = " "

For Each Oc In oL.Cells

Tmp = Tmp & CStr(Oc.Text) & ";"

Next

Print #1, Utf8_Encode(Tmp)

Next

Close

Bonjour,

Essayez ceci, je ne peux pas le tester pour le vérifier.

    Dim Plage As Range, oL As Range, Oc As Range, Tmp As String
    Set Plage = Worksheets("ALL_CMD").Range("A1").CurrentRegion
    Open ThisWorkbook.Path & "\" & "test" & ".csv" For Output As #1
    For Each oL In Plage.Rows
        Tmp = ""
        For Each Oc In oL.Cells
            On Error Resume Next
            Tmp = Tmp & CStr(Oc.Text) & "; "
            If Err.Number <> 0 Then On Error GoTo 0
        Next
        If Tmp <> "" Then Print #1, Utf8_Encode(Tmp)
    Next
    Close

Cdlt

Bonjour,

CurrentRegion ne prend que les cellules contiguës, donc si tu as un collones vide le traitement ne prendra en compte que ce qui ce trouve à gauche de la colonne vide!

Si tu mets un tire de collone sur la premier ligne alors toute la plage sera prise en considération.

Tu peux également utiliser UsedRange en lieu et place de CurrentRegion