Bonjour,

J'ai écrit un vbs permettant de transformer mes fichiers .excel en fichier .csv mais le problème c'est que je voudrais qu'il rajoute des guillemets par champ. Je n'y arrive pas depuis jours.

HELP,
Merci d'avance
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