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.
 

Pierrot93

XLDnaute Barbatruc
Re : fichier csv avec separateur ;

Bonjour,

essaye peut être ainsi :

Code:
ThisWorkbook.SaveAs cheminetmonfichier, xlCSV
bonne soirée
@+
 

Pierrot93

XLDnaute Barbatruc
Re : fichier csv avec separateur ;

Re

peut être pas tout compris, mais le code ci-dessous devrait suffire :

Code:
wb2.Close
wb.Close
@+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas