fichier csv avec separateur ;

thierry440

XLDnaute Junior
bonjour

à l'intérieur d'une macro , je sauve une feuille en un fichier csv.
par contre ce fichier a bien l'extansion csv , mais ses données ne sont pas sauver avec le format csv séparateur ;

merci d'avance

voici le code

'sauve csv

Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim Chemin$, NomFichier$
Set wb = ThisWorkbook
Set ws = Sheets("F")

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

Set wb2 = Workbooks.Add(xlWBATWorksheet)
ws.Copy Before:=wb2.Sheets(1)
For Each ws2 In wb2.Worksheets
If Not ws2.Name = ws.Name Then ws2.Delete
Next ws2

NomFichier = _
ws.Name & "_ " & Format(Date, "ddmmyyyy") & ".csv"
Chemin = _
InputBox("Saisir le nom du répertoire de sauvegarde", _
"Choix Répertoire", _
"U:\ECOPLI_IND_Sans_Import\122009") & "\"

wb2.SaveAs (Chemin + NomFichier)
wb2.Close

With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
 

Shudrum

XLDnaute Nouveau
Re : fichier csv avec separateur ;

Il ne suffit pas de choisir l'extension csv pour que le fichier soit au format csv. Je suppose qu'avec ce code tu te retrouves avec un fichier .csv mais qui en fait est un pur xls.

Tout de suite, je ne saurais pas trop te dire comment sauver rapidement en csv à part manuellement (enfin, créer un fichier csv en codant soit même l'écriture), mais ce n'est pas du tout la voie que tu as suivi qu'il faut suivre.
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 766
Membres
101 815
dernier inscrit
sgep59