VBA Excel: Enregistrement d'un fichier csv avec ;

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA Excel: Enregistrement d'un fichier csv avec ;

jonath88

Bonjour,
Après avoir parcouru plusieurs tutoriels, post de forum... je n'ai pas trouvé réponse à mon soucis.
J'ai développé une macro en VBA sous Excel qui à partir d'un fichier xls, me génère un même fichier en csv et effectue diverses tâches sur celui-ci.
Mon soucis est que lorsque j'ouvre après traitement mon fichier celui-ci contient des séparateurs "," mais il me faut des séparateurs ";". Le fichier doit-être lu après par une autre application, d'où la nécéssité du ";".
J'ai bien dans mon panneau de configuration=>option linguistiques le séparateur définis sur ";".

Ci-dessous mon code:

Code :

Sub TraitementHistoriqueSeur()
Dim Var As String
Dim sizeArray As Integer
Dim i As Integer
Dim dateVar As String
Dim wb As Workbook
Dim nameFile As String
'----------------------------------------
'------Sauvegarde du fichier en CSV------
'----------------------------------------
Set wb = ActiveWorkbook
wb.Activate
If DossierExiste("C:\Documents and Settings\All Users\Bureau\GENAUTO_SEUR_NEW_FILES_CSV" ) = False Then
MkDir "C:\Documents and Settings\All Users\Bureau\GENAUTO_SEUR_NEW_FILES_CSV"
ChDir "C:\Documents and Settings\All Users\Bureau\GENAUTO_SEUR_NEW_FILES_CSV"
End If
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\All Users\Bureau\GENAUTO_SEUR_NEW_FILES_CSV/" & Mid(wb.Name, 1, 21) & ".csv" _
, FileFormat:=xlCSV, CreateBackup:=False, local:=True
With Application
.DecimalSeparator = "."
End With
'----------------------------------------
'-Fermeture du classeur courant & Autres-
'----------------------------------------
Columns("D:D" ).Select
Selection.NumberFormat = "General"
ActiveWorkbook.Close savechanges:=True
EndSub

Si quelque peut m'aider... :??:
Merci

Message édité par jonath88 le 04-09-2009 à 15:16:05

Publicité

SuppotDeSaTante

Aka dje69r

Bien le bonjour

Le plus simple c'est de le réouvrir en texte, et de remplacer la virgule par un point virgule.

Sinon il y a cette méthode :

Code :

Sub jonath88()
Dim Plage As Object, LigneFeuille As Object, Cellule As Object, Ligne As String, Qu As Integer, x As Integer
Separateur = ";"
Set Plage = ActiveSheet.UsedRange
Qu = MsgBox("Intégrer la 1ere ligne ? (noms des champs) ?", vbYesNo, "Question" )
If Qu = vbYes Then
Qu = 1
Else
Qu = 0
End If
Open "C:\jonath88.csv" For Output As #1
For Each LigneFeuille In Plage.Rows
Ligne = ""
If Qu <> 0 Then
For Each Cellule In LigneFeuille.Cells
Ligne = Ligne & CStr(Cellule.Text) & Separateur
Next
Print #1, Ligne
End If
Qu = 1
Next
Close
End Sub

Cordialement

Message cité 1 fois
Message édité par SuppotDeSaTante le 08-09-2009 à 16:25:39

---------------
Soyez malin, louez entre voisins !

jonath88

Merci,
Le hic est que je dois appliquer la macro sur 500 fichiers de façon régulière, donc la première solution me semble assez difficile. Je test la deuxième.

Message édité par jonath88 le 08-09-2009 à 17:33:20

jonath88

SuppotDeSaTante a écrit :

Bien le bonjour

Le plus simple c'est de le réouvrir en texte, et de remplacer la virgule par un point virgule.

Sinon il y a cette méthode :

Code :

Sub jonath88()
Dim Plage As Object, LigneFeuille As Object, Cellule As Object, Ligne As String, Qu As Integer, x As Integer
Separateur = ";"
Set Plage = ActiveSheet.UsedRange
Qu = MsgBox("Intégrer la 1ere ligne ? (noms des champs) ?", vbYesNo, "Question" )
If Qu = vbYes Then
Qu = 1
Else
Qu = 0
End If
Open "C:\jonath88.csv" For Output As #1
For Each LigneFeuille In Plage.Rows
Ligne = ""
If Qu <> 0 Then
For Each Cellule In LigneFeuille.Cells
Ligne = Ligne & CStr(Cellule.Text) & Separateur
Next
Print #1, Ligne
End If
Qu = 1
Next
Close
End Sub

Cordialement

Dans mon cas cette méthode fonctionne diffillement et me provoques dans erreurs pour certaines cellules...
Mais normalement lorsqu'on crée un csv on doit pouvoir lui définir le séparateur en ";"?
Y a t il un problème avec Excel? Je travail sur une version 2003?

Ou alors quelqu'un a-til une solution? :??:

kiki29

Salut, afin de tester plus facilement j'ai modifié le code et celui-ci fonctionne correctement, à toi de le réadapter à ton contexte

Option Explicit

Sub TraitementHistoriqueSeur()
Dim sNomWkb As String, sNomCSV As String
sNomWkb = ActiveWorkbook.Name
sNomCSV = Left$(sNomWkb, InStr(sNomWkb, "." ) - 1)

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sNomCSV & ".csv", FileFormat:=xlCSV, Local:=True

With Application
.DecimalSeparator = "."
End With

Columns("D:D" ).NumberFormat = "General"

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sNomWkb, FileFormat:=xlNormal
Application.DisplayAlerts = True
End Sub

Plutot que MkDir et tout le bazar autour

Option Explicit

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long

' Pour valeur retournée dans Rep
' Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
' et http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
Rep = SHCreateDirectoryEx(0&, sDossier, 0& )
End Sub

Sub Test()
Dim sDossier As String
sDossier = "D:\repA\repB\repC\repD\repE\repF"
CreationDossier sDossier
End Sub

Message édité par kiki29 le 08-09-2009 à 21:06:53

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA Excel: Enregistrement d'un fichier csv avec ;

Sujets relatifs
[Résolu] Macro excel pour tri tableau par semaine	Programmation sous Excel
Microsoft.Office.Interop.Excel	VBA copier contenu feuille excel dans autre fichier + sauvegarder sous
Probleme insertion données Fichier Excel	générer un fichier excel
Plus de sujets relatifs à : VBA Excel: Enregistrement d'un fichier csv avec ;

Page générée en 0.066 secondes