bonjour;

j'ai un problème pour automatiser une macro pour convertir plusieurs fichiers excel 2010 en csv avec des guillemets et chaque fichier possède un voir 2 onglets le tout c'est 126 fichiers repartis dans 21 dossier suivants des projets.

la macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export()
    Dim Enrgt As String
    Close #1
    Open "C:\Users\Desktop\test.csv" For Output As #1
    For Each c In Range([A1], Cells(Rows.Count, 1).End(xlUp))
        Enrgt = ""
        For Each x In Range(Cells(c.Row, 1), Cells(c.Row, Columns.Count).End(xlToLeft))
            Enrgt = Enrgt & """;""" & x.Value
        Next x
        Enrgt = Right(Enrgt, Len(Enrgt) - 2) & """"
        Print #1, Enrgt
    Next c
    Close #1
End Sub
En plus de ça j'ai certaines cellules en forme 001 et la macro les converties a 1

merci