Bonjour,

J'ai besoin d'exporter mes données d'une feuille excel dans un fichier txt avec des PIPE comme séparateur. J'ai mon code en VBA qui fonctionne correctement à un petit détail près, c'est que je ne souhaite pas avoir de pipe sur la dernière colonne.

Je sèche complètement, donc si vous avez des idées je suis preneur !

Merci



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    sep = "|"
        With Worksheets("Sortie")
            Set Plage = .Range("A1:V4")
        End With
 
    Open chemin & "\" & nomfichier For Output As #1
 
 
    For Each oL In Plage.Rows
 
        Tmp = ""
 
        For Each oC In oL.Cells
 
        Tmp = Tmp & CStr(oC.Text) & sep
        Next
 
        Print #1, Tmp
 
    Next
 
    Close