Discussion :

[vinch999]

Hello tout le monde,

Je souhaite exporter les N sheets d'un fichier excel
- au format csv (j'ai utilisé FileFormat:=xlCSV)
- avec un séparateur ";" (j'ai utilisé local:=True)
- (dans l'idéal mais pas mandatory) avec des doubles quotes englobant les champs (pas trouvé de solution)
- 1 csv par sheet (j'ai bouclé : For Each ws In ActiveWorkbook.Worksheets)
- les sheets soient générées dans le même répertoire que l'excel de base (j'ai setté file_path = ActiveWorkbook.Path & "\" avant de boucler sur les sheets)
- Que les fichiers soient encodés en UTF8 (pas trouvé de solution pour le forcer)
- Que le tout soit fait via le clic d'un bouton placé sur la première sheet, ou encore mieux sur un sheet qui servirait de page d'accueil. (Pas trouvé comment je pourrais exclure la sheet1, qui serait la page d'accueil, de la génération)
- Compatible excel 2013 et +

L'un de vous aurait-il un code VB sous la main ou pourrait m'aider à compléter le mien?

J'ai fait ceci , mais ça bug un peu à la génération de la feuil2. lorsque le fichier est généré il a le contenu de la feuil1. Et lorsque je ferme le fichier xlsm, il demande de re sauver le fichier feuil2.csv...

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 saveSheetToCSV()
    Dim ws As Worksheet
    Dim file_path As String
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    file_path = ActiveWorkbook.Path & "\"
    For Each ws In ActiveWorkbook.Worksheets
        ws.Copy
        MsgBox "PATH =" & ThisWorkbook.Path
        MsgBox "Filename =" & file_path & ActiveSheet.Name & ".csv"
        ws.SaveAs Filename:=file_path & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
        ActiveWorkbook.Close
    Next
End Sub

Des idées d'amélioration?

Merci d'avance pour l'aide!

[Menhir]

Il suffit que tu appliques un SaveAs à ws.
Inutile de faire de Copy et Close.
https://msdn.microsoft.com/fr-fr/lib.../ff195820.aspx
Etant donné que le SaveAs est sur la worksheet, ça ne modifiera pas ton fichier source.

Cela dit, le problème dans ton code, c'est que tu fais le SaveAs sur ws et non sur ActiveWorkbook.

Je te conseille aussi de supprimer les deux lignes de blocage en début de code ScreenUpdating et DisplayAlerts.

[MarcelG]

Bonjour à toi, Bonjour le Forum,

Si une feuille de travail est copiée sans autre propriété ou méthode, alors elle devient un classeur à part entière, activé de surcroît.
Et c'est ce classeur qui doit être enregistré.

Cela dit, il faudrait reporter quels sont les résultats obtenus, et quelles sont les erreurs éventuelles.

[vinch999]

Effectivement mon erreur était le .SaveAs appliqué à la worksheet,
J'ai mis plutot ActiveWorkbook.SaveAs et c'est ok.

J'ai par contre laissé
ActiveWorkbook.Close ==> Sinon les fichiers csv générés s'ouvrent dans une nouvelle fenêtre, ce qui est inutile pour moi.
ws.Copy ==> Sans ça , ça bug.


Ce code semble répondre à mes besoins.

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
 
Sub saveSheetToCSV()
    Dim ws As Worksheet
    Dim file_path As String
    Dim sheet_accueil As String
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    file_path = ActiveWorkbook.Path & "\"
    sheet_accueil = "Accueil"
 
    For Each ws In ActiveWorkbook.Worksheets
        ws.Copy
            If StrComp(ActiveSheet.Name, "Accueil") = 1 Then
                ActiveWorkbook.SaveAs Filename:=file_path & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
            End If
        ActiveWorkbook.Close
    Next
End Sub

Pas d'idée de comment :
-Forcer à UTF8
-mettre des doubles quotes englobantes
?