Discussion :

[karido-74]

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

[Daniel.C]

Mets en PJ un échantillon de fichier (sans données confidentielles). Si les fichiers sont répartis dossiers, comment reconnait-on les fichiers à convertir ? ou est-ce l'utilisateur qui choisit ?

[karido-74]

Bonjour,

j'ai réussi a trouver une autre macro sur le net qui ne convertie pas les cellules (001 en 1) sauf que cette macro elle ne met pas les champs entre guillemets

voila 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
15
16
17
 
Sub Placeoweb_XLS2CSV_OneFileBySheet()
 
   Application.DisplayAlerts = False
   Application.ScreenUpdating = False
   For Each feuilleEnCours In ThisWorkbook.Sheets
       feuilleEnCours.Select
       feuilleEnCours.Copy
       ActiveWorkbook.SaveAs Filename:="C:\placeoweb.com.xls2csv." & feuilleEnCours.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
       ActiveWorkbook.Close SaveChanges:=False
   Next
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
 
   MsgBox ("Exportation terminée, retouvez vos fichier à la racine dans le C:\")
 
End Sub

merci

[Daniel.C]

Bonjour,

Je répète :

Si les fichiers sont répartis dossiers, comment reconnait-on les fichiers à convertir ? ou est-ce l'utilisateur qui choisit ?

[karido-74]

En fait tout les dossiers contiennent plusieurs fichiers xlsx donc pour la conversion c'est tous les fichiers (L'utilisateur ne choisit pas)

La nouvelle macro m’arrange bien sauf qu'il lui manque juste l'ajout des guillemets

[Daniel.C]

la nouvelles macro que elle m’arrange bien sauf que il lui manque juste pour rajouter les guillemets

Oui mais il n'y a pas moyen de l'adapter.

[Docmarti]

en plus de ça j'ai certain cellules en forme 001 et la macro les converti a 1
merci

Bonjour

Mets ' devant les valeurs qui débutent par 0 afin de conserver le 0.

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
Sub Export_Valeurs_Debutant_Par_Zero()
Dim Enrgt As String
Close #1
Open "C:\test2\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))
 If Enrgt <> "" Then Enrgt = Enrgt & ";"
If Mid(CStr(x.Value), 1, 1) = "0" And IsNumeric(CStr(x.Value) & "0") Then
 Enrgt = Enrgt & Chr(34) & "'" & x.Value & Chr(34)
Else
 Enrgt = Enrgt & Chr(34) & x.Value & Chr(34)
End If
Next x
Print #1, Enrgt
 
Next c
Close #1
End Sub

Cordialement

Docmarti