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
à 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